Discussion :

[flagfight]

Bonjour,

J'ai un souci dans le code suivant :

Code :

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

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

[SfJ5Rpw8]

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

[flagfight]

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.

[SfJ5Rpw8]

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

[flagfight]

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.

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