chercher cellules sur feuille excel

Question

Bonjour ,
Je souhaite rechercher sur une feuille excel toutes les cellues ayant le meme contenu pour ensuite l'effacer .Il y a une procedure donnée dans l'aide VBA mais je n'arrive pas a l'utuliser donc j'aimerais avoir vos solutions.
Merci de votre aide

cs_MPi · Answer

Quand tu dis effacer, tu veux faire quoi au juste ?
effacer le contenu de la cellule ? ou effacer la ligne complètement ?

et quel est le code dont tu parles ?

MPi²

DEPH007 · Answer

Salut,

Un exemple qui devrait t'aider :

Sub RemplaceValeurs()

' Remplace toutes les occurrence d'un texte cible par un autre texte
' dans la feuille active

Dim Cible As String  ' contient le texte recherché
Dim Cellule As Range ' plage pour la recherche

Cible = "Bonjour"

Cells.Select   ' sélection de toutes les cellules de la feuille active
Set Cellule = Selection.Find(Cible) ' recherche de la cible
Do While Not Cellule Is Nothing  ' pour toutes les occurrences
   Cellule = "Hello" ' remplacement de "Bonjour" par "Hello"
   ' Cellule.ClearContents pour effacer le contenu
   Set Cellule = Selection.FindNext(Cellule) ' recherche occurrence suivante
Loop
      
End Sub

Attention, la méthode FindNext boucle automatiquement (retour sur le premier trouvé) !
Ici, comme les contenus sont modifiés, cela ne pose pas de problème.

Phil.

cs_cam8 · Answer

Deph007, je te dois un grand merci pour m'avoir débloqué avec ta reponse elle marche nickel

Chercher cellules sur feuille excel

3 réponses

Votre réponse

Discussions similaires