Si je dessine sur ma feuille un objet (shape), sa taille est généralement modifiée par excel. D'ou vient ce problème et comment y remédier ?
Excel arrondit les dimensions de ton objet et donc tu n'as que par hasard celles que tu veux vraiment !
Voici la formule qui permet de connaître la dimension réelle qu'aura un objet (shape) lorsqu'on lui impose une taille précise.
ValeurRéelle = MAX(3/4, INT(4/3 * ValeurSouhaitée + 0.5) * 3/4)
En soi la formule n'est pas compliquée, mais comme la taille ne peut pas être inférieure à 0,75, la fonction Max l'alourdit un peu.
Le code suivant affiche une taille souhaitée et la taille conservée par Excel.
Sub VerifHauteurObjet()
'
' Macro enregistrée le 03/01/2008 par Trirème
' Lorsqu'on impose une taille à un objet
' Excel "arrondit" cette valeur et l'objet peut avoir une taille non souhaitée
' Une boucle inscrit dans 3 colonnes distinctes la hauteur souhaitée,
' la hauteur "arrondie" par Excel et la hauteur obtenue par calcul.
Dim i As Integer
Sheets.Add ' On insère un rectangle dans une nouvelle feuille...
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0#, 0#, 60#, 12.75). _
Select
Range("B1") = "Haut. souhaitée"
Range("C1") = "Haut. ""corrigée"" par Excel"
Range("D1") = "Haut. calculée"
For i = 2 To 200 ' ... et on fait varier sa hauteur dans une boucle
Selection.ShapeRange.Height = i / 10 ' On impose une hauteur à l'objet...
Range("B" & i) = i / 10
Range("C" & i) = Selection.ShapeRange.Height ' … Puis on lit la hauteur de l'objet
Range("D" & i) = Application.Max(3 / 4, Int(4 / 3 * i / 10 + 0.5) * 3 / 4)
' ValeurRéelle = MAX(3/4, INT(4/3 * ValeurSouhaitée + 0.5) * 3/4)
' La comparaison des ValeurSouhaitée et ValeurRéelle
' permet d'apprécier les différences
Next
End Sub
Voici la formule qui permet de connaître la dimension réelle qu'aura un objet (shape) lorsqu'on lui impose une taille précise.
ValeurRéelle = MAX(3/4, INT(4/3 * ValeurSouhaitée + 0.5) * 3/4)
En soi la formule n'est pas compliquée, mais comme la taille ne peut pas être inférieure à 0,75, la fonction Max l'alourdit un peu.
Le code suivant affiche une taille souhaitée et la taille conservée par Excel.
Sub VerifHauteurObjet()
'
' Macro enregistrée le 03/01/2008 par Trirème
' Lorsqu'on impose une taille à un objet
' Excel "arrondit" cette valeur et l'objet peut avoir une taille non souhaitée
' Une boucle inscrit dans 3 colonnes distinctes la hauteur souhaitée,
' la hauteur "arrondie" par Excel et la hauteur obtenue par calcul.
Dim i As Integer
Sheets.Add ' On insère un rectangle dans une nouvelle feuille...
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0#, 0#, 60#, 12.75). _
Select
Range("B1") = "Haut. souhaitée"
Range("C1") = "Haut. ""corrigée"" par Excel"
Range("D1") = "Haut. calculée"
For i = 2 To 200 ' ... et on fait varier sa hauteur dans une boucle
Selection.ShapeRange.Height = i / 10 ' On impose une hauteur à l'objet...
Range("B" & i) = i / 10
Range("C" & i) = Selection.ShapeRange.Height ' … Puis on lit la hauteur de l'objet
Range("D" & i) = Application.Max(3 / 4, Int(4 / 3 * i / 10 + 0.5) * 3 / 4)
' ValeurRéelle = MAX(3/4, INT(4/3 * ValeurSouhaitée + 0.5) * 3/4)
' La comparaison des ValeurSouhaitée et ValeurRéelle
' permet d'apprécier les différences
Next
End Sub
Trirème,
Ajouté ou modifié le 05/01/2008 (N°1955)
Ajouté ou modifié le 05/01/2008 (N°1955)
Présentation de l'outil Solver A quoi sert cet outil et comment s'en sert-on ?
Le solver fait la même chose que le calcul normal d'excel, sauf qu'il le fait à l'envers.
Un petit exemple pour me faire comprendre:
Dans excel, tu introduis 10 dans une cellule, 20 dans une autre. Ce sont les données.
Tu demandes dans une troisième de faire la somme des deux. C'est le résultat.
Voila résumé le calcul normal d'Excel.
Tu introduis des données et tu demandes un calcul et tu obtiens un résultat.
Le solver fait l'inverse.
Tu donnes le résultat et tu demandes à Excel de retrouver les données qui correspondent à ton calcul.
Exemple. J'additionne A et B, le total est 100. Quelles sont les valeurs de A et de B si je veux un total de 200.
Bien sûr, on l'utilise généralement pour des calculs un peu plus compliqués que ceux que l'on pourrait faire à la mimine.
Exemple (simple) en comptabilité budgétaire .
Mon Résultat d'exploitation prévisionnel est de X. Quels coefficients devrais-je appliquer sur mes prix d'achats pour obtenir le résultat Y.
Comme tu t'en doutes, pour toute question posée au solver, tu as en principe une flopée de réponses possibles.
Exemple si la somme de A et B égale 100, A pourrait valoir 50 et B 50 mais aussi A pourrait valoir 10 et B 90.
Pour cela, tu peux compléter ta demande par des contraintes.
Exemple: A doit être plus grand que B ou encore A doit être égal ou inférieur à 30% du carré de B.
Ces contraintes doivent s'appliquer sur les données faisant partie du calcul mais peuvent utiliser des données extérieures style : A doit être supérieur à la moyenne des cellules G8:G48.
Pour aider à la résolution du problème posé, tu peux agir sur les paramètres du calcul comme le temps autorisé, le nombre d'itération, la précision, etc...
Tu peux aussi, par exemple, demander que le résultat soit "proportionnel" aux données de départ.
Exemple : 10 + 1000 donne 1010 (La foule déchainée: "bravo Paul V, t'es le plus fort")
Comment obtenir 2020. La réponse privilégiée sera 20 + 2000 et non pas 1010 + 1010.
Si t'es matheux, tu peux aussi choisir la méthode de calcul. Mais je n'insiste pas pour ne pas t'achever tout de suite.
Il faut savoir que tu peux non seulement demander de trouver une valeur exacte comme réponse, mais aussi demander le maximum ou le minimum possible en tenant compte de tes calculs et de tes contraintes. Utile pour certaines optimisations chiffrées.
Pour terminer, le solver peut générer des rapports fort intéressants (toujours si t'es matheux) te rappelant tes données de départ et tes contraintes mais aussi d'autres informations utiles. Par exemples, les limites atteintes lors des itérations qui permettent de se faire une idée de l'évolution des calculs .
Tu peux aussi basculer automatiquement les divers résultats dans des scénarios.
Bref un super outil, avec une interface un peu vieillotte mais très utile pour des applications spécifiques (par exemple Devis, budgets, etc).
Pour être complet, il existe une version light du solver, qui s'appelle valeur cible et qui ne permet qu'un résultat sans aucune contrainte et est donc vraiment très limité.
Solver n'est pas toujours activé en installation standard donc pour l'activer il faut aller dans le menu outil, macros complémentaire et cocher Solver.
Fin de la leçon. N'oubliez pas le guide, svp. Il est bénévole et à une famille nombreuse à nourrir difficilement après avoir désaltéré sa soif inextinguible.
Un petit exemple pour me faire comprendre:
Dans excel, tu introduis 10 dans une cellule, 20 dans une autre. Ce sont les données.
Tu demandes dans une troisième de faire la somme des deux. C'est le résultat.
Voila résumé le calcul normal d'Excel.
Tu introduis des données et tu demandes un calcul et tu obtiens un résultat.
Le solver fait l'inverse.
Tu donnes le résultat et tu demandes à Excel de retrouver les données qui correspondent à ton calcul.
Exemple. J'additionne A et B, le total est 100. Quelles sont les valeurs de A et de B si je veux un total de 200.
Bien sûr, on l'utilise généralement pour des calculs un peu plus compliqués que ceux que l'on pourrait faire à la mimine.
Exemple (simple) en comptabilité budgétaire .
Mon Résultat d'exploitation prévisionnel est de X. Quels coefficients devrais-je appliquer sur mes prix d'achats pour obtenir le résultat Y.
Comme tu t'en doutes, pour toute question posée au solver, tu as en principe une flopée de réponses possibles.
Exemple si la somme de A et B égale 100, A pourrait valoir 50 et B 50 mais aussi A pourrait valoir 10 et B 90.
Pour cela, tu peux compléter ta demande par des contraintes.
Exemple: A doit être plus grand que B ou encore A doit être égal ou inférieur à 30% du carré de B.
Ces contraintes doivent s'appliquer sur les données faisant partie du calcul mais peuvent utiliser des données extérieures style : A doit être supérieur à la moyenne des cellules G8:G48.
Pour aider à la résolution du problème posé, tu peux agir sur les paramètres du calcul comme le temps autorisé, le nombre d'itération, la précision, etc...
Tu peux aussi, par exemple, demander que le résultat soit "proportionnel" aux données de départ.
Exemple : 10 + 1000 donne 1010 (La foule déchainée: "bravo Paul V, t'es le plus fort")
Comment obtenir 2020. La réponse privilégiée sera 20 + 2000 et non pas 1010 + 1010.
Si t'es matheux, tu peux aussi choisir la méthode de calcul. Mais je n'insiste pas pour ne pas t'achever tout de suite.
Il faut savoir que tu peux non seulement demander de trouver une valeur exacte comme réponse, mais aussi demander le maximum ou le minimum possible en tenant compte de tes calculs et de tes contraintes. Utile pour certaines optimisations chiffrées.
Pour terminer, le solver peut générer des rapports fort intéressants (toujours si t'es matheux) te rappelant tes données de départ et tes contraintes mais aussi d'autres informations utiles. Par exemples, les limites atteintes lors des itérations qui permettent de se faire une idée de l'évolution des calculs .
Tu peux aussi basculer automatiquement les divers résultats dans des scénarios.
Bref un super outil, avec une interface un peu vieillotte mais très utile pour des applications spécifiques (par exemple Devis, budgets, etc).
Pour être complet, il existe une version light du solver, qui s'appelle valeur cible et qui ne permet qu'un résultat sans aucune contrainte et est donc vraiment très limité.
Solver n'est pas toujours activé en installation standard donc pour l'activer il faut aller dans le menu outil, macros complémentaire et cocher Solver.
Fin de la leçon. N'oubliez pas le guide, svp. Il est bénévole et à une famille nombreuse à nourrir difficilement après avoir désaltéré sa soif inextinguible.
Paul V,
Ajouté ou modifié le 25/08/2007 (N°1889)
Ajouté ou modifié le 25/08/2007 (N°1889)
En colonne A j'ai des numéros qui se répètent : 1 1 1 2 3 3 4 4 4 4 7 8 ... Je voudrais créer un plan en regroupant toutes les lignes ayant le même N° en colonne A.
En admettant que tu aies une ligne de titre, Nomme "Maplage" la zone contenant tes numéros à regrouper.
Trie ta feuille de façon à ce que tes numéros soient regorupés puis
Utilise cette macro :
Sub creerunplan()
'liste des numéros, sans doublon
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range([A2], [A65000].End(xlUp))
If Not mondico.Exists(c.Value) And c.Value <> "" Then mondico.Add c.Value, c.Value
Next c
For Each i In mondico.items
first = [A1].Offset(Application.Match(i, [maplage], 0) - 1, 0).Row + 1
last = first + Application.CountIf([maplage], i) - 1
If last > first Then
Rows(first + 1 & ":" & last).Select
Selection.Rows.Group
End If
Next i
End Sub
Trie ta feuille de façon à ce que tes numéros soient regorupés puis
Utilise cette macro :
Sub creerunplan()
'liste des numéros, sans doublon
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range([A2], [A65000].End(xlUp))
If Not mondico.Exists(c.Value) And c.Value <> "" Then mondico.Add c.Value, c.Value
Next c
For Each i In mondico.items
first = [A1].Offset(Application.Match(i, [maplage], 0) - 1, 0).Row + 1
last = first + Application.CountIf([maplage], i) - 1
If last > first Then
Rows(first + 1 & ":" & last).Select
Selection.Rows.Group
End If
Next i
End Sub
Flo Cabon,
Ajouté ou modifié le 22/05/2007 (N°1834)
Ajouté ou modifié le 22/05/2007 (N°1834)
J'ai deux séries de mesures dans chacune en abscisse j'ai un nombre de jours, en ordonnée des
mesures. Les nombres de jours ne correspondent pas forcément mais certains peuvent être
communs. Je voudrais "regrouper" ces séries Comment faire ?
Excel fait ça facilement! Supposons que ta première série est située
dans A1:F2, et la seconde dans A4:G5. Tu veux consolider dans A7. Voici
comment procéder:
1- sélectionne la cellule de destination de consolidation (A7)
2- Données/consolider
3-dans la zone référence, tu sélectionnes (à la souris) la première
série (A1:F2), puis "ajouter"
4-dans la zone référence, tu sélectionnes la seconde série (A4:G5), puis
"ajouter"
5-cocher "ligne du haut" et "colonne de gauche"
6-c'est tout!
L'algorithme de consolidation est parfois déroutant, il se peut que tu aies à trier tes
colonnes de destination.
Pour mettre à jour la zone de consolidation, rien de plus simple. La commande
Données/Consolider "se souvient" des références, d'une fois à l'autre, donc, pas
besoin de se refarcir les étapes décrites ci-haut, tu n'as plus qu'à faire Données/Consolider
et cliquer OK. Mais attention, n'oublie pas de sélectionner la première cellule de la zone
(A7) avant de consolider. Excel consolide à partir de la cellule active...
Une fois ta première consolidation effectuée (en principe le résultat se fait dans A7:J9 dans
mon exemple), tu replaces les colonnes et les lignes dans l'ordre que tu veux, par exemple un
tri croissant, ou n'importe quel autre séquence arbitraire que tu auras choisie. Ensuite,
toutes les autres fois où tu souhaiteras mettre à jour la consolidation, tu sélectionneras
l'ensemble de la zone de consolidation (donc A7:J9) AU LIEU DE SEULEMENT A7 avant de mettre à
jour. Ça fait toute la
différence! En présélectionnant la zone de consolidation au préalable, Excel comprend qu'il
doit respecter l'emplacement des étiquettes qui s'y trouvent. Et voilà!
Une autre astuce, pendant que j'y suis, et pour éviter d'avoir à effectuer les mises à jour
manuellement, c'est de cocher l'option "lier aux données sources". Toutefois cette
option exige que la zone de consolidation soit placée dans un autre onglet. L'emploi implicite
du mode plan qui en découle, de même que l'obligation de placer la zone de consolidation dans
un onglet distinct peuvent être génant, et c'est pourquoi en général on se contente d'une
consolidation manuelle (sans formule). Mais il est facile de créer un bouton macro effectuant
la mise à jour de la consolidation, évitant ainsi la présélection de la zone de consollidation
(on a vite faite de l'oublier et de bousiller d'autres parties de la feuille, crois moi!).
Pour ma part, je préfère quand même une conso avec mise à jour auto. par formules (donc lier
aux données sources...), et pour le plan qui en découle: Outils/Options/Affichage/ décocher:
Symboles du plan.
dans A1:F2, et la seconde dans A4:G5. Tu veux consolider dans A7. Voici
comment procéder:
1- sélectionne la cellule de destination de consolidation (A7)
2- Données/consolider
3-dans la zone référence, tu sélectionnes (à la souris) la première
série (A1:F2), puis "ajouter"
4-dans la zone référence, tu sélectionnes la seconde série (A4:G5), puis
"ajouter"
5-cocher "ligne du haut" et "colonne de gauche"
6-c'est tout!
L'algorithme de consolidation est parfois déroutant, il se peut que tu aies à trier tes
colonnes de destination.
Pour mettre à jour la zone de consolidation, rien de plus simple. La commande
Données/Consolider "se souvient" des références, d'une fois à l'autre, donc, pas
besoin de se refarcir les étapes décrites ci-haut, tu n'as plus qu'à faire Données/Consolider
et cliquer OK. Mais attention, n'oublie pas de sélectionner la première cellule de la zone
(A7) avant de consolider. Excel consolide à partir de la cellule active...
Une fois ta première consolidation effectuée (en principe le résultat se fait dans A7:J9 dans
mon exemple), tu replaces les colonnes et les lignes dans l'ordre que tu veux, par exemple un
tri croissant, ou n'importe quel autre séquence arbitraire que tu auras choisie. Ensuite,
toutes les autres fois où tu souhaiteras mettre à jour la consolidation, tu sélectionneras
l'ensemble de la zone de consolidation (donc A7:J9) AU LIEU DE SEULEMENT A7 avant de mettre à
jour. Ça fait toute la
différence! En présélectionnant la zone de consolidation au préalable, Excel comprend qu'il
doit respecter l'emplacement des étiquettes qui s'y trouvent. Et voilà!
Une autre astuce, pendant que j'y suis, et pour éviter d'avoir à effectuer les mises à jour
manuellement, c'est de cocher l'option "lier aux données sources". Toutefois cette
option exige que la zone de consolidation soit placée dans un autre onglet. L'emploi implicite
du mode plan qui en découle, de même que l'obligation de placer la zone de consolidation dans
un onglet distinct peuvent être génant, et c'est pourquoi en général on se contente d'une
consolidation manuelle (sans formule). Mais il est facile de créer un bouton macro effectuant
la mise à jour de la consolidation, évitant ainsi la présélection de la zone de consollidation
(on a vite faite de l'oublier et de bousiller d'autres parties de la feuille, crois moi!).
Pour ma part, je préfère quand même une conso avec mise à jour auto. par formules (donc lier
aux données sources...), et pour le plan qui en découle: Outils/Options/Affichage/ décocher:
Symboles du plan.
ChrisV, (N°1181)
Je souhaite afficher une grille par un code VBA qui s'ouvre sur un nouvel enregistrement ; j'ai
trouvé l'affichage de la grille (activeSheet.ShowDataForm) mais il l'ouvre sur le 1er
enregistrement. Comment faire pour l'ouvrir sur un nouvel enregistrement
Sub zaza()
SendKeys "%N"
Application.CommandBars.FindControl(ID:=860).Execute
End Sub
SendKeys "%N"
Application.CommandBars.FindControl(ID:=860).Execute
End Sub
ChrisV, (N°1172)
Peut-on dessiner des cartes de géographie avec excel ?
Il existe dans Excel 97 et 2000 une icône qui lance une fonction pour dessiner automatiquement
les cartes de France, de Belgique, du Canada et de la Suisse avec une quantité impressionnante
d'options et d'infos qui peuvent s'afficher : départements , noms des villes, codes postaux,
routes, autoroutes, aéroports.
On peut aussi zoomer de 50 à 1000 %, ajouter des textes, superposer des flèches ou des boutons
de commande et reformater la carte.
Cette option n'existe plus dans excel XP (GRRRR on paye pour une mise à jour qui enlève des
trucs !)
Pour y accéder en Excel 2000 :
Ajout du bouton Carte à une barre d'outils
- Affichez la barre d'outils à laquelle vous souhaitez ajouter le bouton Carte .
Dans le menu Outils, cliquez sur Personnaliser, puis sur l'onglet Commandes.
- Dans la liste Catégories, cliquez sur Insertion.
- Faites glisser le bouton Carte de la liste Commandes jusqu'à la barre d'outils
souhaitée.
Pour récupérer microsoft map dans excel 97 et l'utiiliser dans une version plus récente :
Si vous disposez d'une version d'excel 97 sur un autre poste,
Récupérez et copiez le répertoire Datamap d'excel 97 dans :
C:\Program Files\Fichiers communs\Microsoft Shared
Lancez MSMAP.exe (contenu dans le répertoire datamap)
à la demande du dossier Données répondre:
C:\Program Files\Fichiers communs\Microsoft Shared\Datamap\Data
Pour l'utiliser dans excel:
Faire Insertion=>Objet=>Nouvel objet
Sélectionner Microsoft MAP dans la liste
les cartes de France, de Belgique, du Canada et de la Suisse avec une quantité impressionnante
d'options et d'infos qui peuvent s'afficher : départements , noms des villes, codes postaux,
routes, autoroutes, aéroports.
On peut aussi zoomer de 50 à 1000 %, ajouter des textes, superposer des flèches ou des boutons
de commande et reformater la carte.
Cette option n'existe plus dans excel XP (GRRRR on paye pour une mise à jour qui enlève des
trucs !)
Pour y accéder en Excel 2000 :
Ajout du bouton Carte à une barre d'outils
- Affichez la barre d'outils à laquelle vous souhaitez ajouter le bouton Carte .
Dans le menu Outils, cliquez sur Personnaliser, puis sur l'onglet Commandes.
- Dans la liste Catégories, cliquez sur Insertion.
- Faites glisser le bouton Carte de la liste Commandes jusqu'à la barre d'outils
souhaitée.
Pour récupérer microsoft map dans excel 97 et l'utiiliser dans une version plus récente :
Si vous disposez d'une version d'excel 97 sur un autre poste,
Récupérez et copiez le répertoire Datamap d'excel 97 dans :
C:\Program Files\Fichiers communs\Microsoft Shared
Lancez MSMAP.exe (contenu dans le répertoire datamap)
à la demande du dossier Données répondre:
C:\Program Files\Fichiers communs\Microsoft Shared\Datamap\Data
Pour l'utiliser dans excel:
Faire Insertion=>Objet=>Nouvel objet
Sélectionner Microsoft MAP dans la liste
Robert Dezan, RaMa,
Ajouté ou modifié le 18/12/2004 (N°1171)
Ajouté ou modifié le 18/12/2004 (N°1171)
L'outil "Photo" d'excel est très pratique : une partie de feuille exel est copiée sur
une autre feuille sous forme d'image et s'actualise sans manipulation. Peut-on figer cette
photo ?
lorsque tu fait une "photo" XL te demande "Tel qu'à l'écran" ou "tel qu'à l'impression"
le premier équivaut à "coller avec liaison" le second équivaut à "collage spécial valeurs"
le premier équivaut à "coller avec liaison" le second équivaut à "collage spécial valeurs"
Match, (N°1170)
Peut-on lier dans un scénario une variable à une liste de valeurs possibles ?
Ce n'est malheureusement pas prévu mais on peut y parvenir en utilisant la macro ci dessous.
InitScénarios ajoute un Combobox nommé "Scénarios" à la barre de menus Feuille de
calcul d'Excel, avec comme éléments "Scénario 1" et "Scénario 2". Quand on
active respectivement le 1er ou le 2ème élément, les cellules A1:A5 de la feuille active
(cellules variables) prennent les valeurs de la plage A1:A5 ou B1:B5 de la feuille
"Scénarios", sous forme de formules (=Scénarios!A1, =Scénarios!A2 si l'on a choisi
Scénario 1, =Scénarios!B1 etc pour Scénario 2).
A adapter selon tes besoins...
Sub InitScénarios()
Dim C As CommandBarComboBox
Set C = Application.CommandBars(1).Controls.Add(msoControlDropdown)
C.Caption = "Scénarios"
C.AddItem "Scénario 1"
C.AddItem "Scénario 2"
C.OnAction = "Scénarios_OnChange"
End Sub
Public Sub Scénarios_OnChange()
Range("A1:A5") = "=" & Range("Scénarios!A1:A5").Offset(0, _
Application.CommandBars(1).Controls("Scénarios").ListIndex - 1) _
.Address(False, False, , True)
End Sub
InitScénarios ajoute un Combobox nommé "Scénarios" à la barre de menus Feuille de
calcul d'Excel, avec comme éléments "Scénario 1" et "Scénario 2". Quand on
active respectivement le 1er ou le 2ème élément, les cellules A1:A5 de la feuille active
(cellules variables) prennent les valeurs de la plage A1:A5 ou B1:B5 de la feuille
"Scénarios", sous forme de formules (=Scénarios!A1, =Scénarios!A2 si l'on a choisi
Scénario 1, =Scénarios!B1 etc pour Scénario 2).
A adapter selon tes besoins...
Sub InitScénarios()
Dim C As CommandBarComboBox
Set C = Application.CommandBars(1).Controls.Add(msoControlDropdown)
C.Caption = "Scénarios"
C.AddItem "Scénario 1"
C.AddItem "Scénario 2"
C.OnAction = "Scénarios_OnChange"
End Sub
Public Sub Scénarios_OnChange()
Range("A1:A5") = "=" & Range("Scénarios!A1:A5").Offset(0, _
Application.CommandBars(1).Controls("Scénarios").ListIndex - 1) _
.Address(False, False, , True)
End Sub
Laurent Longre, (N°1160)