STXT
Résolu
aminesc
Messages postés
70
Date d'inscription
Statut
Membre
Dernière intervention
-
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention -
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
mon probleme et le suivant :
j'ai veux affecter une valeur a un combobox qui s'appel "caisse", on utilisant les donne de la cellule F20 ,sa valeur est: "Alimentation de caisse EL OUED" ou "Alimentation de caisse SKIKDA" , voici se que j'ai essayer mais sa marche pas
For i = Range("B" & .Rows.Count).End(xlUp).Row To 10 Step -1
If Range("I" & i).Value = "R.CAISSE.CHQ" Then
userform3.caisse.FORMULA = "=Mid(range("F" & i).TEXT, 24, 40)"
mon probleme et le suivant :
j'ai veux affecter une valeur a un combobox qui s'appel "caisse", on utilisant les donne de la cellule F20 ,sa valeur est: "Alimentation de caisse EL OUED" ou "Alimentation de caisse SKIKDA" , voici se que j'ai essayer mais sa marche pas
For i = Range("B" & .Rows.Count).End(xlUp).Row To 10 Step -1
If Range("I" & i).Value = "R.CAISSE.CHQ" Then
userform3.caisse.FORMULA = "=Mid(range("F" & i).TEXT, 24, 40)"
A voir également:
- Stxt en vba
- Stxt en anglais - Guide
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
1 réponse
Bonjour Aminesc, bonjour le forum,
Je n'ai pas très bien compris exactement où tu voulais en venir mais la propriété [Formula] ne s'emploie pas pour une ComboBox.
Essaie soit avec la propriété [Value] qui va renvoyer une seule valeur dans la Combobox. Dans ce cas pourquoi une boucle ?
Soit la propriété [AddItem] qui va alimenter la Combobox avec une liste de valeurs.
Je n'ai pas très bien compris exactement où tu voulais en venir mais la propriété [Formula] ne s'emploie pas pour une ComboBox.
Essaie soit avec la propriété [Value] qui va renvoyer une seule valeur dans la Combobox. Dans ce cas pourquoi une boucle ?
For i = Range("B" & .Rows.Count).End(xlUp).Row To 10 Step -1
If Range("I" & i).Value = "R.CAISSE.CHQ" Then
userform3.caisse.Value = Mid(Range("F" & i).Text, 24, 40)
End If
Next i
Soit la propriété [AddItem] qui va alimenter la Combobox avec une liste de valeurs.
For i = Range("B" & .Rows.Count).End(xlUp).Row To 10 Step -1
If Range("I" & i).Value = "R.CAISSE.CHQ" Then
userform3.caisse.AddItem Mid(Range("F" & i).Text, 24, 40)
End If
Next i
