Effectuer une recherche en vba dans plusieurs feuilles

Résolu
brassières Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
 brassières -
Bonjour,

Sans aucune formation, je me débat sous Excel, pour effectuer une recherche d'un texte dans 5 feuilles (mes bases de données) afin d'en effacer la ligne d'ou il se situe.

Je voudrais effectuer cette recherche à partir d'une cellule d'une feuille formulaire et cliquer sur un bouton pour effectuer la supression là ou se situe le mot rechercher (dans la deuxième colonne) d'une des feuilles de base de donnée.

J'espère me faire comprendre et je remercie par avance celui ou celle qui pourra me dépanner.


A voir également:

2 réponses

Réponse 1 / 2
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Bonjour,

Pour supprimer, dans la feuille "BaseDeDonnées", la ligne qui contient en colonne B le mot saisi en E5 de ma feuille "Formulaire", essaie ce code : 

Sub ElimineLigne()
Dim Trouve As Range
Dim Valeur_cherchee As String

With Sheets("Formulaire")
    Valeur_cherchee = .Range("E5").Value
End With
With Sheets("BaseDeDonnées")
    Set Trouve = .Columns(2).Cells.Find(what:=Valeur_cherchee)
    If Trouve Is Nothing Then
        MsgBox "Pas trouvé " & Trouve & " en colonne B de la feuille BaseDeDonnées"
    Else
        .Rows(Trouve.Row).Delete
    End If
    Set Trouve = Nothing
End With
End Sub
0
Réponse 2 / 2
brassières
 
Merci pijaku,

je m'excuse pour la reponse tardive, mais je rentre de vacances.
Je regarde si cela fonctionne (je ne peut pas faire plus avec mes connaissances!)

bonne journée et encore merci à ceux qui n'ésite pas à donner de leur temps pour
des personnes comme moi.
0