Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel La derniere donnée en colonne A

La derniere donnée en colonne A

2 réponses
Avatar
mrossier
Bjr, Excel 2002/XP
La macro ci-dessous me copie les cellules K2 et L2 jusqu'a la ligne
55001, mais comment dire qu'elle copie ces 2 cellules SEULEMENT
jusqu'a la cerniere donnee en colonne A, (car j'ai qqfois 30000
lignes, ou 40000 et je dois deleter les lignes blanches a chaque
manipulation du fichier).? Mci d'avance


'Selection des colonnes K et L et copie de K1 et L1 jusqu'à la ligne
55001
'
Range("K2:L2").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("K2:L55001"),
Type:=xlFillDefault
Range("K2:L55001").Select
Range("A1").Select
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Ellimac
Bonjour,

der=range("a65000").end(xlup).row
Selection.AutoFill Destination:=Range("K2:L" & der),
Type:=xlFillDefault

Camille

-----Message d'origine-----
Bjr, Excel 2002/XP
La macro ci-dessous me copie les cellules K2 et L2
jusqu'a la ligne

55001, mais comment dire qu'elle copie ces 2 cellules
SEULEMENT

jusqu'a la cerniere donnee en colonne A, (car j'ai qqfois
30000

lignes, ou 40000 et je dois deleter les lignes blanches a
chaque

manipulation du fichier).? Mci d'avance


'Selection des colonnes K et L et copie de K1 et L1
jusqu'à la ligne

55001
'
Range("K2:L2").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("K2:L55001"),
Type:=xlFillDefault
Range("K2:L55001").Select
Range("A1").Select
.



Avatar
mrossier
Merci Camille,
Une épine de moins.


"Ellimac" wrote in message news:<0c4401c3dc40$85cdcaa0$...
Bonjour,

der=range("a65000").end(xlup).row
Selection.AutoFill Destination:=Range("K2:L" & der),
Type:=xlFillDefault

Camille

-----Message d'origine-----
Bjr, Excel 2002/XP
La macro ci-dessous me copie les cellules K2 et L2
jusqu'a la ligne

55001, mais comment dire qu'elle copie ces 2 cellules
SEULEMENT

jusqu'a la cerniere donnee en colonne A, (car j'ai qqfois
30000

lignes, ou 40000 et je dois deleter les lignes blanches a
chaque

manipulation du fichier).? Mci d'avance


'Selection des colonnes K et L et copie de K1 et L1
jusqu' la ligne

55001
'
Range("K2:L2").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("K2:L55001"),
Type:=xlFillDefault
Range("K2:L55001").Select
Range("A1").Select
.