Microsoft 365 effacer le contenu de certaines cellules sous condition

[Cassolette]

Bonjour,
je souhaiterais effacer les cellules D, E, F, de toutes les lignes pour lesquelles la valeur de la cellule B est "pas démarré".
Mon classeur comportera plusieurs feuilles du même modèle.
par avance.
Cassolette

 

[Hasco]

Bonjour et bienvenue sur le forum 🙂

Mon classeur comportera plusieurs feuilles du même modèle.

Quand vous aurez ce classeur, vous pourrez nous en faire un exemple anonymisé et sans données confidentielle pour que nous puissions travailler dessus.

cordialement

 

[fanch55]

Bonjour à tous ,
c'est vrai que sans exemple précis,
la réponse ne peut être que généraliste :

    Dim Rangée As Range
    For Each Rangée In [2:3].Rows ' <-- les lignes concernée
        If Rangée.Columns("B") = "pas démarré" Then Rangée.Columns("D:F").ClearContents
    Next

 

[job75]

Bonjour Cassolette, Hasco, fanch55,

Pas besoin de fichier, cette macro fonctionne dans tous les cas de figure (formules ou pas) :

Sub Effacer_DEF()
Dim w As Worksheet, tablo, ref, i&
For Each w In Worksheets
    With w.Range("A1", w.UsedRange).Resize(, 6)
        tablo = .Formula 'matrice, plus rapide
        ref = .Columns(2).Resize(, 2) 'au moins 2 éléments
        For i = 1 To UBound(tablo)
            If LCase(CStr(ref(i, 1))) = "pas démarré" Then _
                tablo(i, 4) = "": tablo(i, 5) = "": tablo(i, 6) = ""
        Next i
        .Formula = tablo 'restitution
    End With
Next w
End Sub

Utilisant des tableaux VBA elle est très rapide.

A+