Afficher des informations contenues dans une feuille en cohant un Checkbox Userf
danytall
-
23 mai 2013 à 12:23
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 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
A voir également:
Afficher des informations contenues dans une feuille en cohant un Checkbox Userf
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 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.
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 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.
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 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.