Effacer le contenu de cellule selon condition

[berwerk]

Bonjour, je recherche en vain une solution pour effacer le contenu des cellules (Colonnes B C) des lignes comprises entre 2 autres lignes identifiées par le contenu de la cellule de la colonne A.
N'éatant pas sûr d'être très clair, dans le tableau joint, je souhaiterais effacer les blabla en bleu compris entre les lignes toto et titi.
Merci pour votre aide

 

[tototiti2008]

Re : Effacer le contenu de cellule selon condition

Bonjour berwerk,

Bienvenue sur XLD,

un essai :

Sub test()
Dim i As Long, BoolSuppr As Boolean
    BoolSuppr = False
    For i = Range("A65536").End(xlUp).Row To 2 Step -1
        If Range("A" & i).Value = "toto" Then BoolSuppr = False
        If BoolSuppr Then Range("B" & i & ":C" & i).Clearcontents
        If Range("A" & i).Value = "titi" Then BoolSuppr = True
    Next i
End Sub

 

[JNP]

Re : Effacer le contenu de cellule selon condition

Bonjour le fil 🙂,
Une autre solution, plus dangereuse vu qu'elle bouclera jusqu'à exploser l'Integer si il manque "toto" ou "titi" 😛.
Mais ne supprimons pas TotoTiti 😀...

Sub test()
Dim I As Long
I = 2
While Cells(I, 1) <> "toto"
I = I + 1
Wend
I = I + 1
While Cells(I, 1) <> "titi"
Rows(I).Delete
Wend
End Sub

Bonne journée 😎

 

[tototiti2008]

Re : Effacer le contenu de cellule selon condition

Bonjour JNP 😉

Mais ne supprimons pas TotoTiti 😀...

C'est gentil de ta part 😀

 

[berwerk]

Re : Effacer le contenu de cellule selon condition

Bonjour , un grand merci à vous 2.Jusqu'à présent j'avais toujours pû me debrouiller en piochant des infos dans les forums, mais là je séchais.
Première expérience enrichissante.
merci encore.