Code visual basic: Problème d'incrémentation

Résolu/Fermé
mikacontact34 Messages postés 4 Date d'inscription vendredi 8 décembre 2006 Statut Membre Dernière intervention 6 octobre 2022 - 16 sept. 2022 à 12:15
yg_be Messages postés 23535 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 avril 2025 - 6 oct. 2022 à 10:58

Bonjour,

Le code ci-dessous fonctionne pour: incrémenter d'un numéro unique dans la colonne B chaque fois qu'une saisie est entamée dans la ligne sélectionnée. Cependant, lorsque je fais une saisie (exemple sur la colonne C ligne 2), j'ai bien un auto incrémente de mon numéro en colonne B sur la ligne correspondante à la cellule saisie, mais si je supprimer la valeur, j'ai un numéro aléatoire qui se créé en colonne B, ce qui fausse complètement mon auto incrémente en colonne B. Quelqu'un pourrait m'aider, j'arrête pas de faire des boucles infinies ne essayant de trouver comment régler cela, je craque :)

Private Sub Worksheet_Change(ByVal sel As Range)
    If sel.CountLarge > 1 Then Exit Sub
    If Application.CountA(Rows(sel.Row)) = 1 Then
        Cells(sel.Row, "B").Value = Application.Max(Columns("B")) + 1
    End If
End Sub

A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
16 sept. 2022 à 15:31

Bonjour,

Quel logiciel avez vous?
0
Réponse 2 / 2
yg_be Messages postés 23535 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 avril 2025 Ambassadeur 1 579
16 sept. 2022 à 15:55

bonjour,

Cela se produit parce que, quand tu changes la valeur en colonne B, cela déclenche l'exécution de ton code.

Si tu veux éviter cela:

        Application.EnableEvents = False
        Cells(sel.Row, "B").Value = Application.Max(Columns("B")) + 1
        Application.EnableEvents = True
0
mikacontact34 Messages postés 4 Date d'inscription vendredi 8 décembre 2006 Statut Membre Dernière intervention 6 octobre 2022
6 oct. 2022 à 10:39

C'est absolument parfait, je te remercie beaucoup !!!

0
yg_be Messages postés 23535 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 avril 2025 1 579 > mikacontact34 Messages postés 4 Date d'inscription vendredi 8 décembre 2006 Statut Membre Dernière intervention 6 octobre 2022
6 oct. 2022 à 10:58

peux-tu alors marquer la discussion comme résolue?

1