XL 2016 Supprimer dans colonne sous condition

karinette

XLDnaute Occasionnel
Bonjour à tous.
Je cherche une macro qui me permettrait de supprimer des valeurs suivant une condition.
Je m'explique, dans la colonne A, j'ai des valeurs "X" ou "W".
Ce que j'aimerais, c'est que suivant ces valeurs les cellules sur la même ligne soit supprimer de la façon suivante :
Exemple pour ligne 2 :
Si valeur "X" en A2, suppression des cellules B2 et C2.
Si valeur "W" en A2, suppression des cellules B2, C2 et D2.
J'avais fais un semblant de code, mais je devais le faire ligne par ligne. Je pense qu'il y a moyen de le faire avec une boucle ;)

Merci d'avance de vos retour.
 

Pièces jointes

  • Test.xlsm
    12.1 KB · Affichages: 5

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour,

Essayez le code :
VB:
Sub Supprimer()
Dim i&, t
   If Me.FilterMode Then Me.ShowAllData
   t = Range("a1:d" & Cells(Rows.Count, "a").End(xlUp).Row)
   For i = 1 To UBound(t)
      If t(i, 1) = "X" Or t(i, 1) = "W" Then t(i, 2) = "": t(i, 3) = ""
      If t(i, 1) = "W" Then t(i, 4) = ""
   Next i
   Range("a1").Resize(UBound(t), 4) = t
End Sub
 

Discussions similaires

Réponses
9
Affichages
401

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof