[VBA-E] Excel Pb dans mon code

Bonjour,

J'ai un souci dans le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9

Sheets("LISTE").Select NOM1 = Range("D8") Range("E8").Select Selection.Copy   Sheets("" & NOM1 & "").Select Range("B3").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False

---

Ce code marche jusqu'a la selection de la cellule B3. J'ai une erreur qui me dit que la méthode select de la classe range a échoué. Or, je ne comprend pas je demande simplement la selection d'une cellule pour pouvoir y coller une valeur.
Si vous avez des idées merci

on peu savoir le contenu de ta variable NOM1.. à ce moment la ?

La variable NOM1 contient le nom d'une personne. (je suis pas un pro en vb mais je pense que c'est une variable string non ?)

En fait tout ça marche, j'arrive a selectionner la feuille correspondant au nom de la personne (NOM1), j'arrive a copier sur cette feuille ma valeur correspondante (sur la cellule en cours), mais je n'arrive pas a choisir une cellule précise sur cette feuille pour pouvoir coller ma valeur.

essai de remplacer .. le sheets(..).Select.. par Sheet(..).activate

Alors la je suis sur le cul !!!

En fait je crois qu'il y a un bug d'excel

Mon code marche tres bien lorsque je le lance a partir d'un bouton personnalisé de menu, mais lorsque je le lance avec un bouton de commande sur ma feuille rien a faire ! le range.select ne marche pas.8O

Donc pour remédier au pb je me suis servi d'un bouton de formulaire et la comme par magie tout marche ...

merci pour avoir tenté de m'aider ++