Discussion :

[D.Mounir]

Bonjour,

comment on fait pour colorer une case qui repond a une condition : j'ai essayé cette solution, mais ca ne marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub format_cellule()
For Each Cell In Range("F1:F20")
    If Cell.Value Like "[A-Z]###" Then 'MsgBox "Non"
    Else: Cell.Value.Interior.ColorIndex = 3
    End If
Next Cell
End Sub

qu'est ce qui va pas dans mon code???
Merci pas avance

[ouskel'n'or]

Que veux-tu trouver dans ta cellule pour que like ... = true ? Donne un exemple.
Sinon, pour interior.color, ce n'est pas cell.value mais cell tout court.

[D.Mounir]

Ca marche, la reponse me suffit
j'ai une autre question, je veux corriger la forme de mes cases, cad :
- bonjour,c'est moi devient bonjour, c'est moi
- bonjour tout le monde, devient bonjour tout le monde (enlever la virgule de fin de chaine)
donc enlever les caractères superflus,et corriger un peu l'orthographe,
le probleme c'est que je sais pas comment detecter le caractère de fin de chaine:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub virgules_fin()
Dim Cell As Variant
For Each Cell In Range("D1:D1340")
    Cell.Value = Replace(Cell.Value, ",", ", ")
Next Cell
End Sub

j'arrive pas a enlever la virgule de fin !!!
merci de votre aide

[ouskel'n'or]

Je ne sais pas si j'ai vraiment compris la question
Je reprends

Cell.Value = Replace(Cell.Value, ",", ", ")

et je suppose qu'en fait tu veux supprimer la virgule tout court. Dans ce cas là, tu n'es pas loin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Cell.Value = Replace(Cell.Value, ",", "")

Si j'ai mal compris, tu dis
A+

[D.Mounir]

non, quand j'ai une virgule au milieu de la chaine, je rajoute un espace comme en bon francais, mais si la virgule est a la fin de la chaine, ce qui n'a pas de sens, je dois la virer, revois les exemples ci-dessus

[ouskel'n'or]

Dans tes exemples, si tu avais mis

Ce que j'ai
- bonjour,c'est moi
Ce que je veux
- bonjour, c'est moi

Ce que j'ai
- bonjour tout le monde,
Ceque je veux
- bonjour tout le monde

j'aurais compris tout de suite

[D.Mounir]

désolé pour cette maladresse....

[ouskel'n'or]

Je ne vois pas de solution simple.
1 - Si tu remplaces "," par ", " tu ajouteras un espace en fin de chaîne ou mieux,
2 - tu insèreras un espace supplémentaire si tu en as déjà un.
3 - Si tu remplaces "," par "", tu supprimes toutes tes virgules

Donc, ta solution peut consister à séparer les actions.
Dans l'ordre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Cell.Value = Replace(Cell.Value, ", ", ",") 'pour éviter 2
    if instr(Cell.Value,",") = len(Cell.Value) then _
         Cell.Value= Left(Cell.Value, len(Cell.Value)-1) 'Evite 3
    Cell.Value = Replace(Cell.Value, ",", ", ") 'Corrige 1

[D.Mounir]

merci pour ta solution,
je l'ai essayé mais ca ne marche pas pour la suppression des virgules de fin de chaine (elles restent qd meme !!!):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub virgules()
Dim Cell As Variant
For Each Cell In Range("D1:D10")
    Cell.Value = Replace(Cell.Value, ", ", ",") 'pour éviter 2
    If InStr(Cell.Value, ",") = Len(Cell.Value) Then _
         Cell.Value = Left(Cell.Value, Len(Cell.Value) - 1) 'Evite 3
    Cell.Value = Replace(Cell.Value, ",", ", ") 'Corrige 1
Next Cell
End Sub

je vois pas ce pkoi ca marche pas