Boucle sur cellules si

noviceAG

XLDnaute Impliqué

• 15 Novembre 2008

• #2

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

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 15 Novembre 2008

• #3

Re : Boucle sur cellules si

Bonsoir noviceAG

Avant de partir, voici un exemple :

Code:

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+

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 15 Novembre 2008

• #4

Re : Boucle sur cellules si

Re,

Alors comme ca:

Code:

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+

 

Dernière édition: 16 Novembre 2008

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 17 Novembre 2008

• #5

Re : Boucle sur cellules si

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Novembre 2008

• #6

Re : Boucle sur cellules si

Bonsoir



Une autre façon (sans boucle)

Code:

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

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 17 Novembre 2008

• #7

Re : Boucle sur cellules si

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

 

Vote positif 0 Vote négatif