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

0

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

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

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

Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :