Incrémentation en fonction d'une variable VBA

Bonjour à tous,

J'ai parcouru le forum à la recherche d'une solution à mon problème, mais rien ne correspond à mes attentes.

Je cherche une macro qui pourrait incrémenter les cellules de la colonne A lorsque la cellule de la colonne B est complétée.

Je ne cherche pas une formule, par ailleurs déjà testée, car elle ne me permet pas, en cas de filtre, de fixe le numéro d'ordre généré à la ligne d'enregistrement.

voilà un extrait de mon fichier.

Merci pour votre aide

EMOELHA

Bonjour

Essayez ce code

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
        Range("A" & Target.Row) = Target.Row - 1
    End If
End Sub

Code à placer dans la feuille concernée par l'incrémentation

Pour le placer :

• clique droite sur l'onglet et choisir "visualiser le code"
• coller le code dans la fenetre

Si ok et terminé, merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER lors de votre réponse

Cordialement

Dan a écrit :

Bonjour

Essayez ce code

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
        Range("A" & Target.Row) = Target.Row - 1
    End If
End Sub

Code à placer dans la feuille concernée par l'incrémentation

Pour le placer :

• clique droite sur l'onglet et choisir "visualiser le code"
• coller le code dans la fenetre

Si ok et terminé, merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER lors de votre réponse

Cordialement

Bonjour Dan,

Ca fonctionne parfaitement.

Merci infiniment pour tout.

Cordialement,

Emoelha