format cellule aligné gauche/droite selon contenu

[loic38]

bonjour à toute la communauté
un petit moment que je ne vous ai pas sollicité
toujours aussi agréable de venir passer un moment sur le site

voilà mon pb

en format spécial de cellullles je voudrais
si la cellule contient OUI faire l'affichage à gauche
si elle contient NON affichage à droite

je sais que l'on peut faire varier l'affichage avec des couleurs, mais est ce possible également sur l'alignement

merci de vos réponses :sick:

 

[Creepy]

Hello,

Par la mise en forme consitionnelle je ne crois pas que ce soit possible.

Par contre je peux te proposer une solution en macro sasn problème.

A moins qu'un formuliste (moi je suis nul en formules) n'arrive à te proposer quelque chose.
Je suis toujours surpris de ce qu'il arrivent à faire avec des formules :lol:

Fait moi signe si la solution par macro t'interesse

@+

Creepy

 

[andré]

Salut loic38 et Creepy,

Il y a bien une méthode, mais quelque peu tirée par les cheveux !

Menu Outils / Options de correction automatique / Remplacer : non / Par : 0
Menu Format / Cellule / Nombre / Personnalisé : [=0]'non';Standard

Les 'non' s'aligneront à droite, les autres textes à gauche, et les nombres à droite.

Cette méthode présente le (très) léger double inconvénient que si le texte 'non' est tapé dans une cellule avec un autre format, il sera remplacé par un 0 et que si on tape un 0 dans une cellule au format précité, il sera remplacé par 'non'.
C'est pas bien grave, mais vaut mieux le savoir.

Â+

 

[loic38]

merci André de ta réponse, mais je préfère si celà n'est pas possible en standard dans les formats spécifiques, de l'obtenir par MACRO

svp m'envoyer la macro

comme l'a bien compris André, les cellules contenant OUI/NON sont obtenues par Formule avec un Si faire remplacer NON par O me parait plus risqué avec notamment l'obligation de le faire à chq nouvelle ligne

merci

 

[andré]

Salut loïc38,

Par macro, hélas, je ne puis t'aider !

Mais vois le petit fichier joint, il me semble que c'est simple.
Enfin, à mon avis !

Bonne chance pour la suite.
Â+ [file name=alignement_texte.zip size=2478]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/alignement_texte.zip[/file]

 

[Creepy]

Re bonsoir,

Voici le code de la macro. je suis parti du principe que tes valeurs se trouvaient dans la colonne A.

Si ce n'est pas le cas à toi d'adapter ce code.

++

Creepy

Sub Macro2()

Dim Compteur As Integer

For Compteur = 1 To Feuil1.Range('A65535').End(xlUp).Row
    If UCase(Feuil1.Range('A' & Compteur).Value) = 'NON' Then
        With Feuil1.Range('A' & Compteur)
            .HorizontalAlignment = xlRight
            .VerticalAlignment = xlCenter
        End With
    End If
   
    If UCase(Feuil1.Range('A' & Compteur).Value) = 'OUI' Then
        With Feuil1.Range('A' & Compteur)
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlCenter
        End With
    End If
Next Compteur
End Sub

 

[loic38]

merci
c'est exactement ce que je cherchais
bravo pour cette macro simple et très efficace