[Déplacé .Net -- VBA] Erreur d'exécution 380 sur une ComboBox

Question

Bonjour,

après une recherche infructueuse sur l'existant, je vous pose mon problème.

J'ai un problème de syntaxe (à mon avis) avec une instruction que je ne veux pas coder en "dur", mais qui doit être paramétrée, pour un usage multiple.

version de base :
With Sheets("Feuil1").Range(Cells(Ld1, 2), Cells(Lf1, 3))
    Me.Genre.RowSource = "B6:C15"
End With
qui fonctionne

écriture transformée (où dans ce cas, Ld1 vaut 6 et Lf1 vaut 15) :
With Sheets("Feuil1").Range(Cells(Ld1, 2), Cells(Lf1, 3))
    Me.Genre.RowSource = "" & "B" & Ld1 & ":C" & Lf1 & """"
End With
qui se plante à l'exécution : " erreur d'exécution 380 - Impossible de définir la propriété de RowSource. Valeur de propriété non valide"

Ai-je fait une faute "d'orthographe" ou de "syntaxe" ou une autre bêtise.
 
Merci d'avance à vos réponses.
                B.B.

ucfoutu · Answer

Bonjour,
Me.Genre.RowSource = """" & "B" & ld1 & ":C" & lf1 & """"
Il est par ailleurs TRES IMPORTANT (c'est ton premier message, mais fais-y très attention pour les suivantes) d'ouvrir une discussion dans le thème correspondant à ton outil de développement :
La présente (car tu développes sous VBA) aurait dû être ouverte dans Lanages dérivés - VBA.
Merci d'y penser dès la prochaine fois.

____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

c148270 · Answer

Bonjour
Pour obtenir "B6:C15" il faut finir par ""
terminer par """" équivaut à "B1:C15""

bonne journée

[Déplacé .Net --> VBA] Erreur d'exécution 380 sur une ComboBox

2 réponses

Votre réponse

Discussions similaires