Format des cellules

[recovery]

Bonjour tout le monde

une fois de plus, j'ai besoin des compétences d'utilisateurs aguerris je m'explique, via un userform je place dans ma feuille sélectionnée des données j'aimerais que ces dernières soient centrées horizontalement et verticalement,
voici mon code qui fonctionne néanmoins comme je suis un pur novice je pense qu'on peut le simplifier.

bien cordialement.

Private Sub CommandButton5VALarticle_Click()
Dim A As Integer
Sheets(ComboBox1.Value).Select
A = Range("a500").End(xlUp).Row + 1
Cells(A, "a").Value = TextBox7CodeArticle.Value
Cells(A, "b").Value = TextBox8Produit.Value
Cells(A, "c").Value = TextBox9RéfProduit.Value
Cells(A, "d").Value = TextBox10PrixHT.Value
Range("a1").CurrentRegion.HorizontalAlignment = xlCenter
Range("a1").CurrentRegion.VerticalAlignment = xlCenter

 

[Fred0o]

Re : Format des cellules

Bonsoir recovery,

Si tu avait fait appel à notre célèbre copain Henry (JISTREURDEMACRO), tu aurais trouvé comment modifier ton code :

Private Sub CommandButton5VALarticle_Click()
    Dim A As Integer
    Sheets(ComboBox1.Value).Select
    A = Range("a500").End(xlUp).Row + 1
    Cells(A, "a").Value = TextBox7CodeArticle.Value
    Cells(A, "b").Value = TextBox8Produit.Value
    Cells(A, "c").Value = TextBox9RéfProduit.Value
    Cells(A, "d").Value = TextBox10PrixHT.Value
    Range("a1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With

A+

 

[recovery]

Re : Format des cellules

Merci pour ta suggestion mais cette dernière ne fonctionne pas cela n'est pas bien grave je continue donc avec mon code.

 

[Fred0o]

Re : Format des cellules

Bonsoir recovery,

Pourrais-tu me joindre un fichier exemple avec des données anonymes et la vision de ton problème pour que je puisse tester les solutions ?

A+