Gros Pb Sélection

  • Initiateur de la discussion Myriam
  • Date de début
M

Myriam

Guest
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

XLDnaute Barbatruc
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
 
M

Myriam

Guest
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
 
M

Myriam

Guest
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 ??
 

Discussions similaires

Réponses
3
Affichages
788

Statistiques des forums

Discussions
311 724
Messages
2 081 937
Membres
101 844
dernier inscrit
pktla