Macro Numérotation de ligne
Bonjour,
Je désire faire une macro sous excel qui fait la chose suivante :
Pour chaque ligne entre 7 et 100
Si la cellule D de la ligne est remplie alors inscrire un numéro dans la colonne A de même ligne.
Bien évidemment le numéro devra s'incrémenter de 1 à chaque fois.
A noter que chaque cellule de la colonne D sera forcément remplie en continue. Il n'y aura pas de "trou".
J'espère que c'est assez clair.
--
Je désire faire une macro sous excel qui fait la chose suivante :
Pour chaque ligne entre 7 et 100
Si la cellule D de la ligne est remplie alors inscrire un numéro dans la colonne A de même ligne.
Bien évidemment le numéro devra s'incrémenter de 1 à chaque fois.
A noter que chaque cellule de la colonne D sera forcément remplie en continue. Il n'y aura pas de "trou".
J'espère que c'est assez clair.
--
6 réponses
-
Salut Mike
Bien évidemment le numéro devra s'incrémenter de 1 à chaque fois.
je penserai plutôt à quelque chose comme ça
A7=SI(D7<>"";MAX($A$6:$A6)+1;"")
Cdlmt -
Une proposition dans le sens du post #3
Const lideb = 7
Const coD = "D"
Const coA = "A"
Public Sub MAJcoA()
Dim lifin As Long, li As Long, n As Long
With ActiveSheet
lifin = .Range(coD & Rows.Count).End(xlUp).Row
n = 1
If .Range(coD & lideb) <> "" Then .Range(coA & lideb) = n: n = n + 1
For li = lideb + 1 To lifin
If .Range(coD & li) <> "" Then .Range(coA & li) = n: n = n + 1
Next li
End With
End Sub
Bonne suite -
Bonjour,
pas très clair comme demande, mais regarde cette formule collée en A2 et incrémentée vers le bas
=SI(D2<>"";LIGNE();"")
-
C'est tout à fait ça CCM81 mais je dois pouvoir l'intégrer dans une macro.
Cette macro fait des choses avant comme créer la colonne A
-- -
Re,
Oui mais que fait cette macro, Nous ne sommes pas des devins, pour avoir des réponses précises il faut émettre des demandes précises, surtout en VBA ou on risque écrire des codes sans effets
-
Merci beaucoup CCM81, ça fonctionne parfaitement.
--
