XL 2013 Effacer une plage de cellules suivant 2 conditions

[Onil62]

Bonjour,

Je suis débutant sur VBA et je n'arrive pas à résoudre ce problème :

J'ai un tableau excel qui permet de gérer, en autre, le personnel en fonction de leur affection sur chantier.
Les colonnes "Liste du personnel" et "Responsable" évoluent, notamment lorsqu'il y a du personnel intérimaire ou lorsque le personnel change de chantier.
En résumé, je souhaiterai effacer une plage de cellules en fonction de 2 conditions.
Exemple : Si la cellule B6 affiche, par le biais d'une formule, "Vide" ET la cellule C6 est vide alors on efface sans bouton de commande la plage de cellules D6:BC6.

Merci d'avance pour votre aide,

 

[sylvanu]

Bonsoir Onil,
En PJ un essai avec un Worksheet_Change qui doit être obligatoirement dans la feuille considérée:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 2 Or Target.Column = 3 Then
        If Cells(Target.Row, 2) = "Vide" And Cells(Target.Row, 3) = "" Then
            Range("D" & Target.Row & ":BC" & Target.Row).ClearContents
        End If
    End If
End Sub

 

[GALOUGALOU]

re onil62 bonsoir le forum
je vous propose cette macro qui va boucler sur toute la feuille

Sub SUPPRIMER()
Calculate
Dim J As Long
Sheets("Feuil1").Select

li = Sheets("Feuil1").Cells(36000, 1).End(xlUp).Row
  For J = li To 1 Step -1
     If Range("B" & J) = "Vide" And Range("C" & J) = "" Then Rows(J).Range("D1:BC1").ClearContents
  Next J

End Sub

cordialement
galougalou

 

[GALOUGALOU]

en postant je viens de voir le message de sylvanu
donc bonsoir sylvanu

 

[sylvanu]

Bonsoir Galougalou,🙂

 

[Onil62]

Bonjour Sylvanu et Galougalou
Bonjour le forum

Je vous remercie pour vos réponses, j'ai enfin un tableau qui fonctionne comme je le souhaitai.


A bientôt

Cordialement,

 

[GALOUGALOU]

merci onyl62
mais je pense que vous devriez corrigé la validation du #5, c'est certainement la solution du #2 que vous voulez valider
cordialement
galougalou