Macro click sur le bouton

[Fred]

Bonsoir à toutes et à tous,

Voilà j'ai un bug et je pense savoir comment el résoudre mais je ne sais comment faire : alors voilà ce que je veux obtenir :
Lorsque j'appuis sur un bouton "Ajouter" la macro doit affecter un chiffre 1, le plus simple et que je vous donne la macro :

Sub RESULTAT()
'macro de RESULTAT
'sélection de la feuille
'sheet("STATS").select
If Range("A1") = 1 Then "La ici sur cette ligne à la place je voudrais que cela dise : si je clicke sur le bouton "ajouter" puis then et la suite"

Range("F4") = 1
Application.Wait Now + TimeValue("00:00:01")
Range("F4") = 0
End If
End Sub

Merci à toute et à tous.

 

[Zon]

Salut,


Pourquoi ne pas appeler la macro associée à ton bouton ajouter ?

If Range("A1") = 1 Then

call laMacroAssocieatonBouton


....



A+++

 

[Fred]

Je viens d'essayer de mettre : call PLUS_click()

Je ai mis donc :

Sub RESULTAT()
'macro de RESULTAT
'sélection de la feuille
'sheet("STATS").select
If call PLUS_click()
Range("F4") = 1
Application.Wait Now + TimeValue("00:00:01")
Range("F4") = 0
End If
End Sub


Mais la ligne if call PLUS_click() se met en rouge est j'ai une erreur lorsque j'appuie sur le bouton !!??

 

[Zon]

Re,

call plus_click 'ne fonctionne pas ???

 

[Fred]

Non cela ne marche pas, je viens de t'envoyer mon prog.

 

[Zon]

Re,


En discutant sur le chat je 'ai pas fais attention à ce que tu avais écrit

il te faut une condition dans ton if

Sub RESULTAT()
'macro de RESULTAT
'sélection de la feuille
'sheet("STATS").select
If Range("A1") = 1 Then "La ici sur cette ligne à la place je voudrais que cela dise : si je clicke sur le bouton "ajouter" puis then et la suite"

call PLUS_click

Range("F4") = 1
Application.Wait Now + TimeValue("00:00:01")
Range("F4") = 0
End If
End Sub

Le mieux ce serait de mettre le code qu'il y a dasn plus_cklick dans une macro plus classique

sub maMacro ()

'le code de plus_click

end sub


et à ton bouton tu associes maMacro