Discussion :

[bentor22]

Bonjour à tous,

je fais une macro qui comporte un vlookup,

toutefois je mets une condition:

Code :

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

If WorksheetFunction.CountIf(Workbooks(str).Worksheets("Pf").Range("C4:C29701"), .Range("BS3").Offset(i, -69) = "h s") Then

au fait je demande si 69 cellules avant BS3, y a marqué h s alors il me fait mon vlookup.

sauriez vous ou est le probleme ou comment faire pour executer?

En vous remerciant par avance,

[Theze]

Bonsoir,

Une piste :

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
26
27
 
Dim Plage As Range
Dim NB As Long
Dim Mot As String
 
With Workbooks(Str).Worksheets("Pf")
 
    Set Plage = .Range("C4:C29701")
 
    Mot = .Range("B" & i + 3)
 
    'recherche le mot se trouvant dans la cellule en cours (i) de la colonne B
    NB = WorksheetFunction.CountIf(Plage, Mot)
 
    'si il est présent au moins une fois
    If NB <> 0 Then
 
        'ici la fonction VlookUp à la place du message ci-dessous...
        MsgBox "Le mot '" & Mot & "' se trouve " & NB & " fois dans la plage '" & Plage.Address(0, 0) & "' !"
 
    Else
 
        MsgBox "'" & Mot & "' pas trouvé !"
 
    End If
 
End With

Colonne BS (71) - 69 = colonne B, il suffit donc de chercher dans la colonne B directement et comme tu décale de ligne avec i, il suffit de boucler en rajoutant 3 à range("B" & i) donc Range("B" & i + 3)

Hervé.

[bentor22]

Bonjour, merci pour ta reponse,

j'ai essayé avec ta methode (qui est differente de la mienne).
toutefois j ai un probeme avec mon vlookup toujours,
voici ma macro:

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
Dim Plage As Range
Dim NB As Long
Dim mot As String
 
With ThisWorkbook.Worksheets("S i")
 
    Set Plage = .Range("A2:CZ1000")
 
    mot = .Range("B" & i + 3)
    mot = "h s"
    'recherche le mot se trouvant dans la cellule en cours (i) de la colonne B
    NB = WorksheetFunction.CountIf(Plage, mot)
 
    'si il est présent au moins une fois
    If NB <> 0 Then
 
        'ici la fonction VlookUp à la place du message ci-dessous...
        .Range("BS3").Offset(i, 0) = WorksheetFunction.VLookup(.Range("BS3").Offset(i, -69), Workbooks(str).Worksheets("Donnees").Range("A2:P1000"), 16, False)
 
    Else
 'rien
 
    End If
 
End With

au fait pour te resumer je vais chercher mes documents dans le workbook str et je les place dans this workbooks.

j aurai 2 questions si ca ne te derange pas:

-quand faut il que je dise que le mot à chercher dans la cellule BS3 -69 qui est la cellule B que le mot à chercher est "h s" ?

- saurais tu ou est le probleme de mon vlookup.

Merci pour ton aide.

Bien cordialement,

[Theze]

Bonjour,

Désolé pour le retard, je ne suis pas toujours disponible en ce moment.

Dans la fonction VLookup (RECHERCHEV) la recherche doit se faire sur la première colonne de la matrice, est-ce le cas pour toi ? Sinon, il te faut soit organiser les colonnes autrement soit utiliser une autre façon de faire.
Extrait de l'aide :

La valeur à chercher dans la première colonne de la matrice du tableau. valeur_cherchée peut être une valeur ou une référence

Au moins deux colonnes de données. Utilisez une référence à une plage ou un nom de plage. C'est sur les valeurs de la première colonne de table_matrice que porte "valeur_cherchée"

Hervé.