Discussion :

[Invité(e)]

Bonjour à tous, je viens vous embetter avec un problème déjà pas mal de fois expliqué sur la toile, mais rien ne ma débloqué.

Mon problème est tout simple, je copie une plage de cellule d'un classeur vers un autre, mais je ne connais pas la plage précise, j'utilise donc (enfin j'essaye) la fonction xltoright et xlup.

Voici le petit bout de code qui va bien : je précise que à ce moment là, les deux classeurs sont déjà nommés et ouverts.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Dim Classeur_Maitre As String
    Dim Classeur_Slave As String
    Dim DerLigne As Long
    Dim DerColumn As Long
'quelques trucs avant qui fonctionne bien pour l'ouverture du fichier etc... Puis :
 
   DerLigne = Workbooks(Classeur_Slave).Sheets(2).Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
   DerColumn = Workbooks(Classeur_Slave).Sheets(2).Range("IV1").End(xlToLeft).Column
   Workbooks(Classeur_Slave).Sheets(2).Range("A1:" & DerColumn & DerLigne).Copy Workbooks(Classeur_Maitre).Sheets("Annuaire").Range("A1")
' c'est la ligne juste au dessus qui bloque.
 
'Poursuite de la macro.

Je précise que je peux faire sans, en copiant une grosse plage de cellule mais je voulais faire ça d'une façon plus "propre", mais apparemment je n'y arrive pas.

Merci

ps : dans le mode débogage, lorsque je passe ma souris sur les divers élément de la ligne, je retrouve les bonnes valeurs (nom de fichier, numéro de ligne,...) mais le nom de colonne au lieu d'afficher "E" par exemple, m'affiche "5" est-ce que viendrais de là ?

[Minick]

Salut,

C'est bien le numero de colonne qui coince.
Essaie comme ca:

Code :

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

1
2
3
With Workbooks(Classeur_Slave).Sheets(2)
    .Range(.Cells(1, 1), .Cells(derligne, DerColumn)).Copy Workbooks(Classeur_Maitre).Sheets("Annuaire").Range("A1")
End With

[Invité(e)]

Ça fonctionne très bien, merci.

C'est le Range qui ne supporte pas d'avoir un double & ? Ou juste la synthaxe entière qui est à éviter ?

Merci.

[Minick]

Re,

non non le range accepterait sans probleme une multitude de &.
C'est un probleme de synthaxe.
Imaginons que Derligne=5 et DerColumn=3

Code :

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

...Range("A1:" & DerColumn & DerLigne)...

est traduit comme ceci

Code :

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

...Range("A1:35")...

Donc ca coince...

[Invité(e)]

Ah oui forcément, donc obliger d'utiliser cells au lieu de range...

Faudra que je m'en souvienne, merci encore !