Sujet Précédent Sujet Suivant

Vider certaines cellules Excel

Fermé
rita - 30 mai 2012 à 13:49
f894009 Messages postés 17215 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 26 décembre 2024 - 30 mai 2012 à 14:52
Bonjour,
Je désire vider ou supprimer le contenu des cellules qui commencent par "agent" dans la colonne A de la ligne 2 à la ligne 6214.
Quelqu'un qui se connait en VBA peut m'aider?
Merci d'avance


2 réponses

Réponse 1 / 2
ccm81 Messages postés 10904 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 décembre 2024 2 428
Modifié par ccm81 le 30/05/2012 à 14:54
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
0
Réponse 2 / 2
f894009 Messages postés 17215 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 26 décembre 2024 1 711
30 mai 2012 à 14:52
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
0