Discussion :

[aminee1666]

Bonjour,

Je cherche une fonction sous vbs Excel qui me permet de faire un flag sur une liste de chaîne de caractères (liste avec des slash : DIM/donnee1/donnee2/.....)

Ex : Fichier en PJ
Flag DIM sur une cellule choisie si la liste commence par DIM
Flag DIM sur une cellule choisie si la liste commence par donnee1 ou donnee2 et le nom qui suit doit être DIM :
Else flag NOK

DIM/donnee1/donnee2/A -> DIM
donnee1/DIM/AC/AD -> DIM
donnee1/donner2/DIM/AE -> DIM
AC/DIM -> NOK
donnee1/donner2/AB/DIM -> NOK

J’espère que j'était bien explicite, je vous remercie pour vos aide

[mercatog]

Sans vba et avec une simple formule

En C7

Code :

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

=SI(ESTERREUR(TROUVE("DIM/";A7));"NOK";"DIM")

[aminee1666]

Bonjour mercatog,

Je vous remercie pour votre réponse, je veux créer une macro sous vba pour automatiser cette action
Concernant la formule, c'est plus compliqué que un filtre sur "DIM/"
ça ne peut pas marcher pour ces cas :
AA/DIM/BB
donnee1/AA/DIM/donnee2

Le but est de faire un flag sur les cellules qui commencent par DIM ou les cellules qui commencent par donnee1 ou donnee2 et se suivent par DIM (donnee1/donnee2/DIM/.... ou donnee1/DIM/.......donnee2/DIM.....)

[mercatog]

Pourquoi absolument par vba?

Code :

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

=SI(OU(TROUVE("DIM";A7;1)=1;ESTNUM(TROUVE("donnee1/DIM";A7));ESTNUM(TROUVE("donnee2/DIM";A7)));"DIM";"NOK")

En traduisant la démarche par VBA

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
Dim LastLig As Long
 
With Worksheets("Sheet1")
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
    With .Range("B7:B" & LastLig)
        .Formula = "=IF(OR(FIND(""DIM"",A7,1)=1,ISNUMBER(FIND(""donnee1/DIM"",A7)),ISNUMBER(FIND(""donnee2/DIM"",A7))),""DIM"",""NOK"")"
        .Value = .Value
    End With
End With
End Sub