Boujour à tous,
Je voudrais créer une collection de 9 plages de même dimension de façon à
pouvoir
passer d'une plage à l'autre au moyen d'une boucle FOR EACH et exécuter la
même procédure dans chaque plage
Ma question est la suivante :
1 Est-il possible avec Excel 2000 de créer ce type de collection perso ?
2 Comment faire ?
D'avance merci
ebleuez
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
Si les plages sont nommées toto1,toto2,toto3,... Sub essai2() For Each n In ActiveWorkbook.Names If Left(n.Name, 4) = "toto" Then For Each c In Range(n) c.Interior.ColorIndex = 36 Next c End If Next n End Sub
Cordialement JB
Bonjour,
Si les plages sont nommées toto1,toto2,toto3,...
Sub essai2()
For Each n In ActiveWorkbook.Names
If Left(n.Name, 4) = "toto" Then
For Each c In Range(n)
c.Interior.ColorIndex = 36
Next c
End If
Next n
End Sub
Si les plages sont nommées toto1,toto2,toto3,... Sub essai2() For Each n In ActiveWorkbook.Names If Left(n.Name, 4) = "toto" Then For Each c In Range(n) c.Interior.ColorIndex = 36 Next c End If Next n End Sub
Cordialement JB
ejmj.bleuez
"JB" a écrit dans le message de news:
Bonjour,
Si les plages sont nommées toto1,toto2,toto3,... Sub essai2() For Each n In ActiveWorkbook.Names If Left(n.Name, 4) = "toto" Then For Each c In Range(n) c.Interior.ColorIndex = 36 Next c End If Next n End Sub
Cordialement JB
Merci JB pour ta solution très professionnelle qui répond parfaitement à ma question Meilleurs sentiments ebleuez
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1143118781.884659.242580@u72g2000cwu.googlegroups.com...
Bonjour,
Si les plages sont nommées toto1,toto2,toto3,...
Sub essai2()
For Each n In ActiveWorkbook.Names
If Left(n.Name, 4) = "toto" Then
For Each c In Range(n)
c.Interior.ColorIndex = 36
Next c
End If
Next n
End Sub
Cordialement JB
Merci JB pour ta solution très professionnelle qui répond parfaitement à ma
question
Meilleurs sentiments
ebleuez
Si les plages sont nommées toto1,toto2,toto3,... Sub essai2() For Each n In ActiveWorkbook.Names If Left(n.Name, 4) = "toto" Then For Each c In Range(n) c.Interior.ColorIndex = 36 Next c End If Next n End Sub
Cordialement JB
Merci JB pour ta solution très professionnelle qui répond parfaitement à ma question Meilleurs sentiments ebleuez
