bonjour a tous

j ai bientrouver le moyen d a gir sur le bouton ( voir caption) a l aide de ce ci


a supposer que mon bouton s appelle "b7"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
  Private Sub b7_Click()
Call change
End Sub
Sub change()
Dim lettre, nom, chiffre As String
nom = ActiveControl.Name
 
lettre = Left(nom, 1)
chiffre = Right(nom, 1) + 1
TextBox1 = lettre & chiffre
End Sub
ca fonctionne tres bien jusque au bouton "z7"
ensuite le bouton suivant s appelle "aa7"
donc mon left (nom,1) et right (nom,1) ne fonctionne plus car la

le left nom devrai corespondre a "aa"
ensuite sur mes lignes de boutons suivante on aura un bouton "aa13"
donc pour obtenir "aa" je devrai donc faire left (name,2)
mon soucie etant de metre ca dans la meme sub

donc une condition est necessaire


en gros
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
    si right(nom,2)est un nombre then chiffre = right(nom,2)
else
chiffre = right(nom,1)
c'est la question ""est un nombre"" que je ne sais pas formuler



si quelqun a la solution merci d 'avance