bonjour a tous,
 
je suis entrain de me faire un petit dictionnaire anglais / francais ( voir impression ecraqn sur http://cjoint.com/?hFlDgTSZG4 ) et je voudrais avoir la possibilite de voir que les mots commencant par "a" ou par "b"
 
pour cela jai fait un petit code:
Public sens As Boolean
Sub Selectionner()
sens = Not (sens)
sens = CInt(sens)
Call ToutMontrer
nbl = Range("B5555" ).End(xlUp).Row
 
Select Case sens
 
Case 0
For i = 7 To nbl - 1 Step 1
If Mid(Cells(i, 2), 1, 1) <> "a" Then
Rows(i).Select
Selection.EntireRow.Hidden = True
End If
Next i
Case 1
For i = 7 To nbl - 1 Step 1
If Mid(Cells(i, 3), 1, 1) <> "a" Then
Rows(i).Select
Selection.EntireRow.Hidden = True
End If
Next i
End Select
 
End Sub
 
mon probleme est que pour l'instant j'ai
If Mid(Cells(i, 3), 1, 1) <> "a" Then
et je voudrais le remplace par
If Mid(Cells(i, 3), 1, 1) <> lettre Then         avec lettre=bouton 5.name
bien entendu c pas aussi simple
jai pas envie de recopier 26 fois le code
 
comment feriez vous ? quel est le code correspondant a " boutonclique.name" ? est ce possible ?
 
merci pour votre aide

toujours pas de réponse
I m disappointed - j'aurais pensé avoir quelques éléments de réponse depuis le temps
 
est ce que cela veut dire que vous en savez rien ? que c'est pas possible ?  que vous avez pas compris ce que je veux ?
 
nesiter a me poser des questions pour de plus amples informations (je suis pas sur que cela veuille dire qc)
 
sachez que pour linstant jai recopier 26 fois le code. cetait pas si long que ca mais bon si jai besoin de faire des changements ds ma macro ca serait bien davoir un seul code pour les 26 boutons.
 
 
pour resumer ma demande: j'ai 26 boutons, avec pour chacun un nom différent ( "A" , "B", "C", etc...). ce que je veux c recuperer le nom du bouton qui a été cliqué pour l'utiliser dans une variable. ( la fameuse variable "lettre" )
 
en espérant avoir été plus clair
 
bonne fin de weekend
 
a+

Bonsoir,
 
Trouvé ceci dans le help VBA au niveau propriété activecontrol
 
Dim ctlCurrentControl As Control
Dim strControlName As String
Set ctlCurrentControl = Screen.ActiveControl
strControlName = ctlCurrentControl.Name
Si aucun contrôle n'est actif au moment où vous utilisez la propriété ActiveControl ou si tous les contrôles du formulaire actif sont masqués ou désactivés, une erreur se produit.
 
Cordialement

seniorpapou
je te remercie pour ta réponse  
 
je te tiens au courant demain

Bonsoir,
j'ai essayé le code dans un module et aussi au niveau de command0.click et cel ne me fait pas e pb.
 
Par contre j'ai office 2002.
 
Je viens de voir que tu parlais d'excel 2007 et j'ai testé sous access!!!!!!
demain, si j'ai le temps j'essayerai sous excel, mais, du coup, je ne suis pas certain du fonctionnement.
 
 
Je n'ai pas pu voir ton cjoint... je suis jeté: fichier absent..

bonsoir,
pas le temps de trop chercher, mais on doit trouver ça clef en main sur google rubrique : modules de classe excel
A+

bon effectivement c'est sur 2007. je peux même pas faire des control comme ds 2003 et je suis oblige de faire des shapes ce qui fait que du coup le code est à changer. à moins que quelqu'un sache où ces put... de controls sont cachés. j'utilise depuis peu 2007 et tout à changer. sous 2003 il fallait faire si je me souviens bien faire affichage/barre d'outils/forms mais là je trouve pas.
 
je remets demain le cjoint. j'ai le fichier au boulot.  
(je serais surement connecter dans la journée)
 
see you soon
 
 

jai refait le lien http://cjoint.com/?ienUSHSDWm

 
jai teste ce matin est sauf erreur de ma part cela ne fonctionne pas

Si tu es pressé , une solution rapide:
 
définir une variable public "malettre" par exemple, puis dans chaque macro liée à chaque bouton définir  malettre.  
 
 
ou bien dans chaque macro faire un call selectionner( "a" )     ou  "b"  etc...
 
un premier point: le shape.type des commandbutton est 8, mais impossible de trouver lequel a été "stimulé"

 
 
Bonsoir,
Deux adresses intéressantes au sujet de la disparition de « formulaire » dans la barre d’outils Excel  2007
 
http://groupes.codes-sources.com/a [...] 72960.aspx
 
 
 
 
 
 
http://boisgontierj.free.fr/fichie [...] 0_2007.zip
 
 

Pour ceux que ça interesse, pour retrouver le "formulaire" il faut faire:
 
Word, Excel ou PowerPoint
- Cliquez sur le bouton Microsoft Office , puis sur Options Nom du programme, où Nom du programme correspond au nom du programme que vous utilisez, par exemple, Options Word.
- Cliquez sur Standard, puis activez la case à cocher Afficher l'onglet Développeur dans le ruban.
 
et pour seniorpapou je vais prendre ta première solution et non je ne suis pas presser. je dois encore récuperer les meilleurs mots de 200 pages. donc j'ai le temps et puis après je dois apprendre plus de 3000 mots ca va être rigolo
 
merci de votre aide

bonjour,
Une ch'tite démo pour la récupération du bouton cliqué (avec module de classe)  
Bon c'est du Excel 2003 mais ça devrait pas être bien compliqué à transposer.
A+

Le lien et la démo ont été modifié pour corriger un bug.

ca marche a merveille
je vous tiens au courant pour 2007
a+

attention ! le lien et la démo ont été corrigés. Merci de recharger la dernière version !

jen ai pris note
je cloture le sujet
merci de votre aide