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
