Création d'une macro avec plusieurs conditions

Bonjour,

Voila je suis debutant en language excel et je cherche a faire une macro. Cette macro a pour but de valider du texte dans 3 cellules et de marquer dans la cellule ou on lance la macro que tout est bien marquer dans les 3 cellules. Avec 1 cellule je ne rencontre pas de soucis de resulat, mais quand je met plusieurs cellule cela ne marche plus, voici mon code :

Sub Macro1()

'

' Macro1 Macro

'

'

If Range("D11") <> "" Then

If Range("D12") <> "" Then

If Range("D13") <> "" Then

ActiveCell.FormulaR1C1 = "Pret"

Else

ActiveCell.FormulaR1C1 = "Pas Pret"

End If

End If

End If

End Sub

Merci d'avance pour vos réponses

Ftomi

Bonjour,

Tu veux marquer "Pret" si les trois cellules D11, D12, D13 sont vides ou une des trois cellules ?

Amicalement

Dan

Bonjour,

Je voudrais que Pret se marque si les 3 cellules sont pleines sinon il il met Pas Pret

Ftomi

re,

Comme ceci :

Sub Macro1()
If Range("D11,D12,D13") <> "" Then
ActiveCell = "Pret"
Else
ActiveCell = "Pas Pret"
End If
End Sub

Amicalement

Dan

re,

merci, mais si une ou plusieurs cellule sont pleine et non pas les 3 cela ne marche plus, ca me met pret alors que les 3 cellules ne sont pas remplie, est-ce que vous voyez le truc ?

merci pour l'aide

Ftomi

re,

Essaie ceci :

Sub Macro1()
If Range("D11") <> "" And Range("D12") <> "" And Range("D13") <> "" Then
ActiveCell = "Pret"
Else
ActiveCell = "Pas Pret"
End If
End Sub

Amicalement

Dan

PS : si ton pb est terminé, n'oublie pas de mettre RESOLU. Explications ici --> https://forum.excel-pratique.com/viewtopic.php?t=13

Merci beaucoup ! je cherhais justement comment faire avec la fonction et !

Cdt

Ftomi

Rechercher des sujets similaires à "creation macro conditions"