Alignement texte avec VBA

Bonjour le forum,

Je me pose une question; j'ai des titres qui apparaissent dans mon tableau, ces titres ne sont jamais fixés à une cellule donc je me demande s'il existe une commande VB qui me permettrait de dire :

Voilà dans cette plage (A31:A100) si le mot "SERVICES" apparaît, tu places le mot au milieu de la cellule sans toucher l'alignement des autres cellules.

Si quelqu'un à une piste, ca serait top

Cordialement,

Nat

Bonjour NatKJ, le forum,

A tester:

Sub test()

 Dim plage As Range, c As Range

  Set plage = Range("A31:A100")
   For Each c In plage
    If c.Value Like "SERVICES" Then c.HorizontalAlignment = xlCenter
   Next c
End Sub

Cordialement,

xorsankukai a écrit :

Bonjour NatKJ, le forum,

A tester:

Sub test()

 Dim plage As Range, c As Range

  Set plage = Range("A31:A100")
   For Each c In plage
    If c.Value Like "SERVICES" Then c.HorizontalAlignment = xlCenter
   Next c
End Sub

Classeur1.xlsm

Cordialement,

Bonjour Xorsankukai,

Merci pour ton mesage.

Ca ne fonctionne pas enfin du moins quand je l'intègre à ma macro déjà existante ca ne fonctionne pas.

L'idéal serait de l'intégrer au bouton "Copy Services" de la feuil "SERVICES" pour que cela puisse apparaître dans la feuille "PROPOSAL"

Je laisse un fichier, si besoin

Nat,

Bonjour NatKJ,

J'ai ajouté un modulé avec une fonction "Aligner".

Je te laisse regarder si cela te convient.

Cordialement,

SanGroku a écrit :

Bonjour NatKJ,

J'ai ajouté un modulé avec une fonction "Aligner".

Je te laisse regarder si cela te convient.

Cordialement,

Salut SanGroku,

Module qui marche parfaitement,

Si je désire que l'alignement marche aussi sur d'autres mots qu'est-ce que je peux écrire ?

Nat,

Re,

Sub Aligner() Dim plage As Range, c As Range Set plage = ThisWorkbook.Worksheets("PROPOSAL").Range("A1:A100") For Each c In plage If c.Value Like "SERVICES" Orc.Value Like "TRANSPORT" Then c.HorizontalAlignment = xlCenter End If Next c End Sub

Un truc de ce genre là fonctionne, plus qu'à rajouter ce que tu veux ^^

Cordialement,

SanGroku a écrit :

Re,

Sub Aligner() Dim plage As Range, c As Range Set plage = ThisWorkbook.Worksheets("PROPOSAL").Range("A1:A100") For Each c In plage If c.Value Like "SERVICES" Orc.Value Like "TRANSPORT" Then c.HorizontalAlignment = xlCenter End If Next c End Sub

Un truc de ce genre là fonctionne, plus qu'à rajouter ce que tu veux ^^

Cordialement,

Re,

Effectivement ca marche !

Mais j'ai trouvé une autre manière encore plus simple pour moi, du coup tout fonctionne à merveille,

Je te remercie beaucoup !

Bonne aprèm à toi,

Nat