macro if et end if a reduire

[GHISLAIN]

bonsoir le forum,

je cherche a reduire une macro :

If Sheets("sante").Range("a3") <> "" Or Sheets("sante").Range("b3") <> "" _
Or Sheets("sante").Range("c3") <> "" Or Sheets("sante").Range("d3") <> "" _
Or Sheets("sante").Range("e3") <> "" Or Sheets("sante").Range("f3") <> "" _
Or Sheets("sante").Range("g3") <> "" Or Sheets("sante").Range("h3") <> "" _
Or Sheets("sante").Range("i3") <> "" Or Sheets("sante").Range("j3") <> "" _
Or Sheets("sante").Range("k3") <> "" Or Sheets("sante").Range("l3") <> "" _
Or Sheets("sante").Range("m3") <> "" Or Sheets("sante").Range("n3") <> "" _
Or Sheets("sante").Range("o3") <> "" Or Sheets("sante").Range("p3") <> "" _
Or Sheets("sante").Range("q3") <> "" Or Sheets("sante").Range("r3") <> "" _
Or Sheets("sante").Range("s3") <> "" Or Sheets("sante").Range("t3") <> "" _
Or Sheets("sante").Range("u3") <> "" Or Sheets("sante").Range("v3") <> "" _
Then
en sachant que je dois controler toutes les cellules de la ligne 3 jusqu a BQ , et si une des cellules est renseignée effacer la ligne

merci a tous de votre aide

cordialement

ghislain

 

[phlaurent55]

Re : macro if et end if a reduire

Bonjour Ghislain

peut-être avec ce code:

Dim cellule As Range
For Each cellule In Sheets("sante").Range("A3:BQ3")
If cellule = "" Then
MsgBox ("La cellule " & cellule.Address & " est vide")
End If
Next cellule

à+
Philippe

 

[MichD]

Re : macro if et end if a reduire

Bonjour,

With Sheets("Sante").Range("a3:BQ3")
    If Application.CountA(.Cells) = .Cells.Count Then
     MsgBox "Ok"
    End If
End With

 

[GHISLAIN]

Re : macro if et end if a reduire

bonsoir phlaurent55 , MichD

merci a tout deux d etre passé sur mon fil et d avoir resolu mon souci , bonne soiree

cordialement

ghislain