Vider certaines cellules Excel

Bonjour,

'Ouvrir VBA par Alt+F11
'Click Droit sur Microsoft Excel Objet en haut a gauche
'Insertion------>Module
'Click gauche fenetre a droite
'Copier le code ci-dessous

Sub test()
  Dim Nbr As Integer, Pos As Integer, Indice As Integer, Col_A As Range

  With Sheets("feuil1")
    Set Col_A = Range("A2:A6")
    'Recherche du nombre d'occurences
    Nbr = Application.CountIf(Col_A, "agent*")
    If Nbr > 0 Then
      Pos = 2
      For Indice = 1 To Nbr
        'Recherche de la position des occurences
        'xlWhole recherche une valeur exacte,
        'xlPart recherche valeur contenue dans la cellule
        Pos = .Columns("A").Find("agent*", .Cells(Pos, "A"), , xlPart).Row
        'Effacement contenu cellule
        .Range("A" & Pos).ClearContents
      Next Indice
    End If
  End With
  
End Sub

Pour lancer:

Positionner le curseur devant Sub
Ensuite click gauche sur le triangle vert dessous Format (Menu en haut)

Bonne suite

bonjour

une macro qui efface le contenu des cellules de la colonne A commençant par "agent"

Const lideb = 2 

Public Sub suppagent() 
Dim lifin As Long, li As Long 
lifin = Range("A" & Rows.Count).End(xlUp).Row 
For li = lideb To lifin 
  If Left(Range("A" & li).Value, 5) = "agent" Then Range("A" & li).ClearContents
Next li 
End Sub

RQ. ce code ne supprime pas les lignes concernées

bonne suite