Infos macro

[ironangel]

Bonjour,

j'aurais besoin de votre aide, j'ai réalisé un code simple sous excel qui consiste simplement à écrire shampooing dans la feuille 2 dans une case prédéfini, j'ai voulu copier ce code pour l'associé à un bouton en feuille 1, mais
cela ne réalise pas l'action demandé, il me dit qu'il y a une erreur:

voici le code que j'ai créé initialement:

Sub désignation_shampooing()
'
' désignation_shampooing Macro
'
'

'
Sheets("Feuil2").Select
Range("E8:F8").Select
ActiveCell.FormulaR1C1 = "Shampooing"
Sheets("Feuil1").Select
End Sub

Quand il s'agit de l'associer à mon bouton,

il bug à la ligne range (E8)...

Quelqu'un pourrait m'aider?

Merci bien

 

[sousou]

Re : Infos macro

bonjour
"
essaies avec sheets("feuil2).activate

 

[mutzik]

Re : Infos macro

bonjour,

en plus condensé :
sheets("Feuil2").range("E8")="shampoing"

 

[vbacrumble]

Re : Infos macro

Bonjour


Tu parles de prédéfini alors
ce qui permet de changer ensuite les valeurs Adresse et Valeur si besoin.

Const Adresse As String = "E8"
Const Valeur  As String = "shampoing"
Sub macro()
Sheets("Feuil1").Range(Adresse) = Valeur
Sheets("Feuil2").Range(Adresse) = Valeur
End Sub