Incrementation
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:
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 -
DSL mais je t'avoue ne pas avoir compris ton code
-
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 AWith 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 -
Merci a toi
après avoir mise en place ta formule je reste malheureusement je reste a mon problème initiale cet a dire qu'il met bien se que je remplis dans mon formulaire mais pas d'incrémentation
