Parcourir une sélection

Bonjour,

j'essaie de maitriser la propriété Selection.

J'ai imaginé l'exercice suivant :

Je sélectionne des cellules sur une feuille (contiguës ou non).
Je lance une macro. Le résultat de cette macro doit être le suivant :
- Toutes les cellules sur la première ligne de ma sélection reçoivent la
valeur 1
- ... deuxième ligne ... valeur 2
- etc...

Je suis en train de faire très compliqué alors que je suis certain
qu'il existe une solution simplissime.

Votre avis ?

Merci !

bonjour,

Sub Macro1()
Dim c, x As Integer, prm As Integer
x = 1
prm = Selection.Item(1).Row
For Each c In Selection
If c.Row = prm Then
Range(c.Address) = x
Else
x = x + 1
Range(c.Address) = x
prm = c.Row
End If
Next
End Sub

isabelle

Bonjour,

j'essaie de maitriser la propriété Selection.

J'ai imaginé l'exercice suivant :

Je sélectionne des cellules sur une feuille (contiguës ou non).
Je lance une macro. Le résultat de cette macro doit être le suivant :
- Toutes les cellules sur la première ligne de ma sélection reçoivent la
valeur 1
- ... deuxième ligne ... valeur 2
- etc...

Je suis en train de faire très compliqué alors que je suis certain
qu'il existe une solution simplissime.

Votre avis ?

Merci !