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
Message édité par 86vomito33 le 05-08-2008 à 10:31:26