Afficher des informations contenues dans une feuille en cohant un Checkbox Userf

danytall - 23 mai 2013 à 12:23
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
- 23 mai 2013 à 14:56
Bonjour le forum,

j'aimerai savoir si quelqu'un aurait un code d'activation d'une Checkbox Userform? En effet, en cochant la Checkbox j'aimerai avoir un retour des informations contenues dans une feuille excel et qui respecte mon critere de sélection (la Checkbox cochée).

Voici mon code et qui ne fonctionne pas:

Private Sub CheckBoxpsa_Click()
CheckBoxpsa.Active
End Sub

Sub Recherchersite()
Dim F
Dim Feuille As Byte
Dim C As Range
Dim firstAddress As String
    F = Array("Application")
    Range("B2:P").End(xlDown).Row.ClearContents
    For Feuille = 0 To UBound(F)
        With Worksheets(F(Feuille))
            Set C = Find(Range(CheckBoxpsa.Value), , xlValues, xlWhole)
            If Not C Is Nothing Then
                firstAddress = C.Address
                Do
                    C.Resize(, 5).Copy Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
                    Set C = .Columns(1).FindNext(C)
                Loop While Not C Is Nothing And C.Address <> firstAddress
            End If
        End With
    Next Feuille
End Sub

End Sub

Merci à tous.

Dany

5 réponses

ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
236
23 mai 2013 à 13:31
Bonjour,
Ton insistance à ouvrir tes discussion VBA dans la section
Forum > Visual Basic 6

me fait passer sans te répondre.



________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
0
je ne comprends pas très bien, tu veux me dire que je suis pas dans la bonne section?
0
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
236
23 mai 2013 à 14:31
tu veux me dire que je suis pas dans la bonne section?

D'après toi ?
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
0
OK merci bien, peut tu s'il te plais me donner l'intitulé de la section dans laquelle je devrais poster mon sujet?

Merci
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
236
23 mai 2013 à 14:56
Hein ? (je rêve ...)
Cela te ferait mal, d'aller regarder où tu as déjà dû être déplacé auparavant ?
Regarde là, par exemple :
Tapez le texte de l'url ici.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
0