Boucle sur cellules si

[noviceAG]

Bonsoir le Forum,
Pouvez-vous m'indiquer comment effectuer une boucle sur les cellules M10 à M40 et exécuter un code si les cellules sont vides
En vous remerciant et vous souhaitant une bonne soirée

 

[noviceAG]

Re : Boucle sur cellules si

Re, mauvais exposé de ma part comme d'habitude dirai-je
Si M10 est vide effacer les cellules au situées à gauche de la colonne M
puis idem jusqu'à M40
En vous priant de bien vouloir m'excuser

 

[bqtr]

Re : Boucle sur cellules si

Bonsoir noviceAG

Avant de partir, voici un exemple :

Sub noviceAG()

Dim k As Byte

With Sheets("Feuil1")
 For k = 10 To 40
   If .Cells(k, 13) = "" Then
     '.../... l'action à faire
   End If
 Next
End With

End Sub

Maintenant tout dépend de ce que tu souhaites faire.

A+

 

[bqtr]

Re : Boucle sur cellules si

Re,

Alors comme ca:

Sub noviceAG()
 
Dim k As Byte
 
With Sheets("feuil1")
 For k = 10 To 40
   If .Cells(k, 13) = "" Then .Range("A" & k & ":L" & k).ClearContents
 Next
End With
 
End Sub

Cela efface les cellules de la colonne A à L, uniquement le contenu.

A+

 

[noviceAG]

Re : Boucle sur cellules si

Bonsoir bqtr, le Forum,
Merci à toi c 'est impeccable
Bonne soirée

 

[Staple1600]

Re : Boucle sur cellules si

Bonsoir



Une autre façon (sans boucle)

Sub efface()
Intersect([A10:L40], [M10:M40].SpecialCells(xlCellTypeBlanks).EntireRow).ClearContents
End Sub

 

[noviceAG]

Re : Boucle sur cellules si

Bonsoir Staple, le Forum,
Merci à toi, je prends bonne note et te souhaite une bonne soirée.