Savez vous comment je peux insérer la valeur de ma textbox dans un
liste déja existante et qu'elle s'insère en respectant l'ordr
alphabétique de la liste?
Pouvez vous me dire aussi comment faire si je souhaite l'insérer aprè
la dernière valeur de ma liste afin que ce soit dynamique quan
j'ajoute plusieurs fois.
Merci beaucoup
PS: j'ai fait comme un petit formulaire ave plusieurs textbox et j
trouve que le temps de rapatriement est tres lent , si vous en save
quelque chose..
--
benjaminalim
-----------------------------------------------------------------------
benjaminalimi's Profile: http://www.msusenet.com/member.php?userid=209
View this thread: http://www.msusenet.com/t-187057940
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Essaie le code que j'ai mis dans un bouton de commande, la liste débutant en A1 :
Private Sub CommandButton1_Click() Dim Plage As Range, c As Range, Ligne As Long Set Plage = Range("A1", Range("A65536").End(xlUp)) Ligne = Application.Match(TextBox1.Text, Plage, 1) Range("A1").Offset(Ligne, 0).Insert shift:=xlShiftDown Range("A1").Offset(Ligne, 0).Value = TextBox1.Text End Sub
Cordialement. Daniel
"benjaminalimi" a écrit dans le message de news:
Bonjour,
Savez vous comment je peux insérer la valeur de ma textbox dans une liste déja existante et qu'elle s'insère en respectant l'ordre alphabétique de la liste?
Pouvez vous me dire aussi comment faire si je souhaite l'insérer après la dernière valeur de ma liste afin que ce soit dynamique quand j'ajoute plusieurs fois. Merci beaucoup
PS: j'ai fait comme un petit formulaire ave plusieurs textbox et je trouve que le temps de rapatriement est tres lent , si vous en savez quelque chose...
Bonjour.
Essaie le code que j'ai mis dans un bouton de commande, la liste débutant en
A1 :
Private Sub CommandButton1_Click()
Dim Plage As Range, c As Range, Ligne As Long
Set Plage = Range("A1", Range("A65536").End(xlUp))
Ligne = Application.Match(TextBox1.Text, Plage, 1)
Range("A1").Offset(Ligne, 0).Insert shift:=xlShiftDown
Range("A1").Offset(Ligne, 0).Value = TextBox1.Text
End Sub
Cordialement.
Daniel
"benjaminalimi" <benjaminalimi.1rhqwj@no-mx.msusenet.com> a écrit dans le
message de news: benjaminalimi.1rhqwj@no-mx.msusenet.com...
Bonjour,
Savez vous comment je peux insérer la valeur de ma textbox dans une
liste déja existante et qu'elle s'insère en respectant l'ordre
alphabétique de la liste?
Pouvez vous me dire aussi comment faire si je souhaite l'insérer après
la dernière valeur de ma liste afin que ce soit dynamique quand
j'ajoute plusieurs fois.
Merci beaucoup
PS: j'ai fait comme un petit formulaire ave plusieurs textbox et je
trouve que le temps de rapatriement est tres lent , si vous en savez
quelque chose...
Bonjour. Essaie le code que j'ai mis dans un bouton de commande, la liste débutant en A1 :
Private Sub CommandButton1_Click() Dim Plage As Range, c As Range, Ligne As Long Set Plage = Range("A1", Range("A65536").End(xlUp)) Ligne = Application.Match(TextBox1.Text, Plage, 1) Range("A1").Offset(Ligne, 0).Insert shift:=xlShiftDown Range("A1").Offset(Ligne, 0).Value = TextBox1.Text End Sub
Cordialement. Daniel
"benjaminalimi" a écrit dans le message de news:
Bonjour,
Savez vous comment je peux insérer la valeur de ma textbox dans une liste déja existante et qu'elle s'insère en respectant l'ordre alphabétique de la liste?
Pouvez vous me dire aussi comment faire si je souhaite l'insérer après la dernière valeur de ma liste afin que ce soit dynamique quand j'ajoute plusieurs fois. Merci beaucoup
PS: j'ai fait comme un petit formulaire ave plusieurs textbox et je trouve que le temps de rapatriement est tres lent , si vous en savez quelque chose...
