Gros Pb Sélection

[Myriam]

Bonjour à tous,

j'ai 1 colonne avec plusieurs lignes .. où sont situés plusieurs noms de pays pour simplifier par exemple' Belgique','France', 'GB','USA 'mais aussi des combinaisons de pays séparés par un / comme 'France/GB' ou encore 'Belgique / France/USA' ..

j'aimerai que ma macro reconnaisse le mot France non seulement quand la cellule contient 'France' mais aussi lorsqu'elle contient d'autres combinaisons 'Belgique/France/USA' ou 'France/USA' ..

j'ai utilisé la fonction :
ActiveCell.Value = ' France'

mais comment lui faire comprendre les autres cas ??


Merci de votre aide ..

 

[Staple1600]

Bonjour


et avec un filtre automatique personnalisée

en choisissant : Contient ... France


ca doit fonctionner non?

 

[Staple1600]

Aprés vérif
oui ca fonctionne

et voici le code associé
(par l'enregistreur de macro)

Selection.AutoFilter Field:=1, Criteria1:='=*France*', Operator:=xlAnd



Pour être plus complet:

Sub Macro2()
Range('A1:A20').Select 'références cellules à adapter
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:='=*France*', Operator:=xlAnd
End Sub

Message édité par: staple1600, à: 24/08/2005 15:18

 

[Myriam]

Merci beaucoup pour ton aide ..

En fait ma macro inclut plusieurs cas selon que ma cellule contient ou non le mot France et en fonction de cela, je lui demande de coloriser la ligne corespondante d'une couleur différente,
j'ai distingué 4 cas : avec France seul / un cas nommé 'Autres' / combinaison incluant le mot france /combinaison l'excluant

La partie le contenat me pose problème .. partie bleue ..

Peux tu jeter un coup d'oeil à ma macro .. :

Je n'arrive pas à le traduire correctement...

If ActiveCell.Value = ' France' 'cas France seul
ActiveCell.Offset(1, 0).Select ' aucune couleur

'sélectionne une catégorie nommée 'autres' c'est pour coloriser les cellules correspondante sur la meme ligne mais sur une autre colonne

ElseIf ActiveCell.Value <> 'Autres' And ActiveCell.Offset(0, 1).Value = 0 Then
ActiveCell.Offset(0, -4).Select
With Selection.Interior
.ColorIndex = 15
End With
ActiveCell.Offset(0, 1).Select
With Selection.Interior
.ColorIndex = 15
End With
ActiveCell.Offset(1, 3).Select

[size=4] ' sélectionne les combinaisons avec la France par exple France/Belgique[/size]

ElseIf Selection.AutoFilter Field:=1, Criteria1:='=*NBP*', Operator:=xlAnd Then
ActiveCell.Offset(0, -4).Select
With Selection.Interior
.ColorIndex = 15
End With

' sélectionne tous les autres cas dont les combinaisons excluant France
Else: ActiveCell.Offset(0, -4).Select
With Selection.Interior
.ColorIndex = 20
End With
ActiveCell.Offset(0, 1).Select
With Selection.Interior
.ColorIndex = 20
End With
ActiveCell.Offset(1, 3).Select

End If

 

[Myriam]

J'ai essayé :
ElseIf ActiveCell.Value Like '*France*' Then
ActiveCell.Offset(0, -4).Select
With Selection.Interior
.ColorIndex = 15
End With


cela ne marche pas non plus ..

Voyez vous le problème ou plutot le remède ??