Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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
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...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.