Bonjour,
Je souhaiterai effectuer ceci:
pour les colonnes allant de A à C, supprimer le contenu des cellules A à C si la cellule A = "non" Et décaler le contenu des cellules vers le haut pour pas avoir de cellules vides
De même, pour les colonnes allant de D à E, supprimer le contenu des cellules D à E si la cellule D= "non" Et décaler le contenu des cellules vers le haut pour pas avoir de cellules vides
Le code que j'ai fait en VBA me supprimer toute la ligne entière.
Sub MAcro()
Dim nblignes As Long
Sheets("Feuill1").Select
nblignes = Sheets("Feuill1").Cells(Rows.Count, "B").End(xlUp).Row
For i = 2 To nblignes
If Cells(i, 1) = "NON" Then
Cells(i, 1).EntireRow.Delete
i = i - 1
End If
Next
End Sub
Pourriez vous me dire comment je dois modifier ce code SVP?
Merci beaucoup par avance,
Je souhaiterai effectuer ceci:
pour les colonnes allant de A à C, supprimer le contenu des cellules A à C si la cellule A = "non" Et décaler le contenu des cellules vers le haut pour pas avoir de cellules vides
De même, pour les colonnes allant de D à E, supprimer le contenu des cellules D à E si la cellule D= "non" Et décaler le contenu des cellules vers le haut pour pas avoir de cellules vides
Le code que j'ai fait en VBA me supprimer toute la ligne entière.
Sub MAcro()
Dim nblignes As Long
Sheets("Feuill1").Select
nblignes = Sheets("Feuill1").Cells(Rows.Count, "B").End(xlUp).Row
For i = 2 To nblignes
If Cells(i, 1) = "NON" Then
Cells(i, 1).EntireRow.Delete
i = i - 1
End If
Next
End Sub
Pourriez vous me dire comment je dois modifier ce code SVP?
Merci beaucoup par avance,