Archives de la catégorie : Divers

C'est une question qui semble simple, mais quand même pas si évidente...

Voici un fichier exemple.

Je viens de trouver une réponse possible - et qui fonctionne pour moi - donc n'hésitez pas à modifier/compléter si vous voyez quelque chose d'incohérent.
La beauté de la chose réside dans sa simplicité (une ligne !)

On aura définit au préalable la variable "nom_tableau"

Ca nous donne donc ceci :

Wks_Feuille.ListObjects(nom_tableau).Range.SpecialCells(xlCellTypeVisible).Copy _
destination:=Workbooks.Add.Worksheets(1).Range("A1")


A bientôt

Sources : Walkenbach et ici.

Gaetan

Ca donne ceci comme exemple :

Sub test()
Range("A1") = "Et on souligne seulement une partie du texte."
Range("A1").Characters(16, 13).Font.Underline = True
End Sub

On peut aussi effectuer d'autres formatages (merci à Michel) :
Sub PartieTexte()
   Range("A1") = "Et on souligne seulement une partie du texte."
   Range("A1").Characters(16, 13).Font.Underline = True
   Range("A1").Characters(16, 13).Font.ColorIndex = 3
   Range("A1").Characters(16, 13).Font.Size = 15
End Sub


A bientôt

Source : http://www.mrexcel.com/forum/excel-questions/715012-visual-basic-applications-underline-only-portions-text-single-cell.html

Gaetan

Bonjour à tous,

Je dois dire que ca fait du bien des commentaires comme celui-ci 😉

---

C’est sans tartufferie que je conseille les CDs de formation de Gaëtan.
J’ai les tout derniers et sincèrement on les bossant régulièrement, on progresse sans commune mesure.
N’hésitez pas à vous lancer dans la programmation VBA sur Excel même des petites macro que vous aurez créées vous aideront à franchir le pas et à les étoffer dans le temps.
N’hésitez pas à piquer à Gaëtan quelques lignes de code de ces cours pour voir ce que cela fait dans vos macro. N’ayez pas peur !
Au mieux quand cela marche, on est heureux comme des gamins le matin du 25 décembre et au pire…..On est super frustré face à cette stupide machine qui n’a pas fait le moindre effort pour essayer de comprendre ce que vous tentiez de lui demander. 8-D
Lancez-vous et bon courage !
Romuald

---

A bientôt

Gaetan