Incrementation

Fermé
neymartuunsi Messages postés 2 Date d'inscription mercredi 21 mai 2014 Statut Membre Dernière intervention 21 mai 2014 - 21 mai 2014 à 15:20
f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 - 22 mai 2014 à 11:26
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 ! :)

4 réponses

f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 1 713
21 mai 2014 à 16:07
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
0
neymartuunsi Messages postés 2 Date d'inscription mercredi 21 mai 2014 Statut Membre Dernière intervention 21 mai 2014
21 mai 2014 à 16:27
DSL mais je t'avoue ne pas avoir compris ton code
0
f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 1 713
21 mai 2014 à 17:12
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
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
0
neymartuunsi
22 mai 2014 à 10:32
Merci a toi
Après avoir mise en place ta formule je reste malheureusement a mon problème initiale
0
neymartuunsi
22 mai 2014 à 10:32
cet a dire qu'il met bien se que je remplis dans mon formulaire mais pas d'incrémentation
0
f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 1 713
22 mai 2014 à 11:26
Bonjour,

Montrez le code que vous utilisez.
0
neymartuunsi
22 mai 2014 à 10:35
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
0