Message dans cellule si :

[davidp]

Bonjour le forum,

merci d'avance à ceux qui pourront m'aider.


je cherche une macro qui me permettrait d'afficher dans la feuille "test" dans la cellule C2 le texte "merci" à condition qu'une cellule de la plage C5 à C20 (de la même feuille)est pleine .

Bonne journée

Pascal

 

[bqtr]

Re : Message dans cellule si :

Re, Bonjour JCGL, mécano41, Staple1600

En mélangeant un peu toutes les idées on peut arrivé à ca :

Private Sub Worksheet_Change(ByVal Target As Range)
     Range("C2") = IIf(WorksheetFunction.CountA(Range("C5:C20")) <> 0, "Merci", "")
End Sub

Ou bien

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Application.Intersect(Target, Range("C5:C20")) Is Nothing Then Range("C2") = IIf(WorksheetFunction.CountA(Range("C5:C20")) <> 0, "Merci", "")
End Sub

Dans le 1er cas la procédure se déclenchera si n'importe quelle cellule de la feuille est modifiée, alors que la deuxième solution cible la plage.

Bonne fin de journée

 

[davidp]

Re : Message dans cellule si :

Merci pour le nouveau code,

j'ai testé toute la plage et cela fonctionne .

Bonne soirée à tous et merci

Pascal