Bonjour,
j'ai le code vb suivant qui m'affiche des résultats filtrés:
Private Sub CommandButton1_Click()
Dim rngDonnees As Range
Dim rngCritere As Range
Worksheets("Résultat").Cells.Clear
Set rngDonnees = Worksheets("Données").Range("a1").CurrentRegion
Set rngCritere = Worksheets("Critères").Range("a1").CurrentRegion
rngDonnees.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=rngCritere, Unique:=False
rngDonnees.Copy Destination:=Worksheets("Résultat").Range("a1")
If Worksheets("Données").FilterMode Then Worksheets("Données").ShowAllData
Worksheets("Résultat").Activate
End Sub
et j'ai testé le code suivant en vb pour afficher les boutons mais sans succès:
Sub b_validation_Click()
derligne = Range("H2").End(xlDown).Row
ActiveSheet.Buttons.Add(Range("H2").Left, Range("derligne").Top, 60, 15).Select
End Sub
En fait ce que je souhaiterais, c'est que quand je filtre mes recherche, un bouton s'affiche en colonne H à coté de chaque résultat.
est ce faisable?
merci pour votre aide,
jacko
mettre un bouton pour chaque resultat
× Après avoir cliqué sur "Répondre" vous serez invité à vous connecter pour que votre message soit publié.
× Attention, ce sujet est très ancien. Le déterrer n'est pas forcément approprié. Nous te conseillons de créer un nouveau sujet pour poser ta question.