Menu

Incermentation ligne suite a validation userform [Résolu/Fermé]

cedric0715 210 Messages postés mercredi 25 février 2015Date d'inscription 6 mai 2018 Dernière intervention - 13 janv. 2017 à 09:49 - Dernière réponse : cedric0715 210 Messages postés mercredi 25 février 2015Date d'inscription 6 mai 2018 Dernière intervention
- 13 janv. 2017 à 10:41
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 

3 réponses

gbinforme 15097 Messages postés lundi 18 octobre 2004Date d'inscriptionContributeurStatut 23 juin 2018 Dernière intervention - Modifié par gbinforme le 13/01/2017 à 10:23
0
Merci
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 210 Messages postés mercredi 25 février 2015Date d'inscription 6 mai 2018 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
cedric0715 210 Messages postés mercredi 25 février 2015Date d'inscription 6 mai 2018 Dernière intervention - 13 janv. 2017 à 10:41
désoler je n'avait pas vu
merci