VBA boucle

Bonsoir à tous,

Je voudrais boucler tant que le nom de la cellule active est <> de "xx1"

sachant que dans la plage à balayer, il n'y a qu'un nom "xx1",les autres cellule n'étant pas

nommées.

Sub essai()
    Do While ActiveCell.Name <> "xx1"
        ActiveCell.Offset(0, 10).Select
        'action
        ActiveCell.Offset(1, 0).Select
    Loop
End Sub

Ce code ne marche pas car cellules non nommées

comment contourner le problème ?

amicalement

Claude.

Bonsoir, Claude

pourquoi veux-tu sélectionner les cellules dans ton code?

avec ce code, tu peux agir de la cellule A1 à la cellule nommée "xx1"

For Each cel In Range([A1], [xx1].Offset(-1, 0))
    'traitement
Next cel

Salut felix,

Sans l'avoir testé, je le sent bien ton code !

Il y a peu-être encore mieux à faire, je m'explique :

J'ai à traiter dans une plage d'une colonne nommée "Classe"

la 1ère cellule de cette plage est nommée "xx2" et la dernière est nommée "xx1

For Each cel In [classe]
    'traitement
Next cel 

Qu'en pense-tu ?

Re-,

si tu l'as essayé, tu as donc la réponse.....

Effectivement, cela fonctionne

Maintenant, il faudrait voir le traitement

re,

oui ça marche, merci de m'avoir mis sur la bonne voie.

Bonne nuit, à demain.

Claude.