Prob boucle for next avec recherche chaine

**papajn** · 11/08/2011, 16h57

Problème pour établir une boucle.

J'ai une feuille excel contenant un livre-journal comptable d'une association... j'aimerais que quand il y a le mot "Cotisation" en cellule C# il me renvoie la valeur de la cellule qui se trouve en colonne D (même ligne).
Mais le mot "Cotisation" qui se trouve dans ladite cellule peut être accompagné d'une description genre "Cotisation Untel" (la cellule peut donc comporter plus que ce mot). J'aimerais aussi nommer le nom de la feuille Worksheets(3) qui est "c-c".

Code :

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

1
2
3
4
Dim Cell as Range
For Each Cell In Worksheets(3).Range("C4:C50")
       If Cell.Find("Cotisation") = True Then MsgBox (Cell.Offset(0, 1).Value)
Next Cell

Merci d'avance pour votre aide.

**MarcelG** · 11/08/2011, 17h15

Bonsoir Papajn,

Tout d'abord, bienvenu sur le Forum.

Un conseil. Utilise les balises de code pour citer un développement VBA. L'exposé n'en sera que plus clair.

Pour ton information, la méthode "Find" renvoie un objet Range. Elle ne retourne donc ni False ni True.

Afin de tester la présence d'une chaîne de caractères, tu peux utiliser la propriété "Instr", soit par exemple (code à adapter) :

Code :

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

1
2
3
4
5
6
Public Sub ESSAI()
Dim c As Range
For Each c In Range("A1:A10")
    If InStr(c, "Cotisation") > 0 Then Debug.Print c.Address
Next c
End Sub

Pour ces 2 instructions, tu peux consulter l'aide en ligne d'Excel (F1 sur le mot clé).

Reviens si nécessaire.

**Philippe Tulliez** · 11/08/2011, 17h18

Bonjour,
Soit tu utilises la méthode FIND soit tu utilises la fonction Instr

Code :

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

1
2
3
4
Dim Cell As Range
For Each Cell In Worksheets(2).Range("C4:C24")
If InStr(UCase(Cell), "COTISATION") Then MsgBox (Cell.Offset(0, 1).Value)
Next Cell

Pour la méthode FIND, je n'ai pas le temps de faire un Test, mais ce serait la procédure la plus rapide.

**papajn** · 11/08/2011, 17h49

Envoyé par corona

Bonjour,
Soit tu utilises la méthode FIND soit tu utilises la fonction Instr

Code :

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

1
2
3
4
Dim Cell As Range
For Each Cell In Worksheets(2).Range("C4:C24")
If InStr(UCase(Cell), "COTISATION") Then MsgBox (Cell.Offset(0, 1).Value)
Next Cell

Pour la méthode FIND, je n'ai pas le temps de faire un Test, mais ce serait la procédure la plus rapide.

J'ai donc écrit:

Code :

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

1
2
3
4
Dim Cell As Range
For Each Cell In Worksheets(3).Range("C4:C24")
If InStr(UCase(Cell), "Cotisation") Then MsgBox (Cell.Offset(0, 1).Value)
Next Cell

Les cellules C3 et C4 contiennent le mot "Cotisation".
Par ailleurs comment nommer la feuille par son nom "c-c"?
Ne fonctionne pas... cela bloque sur UCase(Cell)...

**MarcelG** · 11/08/2011, 17h54

Bonsoir Corona,

Soit tu utilises la méthode FIND

Dans ce cas, tu n'es plus dans le contexte VBA mais dans le contexte Excel. Il s'agit donc d'utiliser WorksheetFunction.

Cela me semble plus compliqué alors.
Au demeurant, voici une prposition :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub ESSAI()
 
Dim c As Range, t As Integer
 
On Error Resume Next
 
For Each c In Range("A1:A10")
    t = WorksheetFunction.Find("Cotisation", c.Value, 1)
    If t > 0 Then Debug.Print c.Address
    t = 0
Next c
 
End Sub

**papajn** · 11/08/2011, 17h57

Essayé aussi cela:

Code :

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

1
2
3
4
Dim c As Range
For Each c In Worksheets(3).Range("C4:C50")
    If InStr(c, "Cotisation") > 0 Then MsgBox (c.Adress.Offset(0, 1).Value)
Next c

ne bloque pas, mais ne renvoie rien....

**MarcelG** · 11/08/2011, 18h03

Papajn,

Remplace

Code :

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

c.Adress.Offset(0, 1).Value

par

Code :

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

c.Offset(0, 1).Value

c est ici un objet Range.

**papajn** · 11/08/2011, 18h04

J'ai trouvé:

Code :

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

1
2
3
4
5
6
7
8
9
Dim c As Range, t As Integer
 
On Error Resume Next
 
For Each c In Worksheets(3).Range("C4:C24")
    t = WorksheetFunction.Find("Cotisation", c.Value, 1)
    If t > 0 Then MsgBox (c.Offset(0, 1).Value)
    t = 0
Next c

Comment nommer la feuille par son nom? et peut-on facilement faire cette recherche sur 3 feuilles différentes sans tout réécrire? Je voudrais faire cette recherche sur les feuilles "c-c", "caisse" et "c-e"

**Philippe Tulliez** · 11/08/2011, 18h12

