A voir également:
- Combobox qu'avec les cellules pleines
- Formule excel pour additionner plusieurs cellules - Guide
- Verrouiller cellules excel - Guide
- Figer les cellules excel - Guide
- Excel fusionner deux cellules - Guide
- Excel compter les cellules de couleur - Guide
6 réponses
Farfadet88
Messages postés
6293
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 365
21 janv. 2010 à 14:43
21 janv. 2010 à 14:43
Il y a plus simple.
Dans la colonne propriétés de VBA quand tu est sur ta Combobox tu as une ligne row source!
Tappes Feuil1!D1:D4
pour les données de d1 a d4
Dans la colonne propriétés de VBA quand tu est sur ta Combobox tu as une ligne row source!
Tappes Feuil1!D1:D4
pour les données de d1 a d4
Le problème c'est que la liste va fluctuer dans le temps. Je voulais donc savoir si il y avait un moyen de mettre un truc du genre Feuil1!D1:DI.
Farfadet88
Messages postés
6293
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 365
21 janv. 2010 à 14:52
21 janv. 2010 à 14:52
Ah pour ça je ne saurai pas faire mais c'est réalisable.
Je tente quand même quelque chose
Je tente quand même quelque chose
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 745
21 janv. 2010 à 14:57
21 janv. 2010 à 14:57
Salut,
Personnellement, je fais comme cela :
Personnellement, je fais comme cela :
Private Sub Userform_Activate()
Dim I As Integer, lig As Integer
With Sheets(1)
lig = .Range("D65536").End(xlUp).Row
For I = 1 to lig
UserForm3.ComboBox1.AddItem .Cells(I, 4)
Next
End With
End Sub
Farfadet88
Messages postés
6293
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 365
21 janv. 2010 à 15:24
21 janv. 2010 à 15:24
Admirable. Ca marche parfaitement chez moi
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Merci de votre aide ! Pijaku ta solution provoque une erreur d'execution "70", la ligne
UserForm3.ComboBox1.AddItem .Cells(I, 4)
est surligné en jaune.
UserForm3.ComboBox1.AddItem .Cells(I, 4)
est surligné en jaune.
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 745
21 janv. 2010 à 15:25
21 janv. 2010 à 15:25
Je viens de tester... Fonctionne ben chez moi.
Dans ton code (post 1) change :
par :
et si cela bloque encore reviens ici...
Dans ton code (post 1) change :
UserForm3.ComboBox1.RowSource = "Feuil1!D:D & I"
par :
UserForm3.ComboBox1.RowSource = "Feuil1!D:D" & I
et si cela bloque encore reviens ici...
Usgpa
>
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
21 janv. 2010 à 15:31
21 janv. 2010 à 15:31
Apparament : Valeur de propriété non valide. erreur d'execution "380".
Farfadet88
Messages postés
6293
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 365
>
Usgpa
21 janv. 2010 à 15:35
21 janv. 2010 à 15:35
en mettant ton fichier sur cijoint peut-être que quelqu'un trouvera où ton fichier coince?
http://www.cijoint.fr/
http://www.cijoint.fr/
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 745
>
Usgpa
21 janv. 2010 à 15:36
21 janv. 2010 à 15:36
evidemment...
Private Sub Userform_Activate()
I = 1
While Sheets("Feuil1").Range("D" & I) <> ""
UserForm3.ComboBox1.AddItem Sheets("Feuil1").Range("D" & I)
I = I + 1
Wend
End Sub
Farfadet88
Messages postés
6293
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 365
>
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
21 janv. 2010 à 15:39
21 janv. 2010 à 15:39
Peut-on avoir une petite explication du problème et de ce que tu viens d'écrire pour corriger?
Iama
Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
14
21 janv. 2010 à 15:18
21 janv. 2010 à 15:18
Si cela peu te donner des idées, j'ai fait un truc comme ça. Ne pas oubluer la réjeneration a chaque entée dans le tableau
'Ordre_Val.Caption : N° Enregistrement des données => orgine Un Label
'FeuilPiece : Nom feuille
'TableauR : Nom de cellules
'Modification de la longueur du tableaux des valeurs calculé Adresse type : "=Piéce!R1C1:R20C15"
ActiveWorkbook.Names("TableauR").RefersTo = "=" & FeuilPiece & "!R7C1:R" & 6 + Ordre_Val.Caption & "C15"
6 = Ligen e
'Ordre_Val.Caption : N° Enregistrement des données => orgine Un Label
'FeuilPiece : Nom feuille
'TableauR : Nom de cellules
'Modification de la longueur du tableaux des valeurs calculé Adresse type : "=Piéce!R1C1:R20C15"
ActiveWorkbook.Names("TableauR").RefersTo = "=" & FeuilPiece & "!R7C1:R" & 6 + Ordre_Val.Caption & "C15"
6 = Ligen e
