incermentation ligne suite a validation userform Résolu/Fermé

Question

Bonjour, 
j ai un problème sur l’incrémentation d'un numéro  dans ma colonne a des lors que je valide mon userform 
mais cela me met un erreur 
pouvez vous m'aider ci dessous le Code
Option ExplicitPrivate Sub CommandButton1_Click()Dim NewLig As Long, c As Range, i As LongWith Sheets("suivi DI") NewLig = Range("A65536").End(xlUp).Row + 1  i = 0For Each c In NewLigc = ii = i + 1Next cEnd With Range("a" & NewLig).Value = i   Range("B" & NewLig).Value = ComboBox1        Range("C" & NewLig).Value = ComboBox2            Range("D" & NewLig).Value = ComboBox3                Range("E" & NewLig).Value = ComboBox4                    Range("F" & NewLig).Value = TextBox1                        Range("G" & NewLig).Value = ComboBox5                            Range("H" & NewLig).Value = TextBox2                            Range("I" & NewLig).Value = TextBox3  Unload UserForm1End Sub
merci par avance
Configuration: Windows / Firefox 42.0

gbinforme · Answer

Bonjour,
C'est quoi ce code :For Each c In NewLig
c = i
i = i + 1
Next c
 Tu ne peux rien obtenir puisque NewLig n'est qu'un numéro de ligne.
En supprimant cela devrait mieux fonctionner et tu remplace ainsi :
Range("a" & NewLig).Value = Application.WorksheetFunction.Max(Range("A:A")) + 1
 Toujours zen
La perfection est atteinte, non pas lorsqu'il n'y a plus rien à ajouter, mais lorsqu'il n'y a plus rien à retirer.  Antoine de Saint-Exupéry

Incermentation ligne suite a validation userform

1 réponse

Discussions similaires