Discussion :

[Yullll]

Bonjour,

Je rencontre un petit problème avec ce code. Desfois il marche et des fois il ne marche pas et j'ai le message d'erreur:
Erreur d'exécution '1004': La méthode Select de la classe Range a échoué.
Je ne comprend vraiment pas ... Le code permet de copier une plage de cellules a partir de la premiere colonne dispo dans une autre feuille.
Pouvez vous m'aider ?

Code :

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

1
2
3
4
5
6
7
8
 Dim WsS As Worksheet
 Dim WsC As Worksheet
     Set WsS = Worksheets("Analyse BAAN-SAPHIR"): Set WsC = Worksheets("Analyse")
     WsS.Range("B3:L7000").Copy
     WsC.Cells(4, WsC.Cells(4, Columns.Count).End(xlToLeft).Column + 1).Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
     Set WsS = Nothing: Set WsC = Nothing

[ZX12R]

Bonjour,

Précise le texte du msg 1004 (je ne connais po ttes les erreurs par coeur !!!) et la ligne qui bloque...

A+

[cerede2000]

@ZX12R : Il l'as pourtant indiqué.....

Erreur d'exécution '1004': La méthode Select de la classe Range a échoué.

Et comme il n'y a qu'un seul select dans son code....

Code :

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

WsC.Cells(4, WsC.Cells(4, Columns.Count).End(xlToLeft).Column + 1).Select

[Yullll]

Oui c'est exactement ca cerede2000 ! J'ai cette ligne qui bloque mais je ne vois pas pourquoi il trouve pas la cellule a selectionner ..

[cerede2000]

Soit dit en passant, le Select ne sert a rien, ici en tout cas.....
Car la méthode .PasteSpecial s'applique directement à une Range, par conséquent ceci suffit :

Code :

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

WsC.Cells(4, WsC.Cells(4, Columns.Count).End(xlToLeft).Column + 1).PasteSpecialPaste:=xlPasteValues

Et l'erreur 1004 que tu obtiens viens justement de ton Select, car au moment ou le code est exécuté tu n'est pas sur la feuille Analyse BAAN-SAPHIR et donc il n'est pas possible de faire un .Select
Donc ton problème est résolu avec ma ligne au dessus :

Code :

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

1
2
3
4
5
6
 Dim WsS As Worksheet
 Dim WsC As Worksheet
     Set WsS = Worksheets("Analyse BAAN-SAPHIR"): Set WsC = Worksheets("Analyse")
     WsS.Range("B3:L7000").Copy
     WsC.Cells(4, WsC.Cells(4, Columns.Count).End(xlToLeft).Column + 1).PasteSpecialPaste:=xlPasteValues
     Set WsS1 = Nothing: Set WsC1 = Nothing

[mathspountz]

Hypothèse : le problème survient peut-être lorsque WsC n'est pas active ?

[Yullll]

Un petit :

Code :

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

Worksheets("Analyse").Activate

et le tour est joué

Merci beaucoup mathspountz !!

Oui j'avais séparé tout ça car j'étais entrain d'essayer de chercher d'ou le problème venait !
Je vais modifié tout ça en tout cas problème résolu.

Merci a tous

[cerede2000]

Un petit :

Code :

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

Worksheets("Analyse").Activate

et le tour est joué

Merci beaucoup mathspountz !!

Oui j'avais séparé tout ça car j'étais entrain d'essayer de chercher d'ou le problème venait !
Je vais modifié tout ça en tout cas problème résolu.

Merci a tous

Si tu veux continuer à faire du code lent donc non performant libre à toi........

[ZX12R]

Bonjour,

Plutot d'accord avec l'hypothèse de MathsSpountz. Ajoute Wsc.activate avant la ligne de collage.

Du coup, à priori, Wsc.Cells(... peut être réduit à Cells(...

A voir.

Cordialement.
Bruno