Macro Numérotation de ligne

Question

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. 
 
--

Mike-31 · Answer

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();"")

ccm81 · Answer

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

nogelan · Answer

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 
 
--

Mike-31 · Answer

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

ccm81 · Answer

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

nogelan · Answer

Merci beaucoup CCM81, ça fonctionne parfaitement. 
 
--

Macro Numérotation de ligne

6 réponses

Votre réponse

Discussions similaires

Newsletters