Discussion :

[LILY230]

Bonjour,

je souhaite selectionner toute les ligne d'une colonne sans s'arrêter à une ligne fixe pour que mon cod s'adapte à chaque fichier généré peu importe le nombre de ligne.
Voici les codes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("Obligations conventionnelles").Range("A3:A488").copy Sheets("Obligations conventionelles 2").Range("A1")
Sheets("Obligations conventionnelles").Range("B3:B488").copy Sheets("Obligations conventionelles 2").Range("B1")

je sais qu'il ya xlend up mais je sais pas comment l'adapter dans ce contexte

Quelqu'un pourrait m'aider svp?

[munity]

ceci pourra peut être t'aider
ce code récupérer la dernière ligne d'une colonne
en l'occurence la colonne 1 (en rouge)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Ligne = .Cells(Rows.Count, 1).End(xlUp).Row

et pour copier donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sheets("Obligations conventionnelles").Range(cells(3,1),cells(Ligne,2)).copy Sheets("Obligations conventionelles 2").Range("A1").PasteSpecial Paste:=xlPasteValues

ce code te récupère tes deux colonnes (en gérant dynamiquement le nombre de ligne à récuperer et te colle les valeurs sur l'autre feuille

en espérant pouvoir t'aider

david

[LILY230]

ca ne fonctionne pas

[munity]

quel est ton message d'erreur

[LILY230]

erreur de compilation

référence incorrecte ou non qualifiée

[munity]

la ca doit fonctionner j'avais oublié d'enlever le point devant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Ligne = .Cells(Rows.Count, 1).End(xlUp).Row

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub test()
Ligne = Cells(Rows.Count, 1).End(xlUp).Row
 
Sheets("Feuil1").Range(Cells(1, 1), Cells(Ligne, 2)).Copy
Sheets("Feuil2").Range("A1").PasteSpecial Paste:=xlPasteValues
 
End Sub

[patricktoulon]

re

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With Sheets("Obligations conventionnelles"): .Range("A3:B" & .Cells(Rows.Count, 1).End(xlUp).Row).Copy Sheets("Obligations conventionelles 2").Range("A1"): End With