Problème de code

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:

---

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

---

Bonjour,

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

A+

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

Citation:

---

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:

---

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

---

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 ..

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

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:

---

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:

---

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

---

Un petit :

Code:

---

Worksheets("Analyse").Activate

---

et le tour est joué :ptdr:

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

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

Citation:

---

Envoyé par Yullll

Un petit :

Code:

---

Worksheets("Analyse").Activate

---

et le tour est joué :ptdr:

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

---

:mur::pleure::vomi:

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