remplacer un bouton

[Olyxier]

Bonjour le forum
quel code faut il utiliser pour que lorsque j'écris un 1 dans la cellule F41 la macro 1 s'execute . si je tappe 5 dans la meme cellule (F41) la macros 5 s'execute ainsi de suite merci à vous pour votre aide cordialement

 

[Pierrot93]

Re : remplacer un bouton

Bonjour Olyxier

regarde le code ci dessous, à placer dans le module de la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Address = "$F$41" Then
    If Target.Value = 1 Then
        nomdetamacro1
        ElseIf Target.Value = 2 Then nomdetamacro2
        ElseIf Target.Value = 3 Then nomdetamacro3
    End If
End If
End Sub

bon après midi
@+

 

[Olyxier]

Re : remplacer un bouton

bonjour pierrot dans la feuille j'execute deja ce code
Private Sub Worksheet_Change(ByVal Target As Range)

'si la variable test est vrai, sort de la procédure. Sinon à chaque changement
'(cleracontente, etc...) la procédure est relancée
If test = True Then Exit Sub
test = True 'définit la variable test

If Target.Address(0, 0) = "F39" Then

Select Case Range("F39").Value

et si je remet t'on code cela declanche le debogeure je vais essaier de bidouiller mais si tu as la solluce cela m'aderais bien merci

 

[Pierrot93]

Re : remplacer un bouton

Re

essaye comme ci dessous, si j'ai bien compris...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Address = "$F$41" Then
    Application.EnableEvents = False
    If Target.Value = 1 Then
        nomdetamacro1
        ElseIf Target.Value = 2 Then nomdetamacro2
        ElseIf Target.Value = 3 Then nomdetamacro3
    End If
    Application.EnableEvents = True
End If
End Sub

@+

Edition : attention pour une même feuille, dans son module, il ne peut y avoir qu'une seule procédure
"Private Sub Worksheet_Change"

 

[Olyxier]

Re : remplacer un bouton

désolé pierrot mais le débogueur se declanche toujours et me dit
noms ambigue détecté:Worksheet_Change

 

[Pierrot93]

Re : remplacer un bouton

Re
tu dois avoir 2 pocédures portant le même nom, as tu vu l'édition de mon post précédent ?

@+

 

[Olyxier]

Re : remplacer un bouton

oui je l'ai vu
mais si je tappe ton code sans le nom comme cela

If Target.Count = 1 And Target.Address = "$F$41" Then
Application.EnableEvents = False
If Target.Value = 1 Then
nomdetamacro1
ElseIf Target.Value = 2 Then nomdetamacro2
ElseIf Target.Value = 3 Then nomdetamacro3
End If
Application.EnableEvents = True
End If
End Sub
le debogueur me dit erreur de compilation
sub ou function non definie
j'utilise deja ce genre de code comme je te lais signalé plus haut
merci encore pour t on aide

 

[Pierrot93]

Re : remplacer un bouton

Re

il faut remplacer les "nomdetamacro1" 2 et 3 par les noms des macros que tu veux lancer...

précédemment du disais :

désolé pierrot mais le débogueur se declanche toujours et me dit
noms ambigue détecté:Worksheet_Change

d'ou ma réponse...

@+

 

[Olyxier]

Re : remplacer un bouton

bien je viens de faire ce que tu ma dit et maintenant le débogueur me dit bloc if sans End if allors qu'il y est ??????

 

[Pierrot93]

Re : remplacer un bouton

Re

mets le classeur en pièce jointe car là....sans le code complet... difficile...