Discussion :

[sonardej]

Bonsoir

J'aurai une question car n'étant pas très fort en VBA je ne trouve pas de solution à mon problème.
J'ai fait une macro excel permettant de faire mes compte.
Je voudrai rechercher dans la colonne B un mot particulier et écrire dans la colonne C correspondante le mot habillage.
La commande ci dessous fonctionne très bien cependant je voudrai rechercher plusieurs mots différents et affecter en colonne C correspondant le mot habillage, j'ai donc crée n fois la commande ci-dessous avec les mots recherchés.
Mon programme étant trop long je voudrai faire cela en une seule instruction, c'est a dire rechercher plusieurs mots en même temps
Est ce possible? je ne trouve pas la solution merci de votre aide.

Code :

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

1
2
3
For no_ligne = 1 To 10000 
If InStr(1, Range("B" & no_ligne).Value, "Boutique") <> 0 Then Range("C" & no_ligne).Value = "HABILLAGE"
Next no_ligne

[Drouc]

Bonsoir,

La solution que je te propose n'est pas forcément la plus élégante mais elle se veut assez simple. Au lieu de répéter le If ... Then sur plusieurs mots, tu modifies la condition de ton If.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For no_ligne = 1 To 10000 
If InStr(1, Range("B" & no_ligne).Value, "MOT 1") <> 0 Or _
   InStr(1, Range("B" & no_ligne).Value, "MOT 2") <> 0 Or _
   InStr(1, Range("B" & no_ligne).Value, "MOT 3") <> 0 Or _
 
   InStr(1, Range("B" & no_ligne).Value, "MOT N") <> 0 Then
 
   Range("C" & no_ligne).Value = "HABILLAGE"
 
End If
Next no_ligne

J'espère avoir répondu à ta question

[Marc-L]

Bonsoir,

pour alléger voir du côté de l'instruction Select Case …

[sonardej]

Merci pour votre retour.
Je vais essayer cela c'est plus simple que ce que j'avais fait.

Merci beaucoup pour votre aide.

[Philippe Tulliez]

Bonjour,
Une autre solution avec la fonction Split, à condition bien entendu que le mot Habillage soit le mot à renvoyer en colonne C quel que soit le mot trouvé en colonne A

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub t()
 Dim WordSearched() As String
 WordSearched = Split(LCase("Mot1;Mot2;Mot3"), ";") ' Liste des mots à chercher
 For no_Ligne = 2 To 1000
  For w = 0 To UBound(WordSearched) - 1
   If InStr(LCase(Range("A" & no_Ligne).Value), WordSearched(w)) Then
    Range("C" & no_Ligne).Value = "HABILLAGE": Exit For
   End If
  Next w
 Next no_Ligne
End Sub

[sonardej]

MERCI POUR CETTE SOLUTION JE VAIS TESTER