Discussion :

[bentor22]

Bonjour a tous,

j'ai fait la macro suivante:

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
'Open the directory "S:" to be able to find the correct report
With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = "S:"
    .Show
    'and select the report on which you click
    If .SelectedItems.Count > 0 Then Workbooks.Open (.SelectedItems(1))
End With
 
str = ActiveWorkbook.Name
 
 
With ThisWorkbook.Worksheets("S i")
    For i = 0 To .Columns(.Range("BR3").Column).Find("*", , , , xlByColumns, xlPrevious).Row - 1
        If WorksheetFunction.CountIf(Workbooks(str).Worksheets("Donnees").Range("C1:C100"), (.Range("BS3").Offset(i, -69) = "h s")) Then
            .Range("BS3").Offset(i, 0) = WorksheetFunction.VLookup(.Range("BS3").Offset(i, -70), Workbooks(str).Worksheets("Donnees").Range("C15:C16"), 2, False) / 1000000
        Else
            'rien
        End If
    Next i
End With

en gros, je me positionne en BS3 et je dis à ma macro la condition suivante:
si en cellule BS3 - 69 il y a marqué h s
alors vlookup de la cellule BS3 -70, ... , ..., false

le code semble s executer correctement mais il n y a pas de reponse, sauriez vous ou est le souci?

merci pour votre aide,

Bien cordialement

[keygen08]

Bonjour

J'aurais ecrit la ligne 12 comme ceci

Code :

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

With ThisWorkbook.sheets("S" &  i)

[gFZT82]

Bonjour,

Je suis surpris par ta plage de recherche qui se limite à C15:C16.
Si la valeur de la cellule en colonne A est égale à celle de C15, on affecte la valeur de C16 /1000000 à la cellule correspondante en colonne BS, c’est bien çà ?

Cordialement.

[bentor22]

oui exactement,

mais je fais un vlookup pke y a d autre données qui sont présent dans l autre fichier et je ne veux pas qu il les copie.

[bentor22]

Bonjour Keygen08,

le probleme n est pas la, tout marche c'est uniquement le vlookup qui marche pas! c bizarre!!!

[gFZT82]

Ce que je veux te dire, c’est qu’il n’y a pas besoin de faire un VLookup pour cette opération.
Il suffit de faire

Code :

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

1
2
If .Range("BS3").Offset(i, -70)= Workbooks(str).Worksheets("Donnees").Range("C15") then _
.Range("BS3").Offset(i, 0) = Workbooks(str).Worksheets("Donnees").Range("C16")/ 1000000

Je comprendrais si la recherche s’effectuait sur une plage incluant plusieurs cellules, mais s’il n’y a qu’une cellule (C15), je ne vois pas l’intérêt d’un VLookup.

Cordialement.