Bonsoir,

Envoyé par papajn

J'ai donc écrit:

Code :

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

1
2
3
4
Dim Cell As Range
For Each Cell In Worksheets(3).Range("C4:C24")
If InStr(UCase(Cell), "Cotisation") Then MsgBox (Cell.Offset(0, 1).Value)
Next Cell

Les cellules C3 et C4 contiennent le mot "Cotisation".
Par ailleurs comment nommer la feuille par son nom "c-c"?
Ne fonctionne pas... cela bloque sur UCase(Cell)...

Le but de placer la fonction UCASE avec Cell, c'est justement de mettre en majuscule le contenu de la cellule et donc il faut comparer avec COTISATION sinon la fonction ne trouvera rien évidemment.
Si tu es absolument certain que tout est écrit correctement, tu peux enlever le UCASE

Code :

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

If InStr(Cell, "Cotisation") Then MsgBox (Cell.Offset(0, 1).Value)

**MarcelG** · 11/08/2011, 18h13

J'ai trouvé:

Merci pour lui! Cette recherche ne t'a pas pris trop de temps, j'espère!

Merci également de m'avoir répondu.

J'arrête ma contribution.

Pas...

**Philippe Tulliez** · 11/08/2011, 18h18

Envoyé par MarcelG

Bonsoir Corona,
Dans ce cas, tu n'es plus dans le contexte VBA mais dans le contexte Excel. Il s'agit donc d'utiliser WorksheetFunction.
Cela me semble plus compliqué alors.

Bonsoir Marcel,
Je ne parlais pas de la fonction Find d'excel mais la méthode FIND de VBA (l'équivalent de la recherche Ctrl+F)

**papajn** · 11/08/2011, 18h22

Merci Corona et MarcelG,

J'ai essayé la méthode avec InStr, en enlevant le Ucase, mais sans succès.

Comment donc faire cette recherche sur plusieurs feuilles et ce en les nommant?

**rvtoulon** · 11/08/2011, 18h24

Bonjour,
Pour faire une recherche sur tes trois feuilles, en complément des codes de corona et de MarceG que je salue:

Code :

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

1
2
3
4
5
6
7
8
9
Dim mesfeuil As Variant
mesfeuil = Array(Sheets("c-c"), Sheets("caisse"), Sheets("c-e"))
For Each sh In mesfeuil
  With sh
    For Each cell In .Range("C4:C24")
    If InStr(UCase(cell), "COTISATION") Then MsgBox (cell.Offset(0, 1).Value)
    Next cell
  End With
Next sh

**papajn** · 11/08/2011, 18h35

Excellent!!!

Code final:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Cell As Range
Dim mesfeuil As Variant
Dim sh As Variant
 
mesfeuil = Array(Sheets("caisse"), Sheets("c-c"), Sheets("c-e"))
For Each sh In mesfeuil
  With sh
    For Each Cell In .Range("C4:C24")
    If InStr(Cell, "Cotisation") Then MsgBox (Cell.Offset(0, 1).Value)
    Next Cell
  End With
Next sh

Grand merci à vous!

**Philippe Tulliez** · 11/08/2011, 18h36

Bonsoir Hervé,
Attention que si on utilise la fonction UCASE, il faut chercher aussi le mot en majuscule.

Code :

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

If InStr(UCase(cell), "COTISATION") Then MsgBox (cell.Offset(0, 1).Value)

**rvtoulon** · 11/08/2011, 18h39

Très juste je l'ai remarqué après, j'ai edité mon post précédent.
Merci pour ta remarque.

**Philippe Tulliez** · 11/08/2011, 18h44

Bonsoir,

Envoyé par papajn

Merci Corona et MarcelG,
J'ai essayé la méthode avec InStr, en enlevant le Ucase, mais sans succès.
Comment donc faire cette recherche sur plusieurs feuilles et ce en les nommant?

Je suis toujours étonné de ces demandes partielles. Dans ton premier message, tu ne fais nulle part allusions à une recherche sur plusieurs feuilles.

Problème pour établir une boucle.
J'ai une feuille excel contenant un livre-journal comptable d'une association... j'aimerais que quand il y a le mot "Cotisation" en cellule C# il me renvoie la valeur de la cellule qui se trouve en colonne D (même ligne).
Mais le mot "Cotisation" qui se trouve dans ladite cellule peut être accompagné d'une description genre "Cotisation Untel" (la cellule peut donc comporter plus que ce mot). J'aimerais aussi nommer le nom de la feuille Worksheets(3) qui est "c-c".
Merci d'avance pour votre aide.

Comment espérer une réponse pertinente dans ces cas là.
Et la raison de l'utilisation de UCASE, c'est que je me suis dit qu'avec plus qu'un mot dans une cellule, il y avait un risque d'avoir par exemple Untel, cotisation ou la cotisation d'untel ou encore et cela arrive cotisation Untel.
On est jamais trop prudent, ce type de problème arrive fréquemment mais bon, si tu sûr de de ce qui est encodé, pas de problème.

description genre "Cotisation Untel" (la cellule peut donc comporter plus que ce mot).

Prob boucle for next avec recherche chaine

Macros et VBA Excel

Discussions similaires

Partager

Partager