Mettre un bouton a chaque ligne pleine

Résolu/Fermé

jacko - Modifié par jacko le 5/05/2011 à 14:39
jacko - 5 mai 2011 à 14:47

Bonjour,

j'ai le code vb suivant qui m'affiche des résultats filté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

A voir également:

Mettre un bouton a chaque ligne pleine
Aller à la ligne excel - Guide
Se mettre hors ligne instagram - Guide
Vente en ligne particulier - Guide
Partage de photos en ligne - Guide
Boite mail pleine - Guide

1 réponse

Réponse 1 / 1

jacko
5 mai 2011 à 14:47

j'ai réussi à faire ceci:

Private Sub Worksheet_Activate()

Dim k As Integer
k = Application.WorksheetFunction.CountA(Range("A2:A65536"))
For i = 2 To k + 1
  ActiveSheet.Buttons.Add(Cells(1, 8).Left, Cells(i, 1).Top, Cells(1, 8).Width, Cells(6, 8).Height).Select
     Selection.Characters.Text = "connexion"
Next

End Sub

et ça marche mais un problème persiste:

quand je fais une recherche par exemple j'ai 6 résultat donc 6 bouton mais si après je fais une autre recherche et que j'ai 4 résultats j'aurai les 4 bouton associés au résultats et en plus les 2 boutons restants du dernier résultats.
et quand je veux supprimer les boutons lors de la désactivation de la feuile, ça me supprime tout!
quelqu'un sait comment on peut supprimmer les boutons en trop? svp

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?

Chemin Logo du site de la Cité de l'espace

Statut « en ligne » alors que non

Bouton ON OFF, O ou I ?

Ligne occupée : pourquoi mon téléphone sonne occupé ?

Discussions similaires

Newsletters