Mise en forme depuis userform vers feuille

bonjour,

Je souhaite appliquer une mise forme de certaine TextBox pour remplir une feuille mais la manière dont j'ai ecris ces 2 codes ne fonctionne pas

Voici

Sheets("Listes").Cells(Ligne, 1) = TxtBoxNumero.HorizontalAlignment = xlCenter

ou

Sheets("Listes").Cells(Ligne, 1) = Format(TxtBoxNumero, .HorizontalAlignment = xlCenter)

Quel est la bonne syntaxe, svp ?

Merci

Frederique

Bonjour,

Peut-être ainsi :

With Sheets("Listes").Cells(Ligne, 1)
    .Value = TxtBoxNumero
    .HorizontalAlignment = xlCenter
End With

Bonne journée

bonjour cousinhub,

Merci pour votre solution mais hélas ça ne fonctionne pas, le résultat ne s'affiche plus dans la colonne

Frederique

Re-,

Je n'ai fait que reprendre ton code...

Est-ce que Ligne est bien définie?

Est-ce bien dans la colonne A que tu veux écrire?

Est-ce que le textbox "TxtBoxNumero" est bien rempli?

Est-ce son bon nom?

Bref, plein d'aléas.....Et sans fichier exemple, je ne pourrai pas te donner la bonne réponse du 1er coup....

Bon courage

re,

en relisant, effectivement j'avais fait une erreur de frappe. Merci cousinhub

Je voudrais la même chose mais pour

    With Worksheets("Listes")
        Lign = .Cells(.Rows.Count, "K").End(xlUp).Row + 1
        .Cells(Lign, 11) = TxtBoxCategorie
        .Cells(Lign, 12) = TxtBoxValidite.HorizontalAlignment = xlCenter
    End With

Merci

Frederique

re

Je me réponds, voici

    With Worksheets("Listes")
        Lign = .Cells(.Rows.Count, "K").End(xlUp).Row + 1
        .Cells(Lign, 11) = TxtBoxCategorie
        With .Cells(Lign, 12)
            .Value = TxtBoxValidite
            .HorizontalAlignment = xlCenter
        End With
    End With

merci encore cousinhub

Frederique

Re-,

Tu peux imbriquer plusieurs With/End With

With Worksheets("Listes")
    Lign = .Cells(.Rows.Count, "K").End(xlUp).Row + 1
    .Cells(Lign, 11) = TxtBoxCategorie
    With .Cells(Lign, 12)
        .Value = TxtBoxValidite
        .HorizontalAlignment = xlCenter
    End With
End With

Par contre, c'est bien sur la feuille, que tu appliques le format, et non dans le TxtBox...