Discussion :

[cle.mentito]

Bonjour,
Je suis en train de créer une macro qui consiste à modifier AUTOMATIQUEMENT la police (taille & couleur) d'un mot dans un tableau excel.
Je ne sais pas du tout par ou commencer
(Je suis débutant en vba)
Merci d'avance

[gnain]

Bonjour,
Ce code recherche le mot que vous voulez et change la police, la grosseur de font, et la couleur.
et le change partout ou il est présent dans la feuille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub test()
 
    On Error Resume Next
     'votre mot apparaît dans ligne suivante
 
    Cells.Find(What:="Votre mot", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
 
    If Err.Number Then
        On Error GoTo 0
        Exit Sub
    End If
    On Error GoTo 0
     With Selection.Font
        .Name = "AR CENA" 'La font
        .Size = 20 'La grosseur de la font
        .ColorIndex = 8 'La couleur rechercher, colorindex vba excel sur internet pour voir le tableau
    End With
 
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row 'Boucle jusqu'à la dernière cellule non vide colonne A à partir du bas
        Cells.FindNext(After:=ActiveCell).Activate
        With Selection.Font
            .Name = "AR CENA" 'La font
           .Size = 20 'La grosseur de la font
           .ColorIndex = 8 'La couleur, rechercher colorindex vba excel sur internet pour voir le tableau
       End With
    Next
End Sub

[Ashireon]

Bonjour,
il va falloir être plus précis.
As tu besoin de changer un mot dans une chaîne de caractère d'une cellule d'un tableau ?
ou as tu besoin de changer toute la cellule.
A quel moment arrive cette modification au moment ou tu fais des saisies dans tes cellules , en appuyant sur un bouton au chargement de la feuille à l'affichage ?
autant de questions qui attendent des réponses.

++

[cle.mentito]

je voudrais mettre en rouge le contenu de la variable "mot"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim rech As String
Dim cont As String
Dim longueur As Long
Dim pos As Long
dim mot as string
 
 
Cells.Select
Range("a1").Select
 
rech = InputBox("Entrez le texte recherché")
 
suiv:
 
Cells.Find(What:=rech, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
 
cont = Selection.Value
' MsgBox cont
longueur = Len(cont)
pos = InStr(1, cont, rech, 1)
' MsgBox pos
mot = Mid(cont, pos, longueur)
' MsgBox mot

[gnain]

Ajouter ces 2 lignes à la fin.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Longueur_mot = Len(mot)
ActiveCell.Characters(Start:=pos, Length:=Longueur_mot).Font.ColorIndex = 3