liste deroulante (combox listebox)

[bruno]

Bonjour a tous et bonne st valentin.
une question en relation sur les combox et listebox
par la propriete row de la combox je vais cherche le contenu de la liste deroulante dans une feuille aidesaisie aidesaisie!K5:K10 .
mais qquand l'utilisateur finale ne trouve pas son bonheur il a possibilite de sasiir ce qu'il veut (ex: toto)
donc dans la feuille finale le toto apparait bien mais pas le la feuille aide saisie peux ton donc en vba inserer le toto dans la feuille aidesaisiedans la colonne K pour que lorsque d'une future saisie l'utilisateur retrouve dans le combox le mot toto.
merci d'avance
A+

 

[jacquesderyes]

Bonjour Bruno
A suivre tu voudras bien trouver un petit bout de programme que j'utilise et qui semble répondre à ton problême;J'ai juste fait un copier coller aussi tu pourras "manipuler" le code selon tes besoins.Attention!!!! je suis débutant en vba alors sois indulgent si ma façon de traiter le problême peut sembler archaique.
Je profite de ce message (qui est le premier que j'envoie)pour remercier tous ceux qui participent à ce forum et dont les réponses aux questions posées sont d'une aide très précieuse.
Bien amicalement
jacquesderyes
***********************************************************

Sub TRANSCOMBO()
Dim transfert As String
Dim c As Range
Dim AUTRE


transfert = UserForm1.ComboBox1.Value
If UserForm1.ComboBox1.Value = "" Then
MsgBox "VEUILLEZ INDIQUER UNE VALEUR!.", vbCritical, Title:="ERREUR DE SAISIE"
Exit Sub
End If
On Error GoTo AUTRE
Set c = Sheets("Feuil1").Range("C8:C50").Find(What:=transfert, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
c.Select


MsgBox "LA REFERENCE: " & transfert & " A ETE TROUVEE"


Unload UserForm1

Exit Sub

AUTRE:
MsgBox "LA REFERENCE: " & transfert & " N'A PAS ETE TROUVEE"
Application.Goto Reference:="TOP"
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Value = transfert
ActiveCell.Offset(1, -1).Value = ActiveCell.Offset(0, -1).Value + 1
With ActiveCell.Offset(1, 0)
.Font.Bold = True
.Font.ColorIndex = 3
End With
With ActiveCell
.Font.Bold = False
.Font.ColorIndex = 1
End With
Unload UserForm1
End Sub

 

[@+Thierry]

Démo ComBoBox et Gestion de Database

Bonjour Bruno et Jacques et tous les Zamis et Zamies

Excellente question Bruno et j'en ai profité pour faire une démo car c'est une question que ne semble pas avoir été abordé sur le Forum et par conséquent je vous invite tous les deux :

Dans ce fil de discussion

C'est une autre approche de celle de Jacques, laquelle semble très bien aussi.

Bon Week End
@+Thierry

 

[@+Thierry]

Bonjour Bruno et Jacques et le Forum

J'ai bien reçu ton mail Bruno

-----Message d'origine-----
De : BRUNO [mailto:B2000C2002@numericable.fr]
Envoyé : vendredi 21 février 2003 06:02
À : thierry
Objet : => DEMO UserForm ComboBox Gestion de Database (MAJ Doublon/Supression etc)


salut
merci pour ton aide mais le fichier associe
n epeut etre downloade....
?
A+


Je t'ai répondu :


-----Message d'origine-----
De : Thierry
Envoyé : dimanche 16 février 2003 08:40
À : BRUNO
Objet : RE: => DEMO UserForm ComboBox Gestion de Database (MAJ Doublon/Supression etc)


Bonjour

IL y a un utilitaire à charger pour arriver à télécharger les pièces jointes, car c'est exact que selon les PCs, certains ne peuvents download les pièces jointes du forum.

Meta Products Sofware Corporation
<http://www.metaproducts.com/mp/mpProducts_Downloads_Current.asp>
Télécharger le programme "Download Express 1.3.119 Release" pour Windows. (256Ko)

Sinon je te joins ma démo.

Bon Dimanche
@+Thierry

PS n'oublie pas que normalement il faut répondre dans le forum
<http://www.excel-downloads.com/html/French/forum/messages/1_18689_18689.htm>


Mais j'ai eu un Mail Failure :
This is a permanent error; <B2000C2002@numericable.fr>:
Sorry, no mailbox here by that name. (#5.1.1)

Donc installe DownLoad Express...

Bonne Journée
@+Thierry

 

[François]

Bonjour

J'étudie des procédures pour une appli perso.
Une question :

Pourquoi cette syntaxe que je retrouve partout :

L = Sheets("Feuil1").Range("A65536").End(xlUp).Row

Plage = Sheets("Feuil1").Range("A2:A" & L).Address
ComboBox1.RowSource = "Feuil1!" & Plage

Alors que ceci fonctionne :

ComboBox1.RowSource = "A2:A" & L

Merci.

François.