comment faire apparaitre un bouton

post prod · 29 Mai 2008

Bonjour
dans ce fichier de CBEA comment fait-il apparaitre le bouton rechercher
merci d'avance

JHA · 29 Mai 2008

Re : comment faire apparaitre un bouton

Bonjour Postprod,

Il te faut afficher la boite à outils controles (clic droit dans la barre de menu)
Il te faut esnsuite affecter un code VBA.

JHA

cbea · 29 Mai 2008

Re : comment faire apparaitre un bouton

Bonjour post prod, JHA,

1/ En utilisant le menu : Affichage/Barre d'outils et cliquer sur Boite à outils Contrôles
2/ Une fenêtre avec des contrôles doit apparaître.
3/ Cliquer sur le contrôle : "Bouton de commande" et dessiner la forme du bouton sur la feuille.
4/ Bouton droit de la souris sur le bouton affiché sur la feuille et choisir "Propriétés".
5/ Une fenêtre avec les propriétés du bouton apparaît.
La propriété "Caption" pour changer le libellé du bouton avec par exemple : Rechercher
La propriété "Name" pour renommer le bouton avec par exemple : cmdRechercher
6/ Double cliquer sur le bouton de commande pour coller le code VBA suivant :

Code:

    Dim Lig As Long, derLig As Long
    Dim Plage As Range, Cell As Range
    Dim premAdresse As String
    
    ' Dernière ligne en colonne A
    derLig = Range("A" & Cells.Rows.Count).End(xlUp).Row
    
    ' Plage de cellules
    Set Plage = Range("A1:A" & derLig)
    ' Enlever la couleur sur la plage
    Plage.Interior.ColorIndex = xlNone
    
    If Range("D1").Value = "" Then Exit Sub
    
    ' Boucle sur chaque cellule de la plage
    For Each Cell In Plage
        ' Si le mot est trouvé
        If Cell Like "*" & Range("D1").Value & "*" Then
            ' Couleur rouge
            Cell.Interior.ColorIndex = 3
        End If
    Next Cell

PS : Il faut éviter de multiplier les posts pour que chacun s'y retrouve. Merci

comment faire apparaitre un bouton

post prod

XLDnaute Occasionnel

JHA

XLDnaute Barbatruc

cbea

XLDnaute Impliqué

Discussions similaires