OUPS !!! cell Format Suite_4

  • Initiateur de la discussion Initiateur de la discussion Blandine
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

B

Blandine

Guest
MERCI BCP STéphane

C'est presque ça car je souhaite le formattage avec une virgule 100,00 €
Comment mofifier car j'ai essayé de changé le point en virgule mais ça ne le fait pas ?!!!

sub Test4 ()
Range("C2").Value = Format([B2], """total = ""#,##0.00 €")
Range("C2").Characters(Start:=Len("total = "), _
Length:=Len("total = " + [B2].Text)).Font.ColorIndex = 3
End Sub
 
Si tu avais lu tes précédent messages, tu aurais vu que je t'avais déjà répondu.
Avec cette variante cela devrait marché ! Tu reprend ainsi le même format
que la cellule contenant les 100€.

Dim T1 As String, T2 As String
T1 = Range("A2").Value
T2 = Format(Range("B2").Value, Range("B2").NumberFormat)
Range("C2").Value = T1 & " " & T2
Range("C2").Characters(Start:=Len(T1) + 2, _
Length:=Len(T2)).Font.ColorIndex = 3

LeChat
 
C'est pas très sympa de me dire que je n'ai pas lu mes précédentes réponses, chose que naturellement je fais puisque j'ai posée ma question!

Bref essaye ton code car le tien ne fonctionne pas du tout par rapport à ma demande...

MERCI
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
22
Affichages
3 K
Retour