Discussion :

[sergio_gr66]

Bonjour a tous et merci pour votre aide.
J’ai besoin chercher le nom « Dia18 » et « dia10 » dans un fichier Excel, dans non importe quelle colonne mais sur la ligne 1 (B1, C1, D1, X1). Et aussi j’ai besoin copier et coller tous les valeurs depuis la ligne 2 jusqu’à la dernière valeur.
Le code que j’ai déjà écrit est le suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim u as Integer
for u = 1 to 60
windows("CATALOGUE.XLS").activateprevious
sheets("amd").select
if range(cells(1,u)) = "Dia18" or "dia10" then
range(cells(2,u)).select
selection.copy
windows("CATALOGUE.XLS").activate
sheets("CP ou EM").select
range("m" & range("m" & rows.count).end(xlup).row +1).pastespecial paste:=xlpastevalues, operations:=xlnone, skipblanks_
:=true, transponse:=false
end if
next u

Quand je lance la macro, il s'arrêt et me montre le suivante message:

Erreur d'exécution '10044:
La méthode 'Range' de l'objet '_Global' a échoué

Merci beaucoup

[Krovax]

Outre le fait que ton code est plein de select tu pourrais peut être expliquer ce qui ne va pas dedans non?
En tout cas un lien pour connaitre la derniere colonne (mieu que daller arbitrairement jusqu'à la 60ème)
http://www.developpez.net/forums/d45...gnees-feuille/

Sinon regarde l'aide sur la fonction FIND ca ira beaucoup plus vite