VBA incrémentation

Question

Je ne suis pas un expert sur excel VBA, disons que je débute plutôt. J'ai essayé de faire une macro mais je n'arrive pas à créer le code pour le faire. Le but serait d'incrémenter des valeurs de +1 de certaines colonnes. En gros un tableau: Identifiant I Nom A I Valeur A I Nom B I Valeur B Il y aurai un boutton et un cadre de saisie et lorsque on met l'Identifiant ça incrémente en +1 la Valeur A ET la Valeur B et si je saisie uniquement le Nom A ou B ça incrémente la valeur A OU B. Je sais pas si je suis clair dans mes explications... En fichier joint une idée du tableau que j'aimerai faire Y a t'il des prérequis nécessaires pour y arriver? Merci d'avance de vos réponses et de votre aide! Bonne journée...

MFerrand · Answer

Pas vraiment ! Qu'est-ce qui s'incrémente exactement ? Avoir une colonne A préincrémentée sur des lignes par ailleurs vide ne sert qu'à augmenter inutilement la taille du fichier... Cordialement...

eriiic · Answer

Ajoute les ident sans sauter de ligne, une nouvelle ligne se créera automatiquement. Un double-clic en A:E incrémentera le compteur concerné ou les 2 si c'est l'ID. eric...

Curulis · Answer

Re MFerrand,

quand on ne sait pas, on imagine!

Attention miac de ne pas virer à mic-mac!

Remplis tes colonnes comme décrit et raconte-bous!

Private Sub Worksheet_Change(ByVal Target As Range)
'
Application.EnableEvents = False
'
If Not Intersect(Target, Range("A:A")) Is Nothing Then
    Range("C" & Target.Row).Value = WorksheetFunction.Max(Range("C:C")) + 1
    Range("E" & Target.Row).Value = WorksheetFunction.Max(Range("E:E")) + 1
End If
If Not Intersect(Target, Range("B:B")) Is Nothing Then Range("C" & Target.Row).Value = WorksheetFunction.Max(Range("C:C")) + 1
If Not Intersect(Target, Range("D:D")) Is Nothing Then Range("E" & Target.Row).Value = WorksheetFunction.Max(Range("E:E")) + 1
'
Application.EnableEvents = True
'
End Sub

A+

237excel-incrementation-2.xlsm (22.87 Ko)