Résultats de la recherche

Re : Macro ajout de texte avec mise en forme dans une cellule J'ai peut-être trouvé un début de solution : Declare Function SetCaretPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long ' Routine to set cursor position Sub Set_Cursor_Pos() ' Looping routine that...

Re : Macro ajout de texte avec mise en forme dans une cellule Bien vu, j'avais déjà essayé mais j'ai dû me tromper quelque part. Mon code ressemble à ca maintenant : Sub test() Dim nb As Integer nb = ActiveCell.Characters.Count police = ActiveCell.Characters(Start:=nb -...

Re : Macro ajout de texte avec mise en forme dans une cellule Quelqu'un a une solution?

Re : Macro ajout de texte avec mise en forme dans une cellule J'ai un peu avancé ce matin, Ta première piste m'a été très utile j'ai en fait fait comme suit pour avoir mon texte mis en forme à la suite : Sub test() Dim nb As Integer nb = ActiveCell.Characters.Count...

Re : Macro ajout de texte avec mise en forme dans une cellule Merci de répondre aussi vite, Effectivement ton code me permet d'ajouter sans effacer, mais comment je fais pour affecter un texte mis en forme à la chaine Y sachant que la police et la couleur varient dans le texte prédéfini...

Bonjour, L'intitulé peut paraître plus simple que ne l'est mon problème. Je voudrais à l'aide d'une macro ajouter du texte dans la cellule active. Par exemple j'écris "Ceci est un test" (avec ou sans mise en forme) dans une cellule puis, à l'aide de la macro, j'ajoute un texte prédéfini...