cellules et tableau

[JANICK]

bonjour,

dans un tableau " A:AH " j'ai un critere dans la colonne AFx qui efface la ligne si vrai et je souhaiterais que les cellules Ax:AHx

 

[JANICK]

Bonjour,

ci dessous le code que j'utilise mais comment faire pour enlever que des cellules?

Dim cellules
For Each cellules In Range("af8:fin")
If cellules = "S" Or cellules = "" Then
cellules.Select
Selection.EntireRow.Delete ****(je ne souhaite enlever que les cellules Ax à AHx)**
End If
Next


Merci d'avance pour les aides

 

[CBernardT]

bonsoir Janick

Tu as réalisé un bon début :

J'ai mis des commentaires sur les lignes de code qui te précisent les actions menèes :
Pour supprimer sur des cellules sur une plage tu dois la créer :
Sub SupprimCellules()
Dim Plage As Range 'Déclaration des variables
Dim cellules As Range
Set Plage = Range("AF8:A" & Range("AF10000").End(xlUp).Row) 'Définition de la plage
For Each cellules In Plage 'Boucle sur les cellules de la plage
If cellules = "S" Or cellules = "" Then 'Conditions à remplir
cellules.EntireRow.Range("A1:AH1").Delete ' Supression des cellules de la ligne entre
'la colonne "A" et "AH"
End If
Next
End Sub

Cordialement

CBernardT