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
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
A voir également:
- Incrementation
- Incrémentation excel ne fonctionne pas ✓ - Forum Excel
- Renommer plusieurs fichiers incrémentation - Guide
- Excel incrémentation automatique numéro vba - Forum VB / VBA
- Excel copier formule avec incrémentation partielle ✓ - Forum Bureautique
- Souci d'incrémentation automatique sur EXCEL ✓ - Forum Excel
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
21 mai 2014 à 16:07
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
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
21 mai 2014 à 16:27
DSL mais je t'avoue ne pas avoir compris ton code
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
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
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
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
22 mai 2014 à 11:26
Bonjour,
Montrez le code que vous utilisez.
Montrez le code que vous utilisez.