Discussion :

[assiec]

Bonjour,

Je cherche un peu d'aide afin de réaliser une macro VBA faisant la fonction suivante (Cf Xls joint):

Feuille "Relevéx"

La zone de recherche se situe dans la colonne B. Ce sont des phases contenant des races de chiens, chats ou chevaux.

Feuille "Cat":

Recensse les catégories d'animaux.

Feuille bilan:

C'est le résultat final: Effectue la somme des colonnes C et D de la feuille "Relevé1" ET "Relevé2" et ceci par catégorie trouvé lors de la recherche.

Note: si un mot clé n'a pas été trouvé dans les catégories, la ligne passe en rouge gras

[Duddy]

Bonsoir le forum,


Juste en lisant le post:

Pourquoi du code VBA alors que la fonction RECHERCHEV peut t'aider.

Tu as le droit à 7 conditions dans une formule, et tu peux répéter par le nombre de recherche (colonne ) que tu auras besoin. 7 dans une colonne, 7 dans une autre etc.

Cela peut être une approche.

Ensuite, tu mets une mise en forme conditionnelle pour afficher les couleurs en fonction des résultats.

[assiec]

Bonjour,

Je le veux en VBA car c'est pour compléter un autre module en place et faire d'autre analyses derriere qui tournent déja.

Voici ce que j'ai en ma possession:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Cherche()
Dim FL1 As Worksheet
Dim FL2 As Worksheet
Dim c As Range, Donnee As String
Dim NoLigneTrouvée As Integer
 
 
    Set FL1 = Worksheets("Nov") 'Le fichier où tu colles
    Set FL2 = Worksheets("Dec") 'Le fichier où tu cherches
 
     For NoLig = 2 To FL2.Range("D65535").End(xlUp).Row 'commence à la ligne 7 de la feuille
        Donnee = FL2.Cells(NoLig, 4)                    'Place dans donnée la lettre trouvée
        With FL1.Range("d2:d" & FL1.Range("D65535").End(xlUp).Row) 'Plage de recherche dans la feuille 1
            Set c = .Find(Donnee, LookIn:=xlValues)
           If Not c Is Nothing Then
                FL2.Cells(NoLig, 1) = "Ok"   'Toujours Ok si lettre trouvée sur feuille 1
 
              Else
                FL2.Cells(NoLig, 1) = "Pas OK"       'Nouveau si lettre pas trouvée sur feuille 1
            End If
            Set c = Nothing
        End With
    Next
 
End Sub

Mais cette recherche ne marche pas avec des phrases.

Merci