TotallyWorkaholic
XLDnaute Nouveau
Bonjour,
J'ai repris un fichier Excel type sur le web pour la gestion des bénévoles.
Bénévole moi même pour une association je souhaite avoir un planning ou sont repris les données de base de base des bénévoles mais aussi leurs disponibilités.
1 j'ai créé une mise en forme en conditionnelle pour les disponibilités c'est ok
2 je souhaite que si je cherche le nom du bénévole toutes les lignes concernant uniquement le bénévole soit affichées.
3 je souhaite que si je cherche un type de poste tout les bénévoles ayant ce type de poste sortent sur la feuille.
Le tout dans une même feuille avec donc ces deux champs de recherche en haut à gauche.
Je m'y connais pas assez en VBA j'ai essayé de comprendre et de trouver le code le plus simple possible.
Je pensais lavoir trouvé mais ça ne fonctionne pas ..
Si vous avez des conseils merci ! :
EN A3 ma cellule ou je choisis le nom bénévole
En A8 début du tableau avec tout les bénévoles et dans cette colonne il ya le nom que je veux chercher.
Dans ce code je n'ai pas inclus le point 3 avec la recherche par poste... La cellule ou je choisis le type de poste est en b3 et le début du tableau avec les postes commence en b8.
Sub Trouverbenevole()
Dim Cellule As Range
Dim Art As String
Art = InputBox("Nom/prénom")
With ActiveSheet.Range("A8:A100")
Set Cellule = .Find(Art, Lookat:=xlWhole)
If Not Cellule Is Nothing Then
firstAddress = Cellule.Address
Do
MsgBox Cellule.Offset(0, 1).Value
Exit Sub
Set Cellule = .FindNext(Cellule)
Loop While Not Cellule Is Nothing And Cellule.Address <> firstAddress
End If
End With
MsgBox "Rien trouvé"
End Sub
J'ai repris un fichier Excel type sur le web pour la gestion des bénévoles.
Bénévole moi même pour une association je souhaite avoir un planning ou sont repris les données de base de base des bénévoles mais aussi leurs disponibilités.
1 j'ai créé une mise en forme en conditionnelle pour les disponibilités c'est ok
2 je souhaite que si je cherche le nom du bénévole toutes les lignes concernant uniquement le bénévole soit affichées.
3 je souhaite que si je cherche un type de poste tout les bénévoles ayant ce type de poste sortent sur la feuille.
Le tout dans une même feuille avec donc ces deux champs de recherche en haut à gauche.
Je m'y connais pas assez en VBA j'ai essayé de comprendre et de trouver le code le plus simple possible.
Je pensais lavoir trouvé mais ça ne fonctionne pas ..
Si vous avez des conseils merci ! :
EN A3 ma cellule ou je choisis le nom bénévole
En A8 début du tableau avec tout les bénévoles et dans cette colonne il ya le nom que je veux chercher.
Dans ce code je n'ai pas inclus le point 3 avec la recherche par poste... La cellule ou je choisis le type de poste est en b3 et le début du tableau avec les postes commence en b8.
Sub Trouverbenevole()
Dim Cellule As Range
Dim Art As String
Art = InputBox("Nom/prénom")
With ActiveSheet.Range("A8:A100")
Set Cellule = .Find(Art, Lookat:=xlWhole)
If Not Cellule Is Nothing Then
firstAddress = Cellule.Address
Do
MsgBox Cellule.Offset(0, 1).Value
Exit Sub
Set Cellule = .FindNext(Cellule)
Loop While Not Cellule Is Nothing And Cellule.Address <> firstAddress
End If
End With
MsgBox "Rien trouvé"
End Sub