Mettre en gras un mot dans une cellule, faire toute la colonne en même temps et copier le mot ailleurs

Bonjour,

J'ai pris exemple sur ce topic : http://excel.engalere.com/question/13-mettre-un-texte-en-gras-sur-excel-en-vba

J'essaye de faire une macro pour mettre en gras les mots "10 ANS, 15 ANS, 20 ANS..." qui apparaissent dans des cellules, sur la même colonne.

J'ai réussi cette commande : Range("D2").Characters(InStr(1, Range("D2").Value, "10 ANS"), Len("10 ANS")).Font.Bold = True.

Ça vérifie dans la cellule D2 s'il y a le mot "10 ANS" et ça le met en gras.

Comment faire la même chose dans toutes les cellules de la colonne D c'est-à-dire rechercher si mot "10 ANS...." et mettre en gras ?

Enfin, le mot qui est en gras comment le copier dans une autre cellule ?

Exemple :

cellule D2, il repère le mot 10ANS il le met en gras et il le place dans la cellule F2
cellule D3, il repère le mot 15ANS il le met en gras et il le place dans la cellule F3
etc...

Merci

Posté le 20 avril 2016, 13:15
par Ponord5959

signaler

Répondre

Ajouter un commentaire

Bonjour,
Tu peux essayer le code suivant et l'adapter :

Sub Macro1()
    Dim X As Integer
    For X = 1 To Application.WorksheetFunction.CountA(Feuil1.Range("$D:$D"))
        If InStr(1, Range("D" & X).Value, "10 ans") > 0 Then
            Range("D" & X).Characters(InStr(1, Range("D" & X).Value, "10 ans"), 6).Font.Bold = True
            Range("F" & X).Value = "10 ANS"
        End If
    Next
End Sub

Posté le 28 avril 2016, 17:44
par ouisansdoute

signaler

Ajouter un commentaire

Mettre en gras un mot dans une cellule, faire toute la colonne en même temps et copier le mot ailleurs

Questions similaires

Erreur

Signaler un problème