Problème Combobox Excel VBA 2003

Question

Petite question VBA Excel 2003. J'ai une combobox (CBX) remplie par une liste d'adresses saisies dans une feuille de calcul. Chaque adresse a au moins 3 lignes dans sa cellule et 5 au plus (combinaison alt+entrée). Le problème est le suivant. Lorsque mes utilisateurs choisissent une adresse dans la CBX elle s'inscrit bien au bon endroit mais ... à l'impression, chaque ligne se termine par un "petit carré blanc" correspondant au caractère de fin de ligne (de chaque alt+entrée) bien visible dans la CBX. J'ai beau chercher d'où peut venir l'erreur ... rien à faire Ci-dessous le code complet de la SUB d'initialisation et une image du résultat bien plus parlante : Private Sub UserForm_Initialize() ' Remplir combobox1 et 2 Dim i As Long For i = 3 To Range("A400").End(xlUp).Row ComboBox1.AddItem (Replace(Range("A" & i).Value, vbLf, " ")) Next For i = 3 To Range("c10").End(xlUp).Row ComboBox2.AddItem (Replace(Range("C" & i).Value, vbLf, " ")) Next ' Sheets("ADRESSES").Select ComboBox1.RowSource = "ADRESSES!a3:a400" ComboBox2.RowSource = "ADRESSES!c3:c52" ComboBox3.RowSource = "ADRESSES!e3:e4" ' Sheets("IMP_RECO").Select toumenus End Sub Quelqu'un aurait-il déjà eu ce problème et trouvé la solution ? Merci à tous et bonne journée...

galopin01 · Accepted Answer

A la fin de la Private Sub CommandButton1_Click() mettre : '... &#91;B8&#93; = Replace(ComboBox1, Chr(13), "") &#91;C41&#93; = Replace(ComboBox2, Chr(13), "") &#91;C61&#93; = ComboBox3 protéger End Sub A+...

BOB71AU · Answer

Je ne connais pas le problème mais la macro que vous postez est le chargement de l'userform j'ai testé et moi ça fonctionne par contre ce que "tu ne nous dis pas tout" c'est par quel moyen vous renvoyez la valeur du combobox dans la feuille d'impression cordialement BOB...

BOB71AU · Answer

Je vais tester mais ça me parait correct avez vous essayé de refaire la macro dans un autre classeur pour voir le résultat? cordialement BOB -- 30 Jan 2010, 19:32 -- RE Bonsoir voir si le fichier joint donne le même résultat chez vous a plus BOB...

BOB71AU · Answer

Donc ce serait plutôt lié à un paramètre excel ou une option il faut donc chercher je regarde de mon coté si quelqu'un a la solution, il est le bienvenu BOB -- 30 Jan 2010, 22:31 -- Bonsoir Gilbert petite question quels sont les macros complémentaires activées? aucune de coché en ce qui me concerne j'ai regardé les options mais je ne trouve rien bon courage BOB...

galopin01 · Answer

On peut en avoir un bout de ton fichier ? (pas une image ! ) Juste un ou deux enregistrements... A+...

vba-new · Answer

Une petite mise en garde pour ceux qui ouvriront le fichier de gilbert. A l'ouverture du classeur, une macro évènementielle cache la barre d'outils et tout autre menu excel. Y compris la petite croix pour fermer excel. Pensant avoir affaire à un bug, j'ai quitté excel de façon peu "orthodoxe". A la réouverture d'excel, ma barre de menus avait disparu ! J'ai dû utiliser le code suivant (trouvé sur le net) pour récupérer mes menus :

Sub ResetCommandBars()
Dim x
    On Error Resume Next
    For x = 1 To Application.CommandBars.Count
        With Application.CommandBars(x)
            .Reset
            .Enabled = True
        End With
    Next x
End Sub

Donc, si vous ne voyez pas vos menus habituels en ouvrant le fichier de gilbert, c'est normal. Tout passe par l'application contenue dans le fichier (notamment la fonction "quitter").