Executer Macro Si cellules <= 13

Bonsoir à tous, et merci d'avance,

Je débute et j'ai besoin d'aide pour ceci pour exécuter la macro suivante :

si cellules D11:G11<= 13 alors exécuter macro1_4parties sinon il ne se passe rien

En sachant que la macro1_4parties fonctionne parfaitement

Je ne pense pas que ce soit très compliqué mais je n'y arrive pas.

Merci encore.

Le Palus

bonjour Lepalus le forum

tu veux sans doute dire la somme(D11:G11)<= 13 ???

a te relire

a+

Papou

Bonsoir Papou et merci de t'intéresser à mon message,

Non les chiffres de chaque cellule : D11,E11, F11 et G11 doivent être égal ou inférieur au chiffre 13.

Le Palus

Re Palus le forum

oui donc les conditions c'est que toutes tes cellules de D11,E11, F11 et G11 doivent être inférieur ou égal à 13

si une seule des cellules ne répond pas à cette condition on ne lance pas c'est ça?? si c'est bien les conditions voilà en dessous

a+

papou

Private Sub Worksheet_Change(ByVal Target As Range)
    If Cells(11, 4) <= 13 And Cells(11, 5) <= 13 And Cells(11, 6) <= 13 And Cells(11, 7) <= 13 Then
        Call macro1_4parties
    End If
End Sub

Bonjour Papou et merci pour ta réponse rapide,

Cela ne fonctionne pas j'ai le message suivant : erreur de compilation, end sub attendu,

Je te mets la macro :

Sub Macro3_Debutconcours()

' Macro3_Debutconcours Macro

Private Sub Worksheet_Change(ByVal Target As Range)

If Cells(11, 4) <= 13 And Cells(11, 5) <= 13 And Cells(11, 6) <= 13 And Cells(11, 7) <= 13 Then

Call Macro1_4parties

End If

End Sub

Cordialement,

Le Palus

Bonjour Palus le forum

je ne sais pas si tu le fais exprès alors !!!!!! voilà

a+

papou

Sub Macro3_Debutconcours()
          If Cells(11, 4) <= 13 And Cells(11, 5) <= 13 And Cells(11, 6) <= 13 And Cells(11, 7) <= 13 Then
             Call Macro1_4parties
         End If
End Sub

Re bonjour Papou,

C'est bon, et je ne le faisais pas exprès. en tout cas je te remercie de ta gentillesse.

Je te souhaite une bonne journée.

Cordialement,

Le Palus

Re Bonjour Palus le forum

Palus tu peux cliquer sur le Petit V vert pour signifier Résolu STP

Pour le faire exprès, je m'en doutais c'est pour cela que j'ai répondu une deuxième fois, mais si tu veux la réponse était si facile à adapter d’où ma surprise que tu n'y arrives pas seul.

a+

papou

Bonjour Papou,

Il n'y a pas de soucis, mais vois-tu je ramais depuis quelques heures et je ne savais plus trop où j'habitais.

Je te remercie encore . Maintenant je vais encore essayé de progresser sur VBA.

Bonne continuation,

Le Palus