Signaler

Incermentation ligne suite a validation userform [Résolu]

Posez votre question cedric0715 172Messages postés mercredi 25 février 2015Date d'inscription 20 février 2017 Dernière intervention - Dernière réponse le 13 janv. 2017 à 10:41 par cedric0715
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 Explicit

Private Sub CommandButton1_Click()
Dim NewLig As Long, c As Range, i As Long
With Sheets("suivi DI")

NewLig = Range("A65536").End(xlUp).Row + 1

i = 0
For Each c In NewLig
c = i
i = i + 1
Next c

End 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 UserForm1
End Sub


merci par avance
Afficher la suite 
Utile
+0
moins plus
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
cedric0715 172Messages postés mercredi 25 février 2015Date d'inscription 20 février 2017 Dernière intervention - 13 janv. 2017 à 10:37
j ai fait cela mais sa fonctionne toujours pas
Option Explicit

Private Sub CommandButton1_Click()
Dim NewLig As Long
With Sheets("suivi DI")

NewLig = Range("A65536").End(xlUp).Row + 1



End With
Range("a" & NewLig).Value=Newlig
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 UserForm1
End Sub
Répondre
cedric0715 172Messages postés mercredi 25 février 2015Date d'inscription 20 février 2017 Dernière intervention - 13 janv. 2017 à 10:41
désoler je n'avait pas vu
merci
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !