Multiplier les Baromètres en VBA

[Mister Binaire]

Bonsoir le Forum,

J'ai récupéré sur le forum (fichier en pj) ces baromètres que je voudrais utiliser comme indicateurs.

Le problème c'est que l'auteur en fait fonctionner 3 il m'en faudrait une dizaine.

Qui peut me dire comment faire pour les multiplier dans le code VBA .

Merci de votre aide !


Amicalement,
MB

 

[Modeste geedee]

Re : Multiplier les Baromètres en VBA

Bonsour®
modifier cette partie de code

If Intersect(Target, Range("m4:m6")) Is Nothing Then Exit Sub

Range("m4:m6") 'c'est la plage des valeurs à agrandir jusque Mx
sachant qu'il y a autant de cellules que d'indicateurs

For i = 1 To nn ' nombre d'indicateurs

dupliquer autant de baromètres que nécessaire
renommér successivement chaque objet constitutif indicé par son numéro d'ordre 1 à nn
Hautnn
Enbasnn
Cursnn
Pourcnn

 

[Mister Binaire]

Re : Multiplier les Baromètres en VBA

Merci de ton aide Modeste geedee.

Si les 3 premières étapes sont simples.

Peux tu stp m'expliquer en détail cette dernière étape; je ne sais pas comment faire!!

renommer successivement chaque objet constitutif indicé par son numéro d'ordre 1 à nn
Hautnn
Enbasnn
Cursnn
Pourcnn

Merci de ton aide !!

 

[mapomme]

Re : Multiplier les Baromètres en VBA

Bonsoir Mister Binaire,

Modeste geedee, que je salue 🙂, a tout dit. Pour compléter, une illustration des dernières étapes dans le fichier joint.

Un complément: pour sélectionner un objet telle la barre de graduation du haut, cliquer dessus une à deux fois.

 

[Mister Binaire]

Re : Multiplier les Baromètres en VBA

Bonsoir le Forum,

Merci de ton aide mapomme et quand je dis ton aide je suis modeste car c'est un véritable Tuto que tu as bâtis pour moi !!

Maintenant tout est net et précis et cela fonctionne à merveille !!!

Merci également à Modeste geedee car ces explications étaient également claires, j'avais juste besoin d'une petite illustration !!

Amicalement,
MB