Effectuer une recherche en vba dans plusieurs feuilles

Résolu
brassières Messages postés 1 Statut Membre -  
 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.

2 réponses

  1.
    pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    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
  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