Macro si

[Fony]

Bonsoir,
Je suis débutant ! J’ai fait une macro pour copier des cellules fusionnées, elle fonctionne :
Sub Macro20()
'
' Macro20 Macro
' Macro enregistrée le 17/06/2009


Range("AL27:AR28").Select
Selection.Copy
Range("N18:T19").Select
Range("N19").Activate
ActiveSheet.Paste
Range("K27").Select

End Sub
mais j’aimerais qu’elle se lance quand la valeur de la cellule AL =20

If Feuil2.Range("$AL$19").Value = 20 Then Module1.Macro20
Le problème la macro tourne en boucle
Merci de votre aide

 

[Robert]

Re : Macro si

Bonsoir Fony, bonsoir le forum,

Tout d'abord bienvenu dans le forum.

Essaie comme ça :

Sub Macro20()
If Feuil2.Range("$AL$19").Value = 20 Then
    Range("AL27:AR28").Copy
    Range("N18:T19").Select
    Range("N19").Activate
    ActiveSheet.Paste
    Range("K27").Select
End If
End Sub

 

[Fony]

Re : Macro si

Bonsoir et merci Robert,

Cela continue à mettre du temps, mais j’ai oublié de dire que le code est dans :
Private Sub Worksheet_Change(ByVal Target As Range)
Et je ne sais pas si cela est bon
Fony

 

[Hulk]

Re : Macro si

Hello Fony, Robert,

Dans le Change de la feuille tu mets comme ceci

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Not Application.Intersect(Target, [AL19]) Is Nothing Then
        If Target.Value = 20 Then Macro20
    End If

End Sub

Pas testé, mais ça devrait jouer.

Cdt, Hulk.

 

[Pierrot93]

Re : Macro si

Bonjour Fony, Robert, Hulk

pour éviter que la procédure événementielle ne boucle :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$AL$19" And Target.Count = 1 Then
        If Target.Value = 20 Then
            Application.EnableEvents = False
            Macro20
            Application.EnableEvents = True
        End If
    End If
End Sub

bonne journée
@+

 

[Fony]

Re : Macro si

Bonjour les amis et grands mercis pour votre aide.
La macro ne se lance que si j’entre "20" ds "AL19
Mais il faut que la macro se lance automatiquement quand la cellule "AL19" a comme résultat 20, cette cellule a une formule: SI .....

Je vous souhaite à tous une agréable journée,
Fony