Discussion :

[breizho35]

Bonjour,

Pourriez vous m'aider à faire une macro svp ? Je suis novice et après plusieurs tentatives je ne m'en sort pas.

Mon besoin est de trouver le nombre d’occurrence d'une chaine de caractère précise et en fonction de certain critère.
Je post un fichier exemple en pièce jointe.

J'ai 2 feuilles de calculs: feuil1 et feuil2

Pour chaque ligne de feuil1 (à partir de ligne 3), j'ai besoin de:

- sur feuil1, prendre la valeur de la colonne A (on va l'appeller IPA)
- sur feuil2, rechercher dans la collone C une variable nommé ZONE_XX
- pour chaque variable ZONE_XX trouvée dans feuil2 collone C, rechercher si la valeur IPA est présente dans la chaine de caractère du contenu de la collone E de feuil2(mais attention, cette cellule peut contenir plusieurs lignes avec des retours chariots).
- si IPA est trouvé, alors incrémenter de 1 la valeur de la cellule feuil1 collone B et continuer la recherche jusqu'à la dernière ligne de feuil2. si IPA est de nouveau trouvé, alors incrémenter de 1 la valeur de la cellule feuil1 collone B etc...
- si IPA n'est pas trouvé alors continuer la recherche jusqu'a la dernière ligne de feuil2.

- refaire la même procédure avec la ligne suivante de feuil1

Merci à vous,

Breizho

[patricktoulon]

Bonjour
le sheets en piece jointe n'est absoluement pas representatif de ta question

faire une recherche sur la formule "=CHERCHE("toto",plage de recherche )"

[breizho35]

Bonjour,
j'ai vérifié et je pense que ma pièce jointe est justement représentative de ma question, aurais je mal expliqué mon besoin ?
cdt
breizho

[Marc-L]

Bonjour,

pourquoi un code ?   Déjà via une formule de feuille de calculs …

Sinon pour un code écrire au moins un algorithme qui tienne la route.

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[breizho35]

re,
pourquoi un code ?
>> Je vais devoir complexifier mes mes opérations par la suite, il va me falloir du vba.
>> Etant novice en vba, je cherche à faire qq chose de simple pour commencer, afin de bien comprendre et à l'enrichir progressivement avec des conditions...

[patricktoulon]

oui autant pour moi

une esquisse de code
pas optimisé mais fonctionel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
    Set sh1 = Sheets("Feuil1")
    Set sh2 = Sheets("Feuil2")
    Set rang1 = sh1.Range("A3", sh1.Cells(Rows.Count, 1).End(xlUp))
    rang1.Resize(rang1.Rows.Count, 3).Offset(0, 1).ClearContents
    For Each cel1 In rang1.Cells
        For Each cell In sh2.Range("E1", sh2.Cells(Rows.Count, 5).End(xlUp)).Cells
            If cell.Text Like "*" & Trim(cel1.Text) & "*" And cell.Offset(0, -2).Text = "ZONE_XX" Then cel1.Offset(0, 1).Value = cel1.Offset(0, 1).Value + 1
            If cell.Text Like "*" & Trim(cel1.Text) & "*" And cell.Offset(0, -2).Text = "ZONE_BB" Then cel1.Offset(0, 2).Value = cel1.Offset(0, 2).Value + 1
            If cell.Text Like "*" & Trim(cel1.Text) & "*" And cell.Offset(0, -2).Text = "ZONE_CC" Then cel1.Offset(0, 3).Value = cel1.Offset(0, 3).Value + 1
        Next cell
    Next cel1
End Sub

[Marc-L]

Commencer par une formule de calculs simplifie d'autant le code
car il suffirait de coder à peine cinq lignes sans utiliser de boucle …