pour les pros du VBA

[Mytå]

Bonsoir le forum

Bien oui (GMT -05:00) Est (USA et Canada)
ici 20 hres 50 minutes 42 secondes 23 centièmes

En VBA ecrire en contacner

derniere facture le 21-fevr-2002

Oki pour le mois en VBa ma recuperer février je sais

mais je veux le texte derniere facture le (en noir)

et la date 21-février-2003 en couleur rouge et gras

sur une cellulle

C'est possible ???????/

Merci d'avance Mytå

 

[Valérie]

Slt Mytå et tous ceux qui nous lisent,

Tu peux effectivement le faire avec un code de ce type là

With ActiveCell.Characters(Start:=21, Length:=Len(ActiveCell)-20).Font
.Font.Bold = True
.ColorIndex = 3
End With

Tu changes de format à partir du caractère 21 et jusqu'à la fin

A bientôt

Valérie

 

[@+Thierry]

Coucou Mytå ET Valérie et le Forum...

Ce matin j'avais vu ce post de Mytå en buvant mon café mais depuis je n'ai pas eu de temps à y consacrer (ni à personne du Forum d'ailleurs)

C'est très ingénieux Valérie ton système, et ce doit être plus rapide à l'exécution que mon idée (voir plus bas) toutefois tu as un ".font" de trop en fin de ligne...

Sub TestValerie()
With ActiveCell.Characters(Start:=21, Length:=Len(ActiveCell) - 20).Font
.Bold = True
.ColorIndex = 8
End With


Moi de mon coté j'avais pensé à une boucle comme ceci :

Sub MytaSpecial()
Dim F As String
Dim D As Date
Dim MySTring As String
Dim i As Byte
F = "Dernière Facture le "
D = Now
MySTring = F & Format(D, "DD-Mmm-YYYY")
Range("a1") = MySTring
With Worksheets("Sheet1").Range("A1")
.Value = MySTring
For i = 20 To 31
.Characters(i).Font.Bold = True
.Characters(i).Font.Color = RGB(255, 0, 0)
i = i + 1
Next i
End With
End Sub

Comme quoi en VBA il y a mille et un moyen d'arriver à sa solution... et passant par des chemins divers et variés que nous pouvons échanger au sein de ce forum.

Bien à Toi Valérie
Bien à Toi Mytå

Bon aprèm à tous et toutes
@+Thierry

 

[@+Thierry]

oups should read "un ".font" de trop en DEBUT de ligne...

 

[@+Thierry]

Re Oups dans mon code le "Range("a1") = MySTring" ne sert à rien !

 

[@+Thierry]

Hello Mytå et Valérie et le Forum

Ben alors Mytå, çà ne convient pas ? Tu ne nous as pas donné de nouvelles ?

On s'est pourtant cassé la tête tous les deux avec Valérie pour te trouver une soluce pour un truc qui franchement ne devrait servir qu'à toi...

Et puis pfouuu plus de Mytå depuis !! tu n'as pas cassé ta bécanne au moins ?

Bon App
@+Thierry

 

[Mytå]

Re le Forum

J'etais de sortit sans PC depuis 7 jours

Et moi le premier qui aime pas que la personne ne donne pas réponse a un message

Pour cette fois veuiller etre indulgent avec moi j'ai moi aussi des lacunes

je m'en excuse

je test cela et vous allez avoir un merci si ca marche (mais ca marche toujours)

A demain pour la rsp

Myteux

 

[@+Thierry]

Hé hé hé

Tu es tout excusé Mytå

BOn vé dodo

@+Thierry

 

[Mytå]

Merci le Forum,

J'ai utliiser la méthode de Valerie mais je garde quand meme cela de
@Thierry a la porte de la main.

Mytå