Liste 'Alphabetique' dans un USF

*Bonjour Laurent*,

Private Sub CommandButton1_Click()
Range("A1").Value = TextBox1
If TextBox1.Value = "AZ" Then
TextBox1.Value = "A"
ElseIf TextBox1.Value = "Z" Then
TextBox1.Value = "AA"
ElseIf Len(TextBox1.Value) > 1 Then
TextBox1.Value = Left(TextBox1.Value, 1) &
Chr(Asc(Right(TextBox1.Value, 1)) + 1)
Else
TextBox1.Value = Chr(Asc(TextBox1.Value) + 1)
End If
End Sub

Je pense que ce code repond a ta demande
Tiens nous au courrant

bonjour,

J'ia un USF avec un champ textbox et un bouton.
Au lancement de l'USF , la textbox a la valeur "A".
Quand je clique sur le bouton, il me met en A1 la valeur de la textbox.
J'aimerai également que le textbox m'affiche alors "B" ... et çà jusque "AZ".

Quelqu'un sait comment faire?

Merci

Laurent

--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS

Bonjour Laurent,

'----------------------
'Déclare une variable Static
Static Adr As String

'ici ta ligne de code qui envoie le contenu du textbox1
'vers ta cellule
'insère ceci pour incrémenter le contenu du textbox

Adr = Cells(1, Trim(TextBox1)).Offset(, 1).Address(0, 0)
Adr = Left(Adr, Len(Adr) - 1)
TextBox1 = Adr
If Adr = "AZ" Then Exit Sub
'----------------------


Salutations!


"Laurent" <Gadeyne.laurent@wanadoo.fr> a écrit dans le message de news: ecnBY5K4FHA.1148@tk2msftngp13.phx.gbl...
bonjour,

J'ia un USF avec un champ textbox et un bouton.
Au lancement de l'USF , la textbox a la valeur "A".
Quand je clique sur le bouton, il me met en A1 la valeur de la textbox.
J'aimerai également que le textbox m'affiche alors "B" ... et çà jusque
"AZ".

Quelqu'un sait comment faire?

Merci

Laurent