Trouver la dernière cellule automatiquement
qidikizzy
Messages postés
12
Statut
Membre
-
qidikizzy Messages postés 12 Statut Membre -
qidikizzy Messages postés 12 Statut Membre -
Bonjour,
Je suis en train d'éditer une macro pour copier plusieurs feuilles sur une même feuille. Pour la continuité d'enregistrement des données, la plage sélectionnée et copiée depuis la feuille d’origine sur l'autre feuille est à entrer manuellement chaque fois. Cela signifie que la dernière cellule de la plage est à changer chaque fois dans la macro.
La macro est la suite ; la deuxième ligne ("L21") doit être changée à chaque fois que des données sont ajoutées dans la feuille "cutting".
Sheets("cutting").Select
Range("A2:L21").Select
Selection.Copy
Sheets("copie").Select
Range("A2").Select
Selection.Insert Shift:=xlDown
Range("A2:D65536").Select
Application.CutCopyMode = False
Selection.UnMerge
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Mes compétences de programmation sont limitées ; néanmoins, je souhaiterai quand même avoir cette dernière cellule automatiquement, est-ce possible? (excel 2003)
Je suis en train d'éditer une macro pour copier plusieurs feuilles sur une même feuille. Pour la continuité d'enregistrement des données, la plage sélectionnée et copiée depuis la feuille d’origine sur l'autre feuille est à entrer manuellement chaque fois. Cela signifie que la dernière cellule de la plage est à changer chaque fois dans la macro.
La macro est la suite ; la deuxième ligne ("L21") doit être changée à chaque fois que des données sont ajoutées dans la feuille "cutting".
Sheets("cutting").Select
Range("A2:L21").Select
Selection.Copy
Sheets("copie").Select
Range("A2").Select
Selection.Insert Shift:=xlDown
Range("A2:D65536").Select
Application.CutCopyMode = False
Selection.UnMerge
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Mes compétences de programmation sont limitées ; néanmoins, je souhaiterai quand même avoir cette dernière cellule automatiquement, est-ce possible? (excel 2003)
A voir également:
- Trouver la dernière cellule automatiquement
- Trouver adresse mac - Guide
- Supprimer dernière page word - Guide
- Dernière version chrome - Accueil - Applications & Logiciels
- Ou trouver la corbeille - Guide
- Ou trouver l'adresse ip - Guide
3 réponses
Bonjour,
Pour trouver la dernière ligne occupée dans une colonne
dim derlig as long
derlig=range("A65536").end(xlup).row
et donc ta cellule
range("A2:L" & derlig)
ou puriste VBA
range(cells(2,1), cells(derlig,12))
bonne journée
Michel
Pour trouver la dernière ligne occupée dans une colonne
dim derlig as long
derlig=range("A65536").end(xlup).row
et donc ta cellule
range("A2:L" & derlig)
ou puriste VBA
range(cells(2,1), cells(derlig,12))
bonne journée
Michel
qidikizzy
Messages postés
12
Statut
Membre
1
c'est bon mtn, merci bcp.