Incrementation
neymartuunsi
Messages postés
2
Statut
Membre
-
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
Bonjour a tous
Je suis débutant en vba et la je suis face a un pb je suis dans une feuille ou je rempli un formulaire se que je saisie dans le formulaire je doit le copier dans un tableau d'une autre feuille mais quand je replis pour la premier fois mon formulaire il le copie ensuite bien dans la première ligne du tableau mais quand je le remplis pour la 2eme 3eme .. il le copie aussi dans la première et efface les données du précédent formulaire remplis j'aimerai bien savoir comment incrémenter a chaque fois qu'on remplis un formulaire il le met sur la ligne de en dessous
Voila merci d'avance ! :)
Je suis débutant en vba et la je suis face a un pb je suis dans une feuille ou je rempli un formulaire se que je saisie dans le formulaire je doit le copier dans un tableau d'une autre feuille mais quand je replis pour la premier fois mon formulaire il le copie ensuite bien dans la première ligne du tableau mais quand je le remplis pour la 2eme 3eme .. il le copie aussi dans la première et efface les données du précédent formulaire remplis j'aimerai bien savoir comment incrémenter a chaque fois qu'on remplis un formulaire il le met sur la ligne de en dessous
Voila merci d'avance ! :)
4 réponses
Bonjour,
un exemple de code:
un exemple de code:
Sub test()
'adaptez le nom de la feuille, la colonne. Debut d'enregistrement ligne 2
With Worksheets("feuil1")
'premiere cellule vide colonne A
PCVide = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & PCVide) = Infos1
.Range("B" & PCVide) = Infos2
.Range("C" & PCVide) = Infos3
.Range("D" & PCVide) = Infos4
End With
End Sub
Re,
pour aller a la ligne suivante d'une colonne sur une feuille, il faut chercher la derniere cellule non vide et faire un plus 1: ici je prend la feuille 1 colonne A
PCVide nous donne la ligne de fin de tableau
ainsi nous pouvons ecrire les infos dans les cellules de cette ligne
With end With permet de definir un bloc d'instructions lie ici a la feuille "feuil1" d'ou les . devant Range
pour aller a la ligne suivante d'une colonne sur une feuille, il faut chercher la derniere cellule non vide et faire un plus 1: ici je prend la feuille 1 colonne A
With Worksheets("feuil1")
PCVide = .Range("A" & Rows.Count).End(xlUp).Row + 1
PCVide nous donne la ligne de fin de tableau
ainsi nous pouvons ecrire les infos dans les cellules de cette ligne
.Range("A" & PCVide) = Infos1
.Range("B" & PCVide) = Infos2
.Range("C" & PCVide) = Infos3
.Range("D" & PCVide) = Infos4
end With
With end With permet de definir un bloc d'instructions lie ici a la feuille "feuil1" d'ou les . devant Range
