Discussion :

[veriecherie]

Bonjour à tous,

J'utilise cette ligne de code plusieurs fois pour copier différentes colonnes :

Code :

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

1
2
Set maplage = Range("Q29:" & Range("Q1000").End(xlUp).Address).SpecialCells(xlCellTypeVisible)
    maplage.Copy

Puis pour coller, j'utilise ceci :

Code :

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

1
2
3
4
5
With Workbooks("mise en location.xls")
        .Activate
        .Sheets("Feuil1").Range("G6").Select
        .ActiveSheet.Paste
    End With

Ce code fonctionne correctement à l'acception de 2 colonnes, au lieu de me copier/coller de la ligne 29 à 1000 il me copie/colle de la ligne 1 à 29... J'ai pourtant la même ligne de code en changeant seulement le nom des colonnes... Je ne vois pas ce qui foire... Voilà le code qui ne fonctionne pas comme attendu :

Code :

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

1
2
3
4
5
6
7
8
Set maplage = Range("AX29:" & Range("AX1000").End(xlUp).Address).SpecialCells(xlCellTypeVisible)
    maplage.Copy
    'Colle sur fichier "mise en location"
    With Workbooks("mise en location.xls")
        .Activate
        .Sheets("Feuil1").Range("J6").Select
        .ActiveSheet.Paste
    End With

Sauriez vous m'éclairer s'il vous plaît ? J'ai tellement le nez dessus que je ne vois pas/plus la petite différence entre mes 2 codes ?

Merci
Bonne après midi

[Supermichou]

Bonjour à tous,

Code :

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

Set maplage = Range("AX29:" & Range("AX1000").End(xlUp).Address).SpecialCells(xlCellTypeVisible)

Bonjour,

La seule différence vient peut être du End(xlUp) qui ne trouvant rien, renvoie 1 et donc la première borne (29) devient la seconde car 29>1 et il ne reste que les lignes 1 à 29.

Cdlt,

SM

[veriecherie]

Bonjour,

La seule différence vient peut être du End(xlUp) qui ne trouvant rien, renvoie 1 et donc la première borne (29) devient la seconde car 29>1 et il ne reste que les lignes 1 à 29.

Cdlt,

SM

Merci pour ton aide Supermichou, j'ai pourtant bien des données dans ma colonne AX à partir de la ligne 29...

[veriecherie]

ah petit éclair ! Les 2 colonnes pour lesquelles le copie/colle ne fonctionne pas ont des cellules contenant une fonction ! ça viendrait peut être de ça ? Mon bout de code fonctionne pour un contenu de cellule classique mais pas pour des cellules contenant une formule ?

[Ben_L]

Bonjour,

Dans quel onglet se trouve la colonne AX à laquelle vous souhaitez faire référence ?
Il se peut que ce ne soit pas cet onglet qui soit actif au moment où votre code est exécuté.

Cordialement

[veriecherie]

Bonjour,

Dans quel onglet se trouve la colonne AX à laquelle vous souhaitez faire référence ?
Il se peut que ce ne soit pas cet onglet qui soit actif au moment où votre code est exécuté.

Cordialement

Bonjour Ben_L,
L'onglet est bien actif car il me copie des données présentes sur cet onglet.