Recopie verticale d'un nombre indéterminé de cellu

Fermé
panta40 - Modifié le 7 juin 2018 à 15:32
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 - 7 juin 2018 à 18:39
Bonjour,
Je veux inverser l'ordre des lignes d'un tableau qui peut avoir selon les fois plus ou moins de lignes. Pour cela je sais créer une première colonne, un titre de colonne et les deux premiers numéros de ligne : 1 et 2. Comment poursuivre la numérotation des lignes (3, 4, 5....) jusqu'à la dernière ligne ? (Ceci fait je sais faire un tri des lignes dans l'ordre inverse de leurs numéros de ligne et renuméroter) .Il y a de l'autofill dans l'air mais je n'arrive pas à le coder malgré tous mes essais...
Tout ceci par une macro, bien sûr....
Merci !


4 réponses

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
7 juin 2018 à 15:41
Bonjour,

Pas besoin de macro :
sélectionner le 1 et le 2 et double cliques sur la poignée de recopie (petite croix noire qui apparait lorsqu'on position la souris sur la petite case noire situe en bas à droite du contour de la zone sélectionnée)
0
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
Modifié le 7 juin 2018 à 15:47
Bonjour

Pour cela je sais créer une première colonne, un titre de colonne et les deux premiers numéros de ligne : 1 et 2. Comment poursuivre la numérotation des lignes (3, 4, 5....) jusqu'à la dernière ligne ?
Pas tout compris
Mais si vba requis
Pour continuer jusqu'à la dernière ligne de la colonne B

Dim lifin As Long
lifin = Range("B" & Rows.Count).End(xlUp).Row
Range("A2:A3").Select
Selection.AutoFill Destination:=Range("A2:A" & lifin), Type:=xlFillDefault

Cdlmnt
0
Merci beaucoup.C'est exactement ce que je voulais! Bravo !!!
0
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
7 juin 2018 à 18:39
De rien,

Si c'est fini, peux tu mettre le sujet à résolu (en haut à droite, la roue dentée)

Bonne soirée
0