bonsoir ,
pour ma boite je dois faire un userform avec des references de produit
tous nos produits identifiés doit commencer par :
M-028-77
m pour notre marque
028 notre site
77 notre departement
exemple M-028-77-la machineà cafe
comment faire que pour lorsque que je cree -une nouvelle saisie j'ai juste à renseigner l'appelation de l'article sans M-028-77
mais que ça soit automatiquement renseigner dans ma base de donnees :
exemple:
nouvelle saisie = table dans ma base de donnees j'ai directement M-028-77-table
j'ai applique ton code avec une combobox afin de faire des recherches par la suite
j'ai mis
Code:
Private Sub CommandButton1_Click()
Sheets("Feuil1").Range("A1") = "M-028-77-" & comboBox1.Value
End Sub
cette fois j'ai une autre question
comment faire pour que lorsque je recheche en cliquant sur la combobox
dans laliste je n'ai que la valeur saisie sans M-028-77-
et ceci dans le tri alphabetique ?????
Il faut charger ta liste avec la méthode additem en ne prenant que la partie droite de ta chaine. C'est à dire en utilisant la fonction mid(Tachaine,10) où Tachaine correspond aux valeurs de ta liste.
Il faut charger ta liste avec la méthode additem en ne prenant que la partie droite de ta chaine. C'est à dire en utilisant la fonction mid(Tachaine,10) où Tachaine correspond aux valeurs de ta liste.
voici le code que j'ai appliquer mais il me bug ...
Code:
Dim tachaine As String
Private Sub ComboBox1_Click()
ComboBox1.Value = tachaine
ComboBox1.additem = Mid(tachaine, 10)
j'aimerai que lorsque que je consulte ma combobox1 ; je recherche uniquement les données saisie ( sans M-77-028 ) et aussi que les items soit reclassés par tri ......
Re,
Mauvaise interprétation de ma réponse... Ce que j'ai voulu dire c'est qu'il faut que tu charges ta liste avec les bonnes valeurs. Pas que tu extraies de ta liste les valeurs pour leur appliquer la formule.
Si j'ai bien compris la question tu veux que dans ton combo n'apparaisse que la 2ème partie des références.
Comment charges tu ta liste dans ton combo ?
Si tu peux joindre un bout de fichier avec un extrait de liste et ton combo, ce serait plus simple.
Cordialement
Re,
On va aller plus vite :
Pour une liste qui se trouve en Feuil1 en colonne A :
Code:
Private Sub UserForm_Initialize()
Dim i As Byte
Dim Liste(0 To 100)
With ComboBox1
.List = Liste
For i = 0 To 99
.List(i) = Mid(Sheets("Feuil1").Cells(i + 1, "A"), 10)
Next
End With
End Sub
SI bien sûr... Mais pour ça, il faut décharger l'UF et le réouvrir. Ou bien ajouter dans la routine du bouton une réinitialisation de la liste du combo.
Oui. La façon la plus simple consiste à trier ta liste sur ta feuille via la fonction tri.
Une autre méthode consiste à trier les éléments de la liste directement.
Mais comment faisais tu avant puisqu'avec la méthode rowsource la seule qui fonctionne est la 1ère que je t'indique ?
dans ma combobox je saisie popol j'ai m-77-028-popol
quand je recheche j'ai popol
une fois que je selectionne popol
j'aimairai j'ai toute la valeur c'est à dire m-77-028-popol es possible ?
dans ma combobox je saisie popol j'ai m-77-028-popol
quand je recheche j'ai popol
une fois que je selectionne popol
j'aimairai j'ai toute la valeur c'est à dire m-77-028-popol es possible ?