Discussion :

[JukeBoX]

Bonjour,

Est-ce possible de récupérer par macro une chaine de caractères en rouge depuis une cellule ?

Pour le moment j'ai trouvé cette formule :

Code :

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

Range("B1").Formula = "=RedText(A1)"

Mais je n'arrive à la faire fonctionner que dans la feuille Active
Comment faire pour indiquer une feuille particulière pour "=RedText(A1)" ?

Merci pour votre aide !

Edit : J'ai oublié la fonction associée :

Code :

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

1
2
3
4
5
6
7
8
9
Function RedText(Rng As Range) As String  Dim X As Long, S As String
  S = Rng.Text
  For X = 1 To Len(Rng.Text)
    If Rng.Characters(X, 1).Font.Color <> vbRed Then
      If Mid(S, X, 1) <> vbLf Then Mid(S, X, 1) = " "
    End If
  Next
  RedText = Replace(Replace(Application.Trim(S), " " & vbLf, vbLf), vbLf & " ", vbLf)
End Function

[JukeBoX]

Si j'exécute depuis un autre classeur cela me met :

Code :

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

#NOM?

Comme résultat dans la cellule B1

[JukeBoX]

J'avais oublié de mettre la fonction dans le classeur correspondant...

[axelair2]

Comment faire pour indiquer une feuille particulière pour "=RedText(A1)" ?

Salut pour indiquer une feuille particulière tu peux faire comme cela :

Code :

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

Sheets("Feuille particuliere").Range("B1").Formula = "=RedText(A1)"

A+