Prob boucle for next avec recherche chaine [Résolu]

[papajn]

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 :

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]

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 :

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.

[corona]

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

Code :

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]

Envoyé par corona

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

Code :

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 :

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]

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 :

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]

Essayé aussi cela:

Code :

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]

Papajn,

Remplace

Code :

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

par

Code :

c.Offset(0, 1).Value

c est ici un objet Range.

[papajn]

J'ai trouvé:

Code :

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"

[corona]

Bonsoir,

Envoyé par papajn

J'ai donc écrit:

Code :

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 :

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

[MarcelG]

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...

[corona]

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]

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]

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

Code :

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]

Excellent!!!

Code final:

Code :

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!

[corona]

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

Code :

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

[rvtoulon]

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

[corona]

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).