Discussion :

[MottetCCSF]

sous excel, dans la 1ère colonne, je saisis du texte.

J'aimerais à la volée (quand j'appuie sur la touche entrée) lancer une fonction vba qui vérifie que pour chaque texte saisi de cette colonne est bien compris dans une liste de texte autorisé.

Les textes autorisés sont situés par exemple, en colonne 5
Si il est compris, je laisse le texte en noir sinon j'écris en rouge.

Merci d'avance

[wilfried_42]

Bonsoir

Une mise en form conditionnlle

Menu Edition/Mise en forme conditionnelle

de E1 à E10 Les occurencense à trouver, A1 la callule de saisie

Code :

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

la formule est : =nb.si(E1:E10,A1)=0

Mise en forme rouge

bonne soirée

[MottetCCSF]

Bonsoir

Une mise en form conditionnlle

Menu Edition/Mise en forme conditionnelle

de E1 à E10 Les occurencense à trouver, A1 la callule de saisie

Code :

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

la formule est : =nb.si(E1:E10,A1)=0

Mise en forme rouge

bonne soirée

ci-joint le code que j'ai réalisé :

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
30
31
32
33
Sub Test()
Dim CurCell As Object
 
For Each CurCell In Range("A1:A10")
    trouve (CurCell)
Next '#end 1er range A
 
End Sub
 
Sub trouve(ByRef cell As Range)
Dim CurCellListe As Range
 
found = False
For Each CurCellListe In Range("F1:F10")
    If cell.Text = CurCellListe.Text Then
        found = True
    End If
Next '#end 1er range E
 
If found Then
 With cell.Font
        .Name = "Arial"
        .FontStyle = "Gras"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 3
    End With
End If

en colonne F1 à F10, j'ai mis les termes suivants : prod test recuit dev recette spec integration doc 'test unitaire' et 'non regression'

en colonne A1 à A10 les termes sont production test haut-fourneau developpement spec spcécification documentation recette spec doc

Ma macro ne marche pas.

merci

[wilfried_42]

re:

as tu lu la reponse qu je t'ai faite ?

Tu n'as pas besoin de macro pour faire ce que tu cherches. C'est plus lourd et plus long à gerer que les Mfc

Ou bien ... Il y a une raison cachée pour avoir besoin d'une macro

@ te lire

[COCONUT2]

Encore plus simple:

Pourquoi ne pas créer un menu déroulant

quand tu es sur la cellule, Menu/données/validation

selectionne autoriser : liste

Source = plage de cellules qui contiennent les termes autorisés

Comme ca, impossible d'écrire autre chose et plus besoin de rechercher si ce qui es écrit fait partie de la liste

@+