RechercheV par macro

Version imprimable

Bonjour, j'ai un problème lorsque j'exécute ma recherche V par macro.

Code:

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
28
29
30
31
32
33
34
35
36
37
38
39
 
 
Sub Macro1()
'
' Macro1 Macro
'
 Dim Ws1, Ws2 As Worksheet
 Dim m, p, t As Integer
 
 Set Ws1 = ThisWorkbook.Worksheets("contrats resp. tarifé")
    Set D = Nothing
        'je recherche la valeur sur la ligne des entêtes
        Set D = Ws1.Rows(1).Find("SIREN_MAITRE_RPR", , xlValues, xlWhole)
        'Je récupère ici dans p le numéro de la colonne si la valeur existe bien
        If Not D Is Nothing Then p = D.Column
        'denomcol = Left$(Cells(1, p).Address(0, 0), (p < 27) + 2)
 
 Set Ws2 = ThisWorkbook.Worksheets("en cours liste complète réseau")
'Nbl compte le nombre de lignes total
        Nbl = Ws2.Range("A1").CurrentRegion.Rows.Count
        Set C = Nothing
       'je recherche la valeur sur la ligne des entêtes
        Set C = Ws2.Rows(1).Find("Siren", , xlValues, xlWhole)
         'Je récupère ici dans p le numéro de la colonne si la valeur existe bien
        t = C.Column
       'j'insère une colonne avant la colonne trouvée
       If Not C Is Nothing Then Ws2.Columns(t).Select
        Selection.EntireColumn.Insert
     'je nomme l'entête de la nouvelle colonne insérée
     Ws2.Cells(1, C.Column - 1).Value = "Recherche_v"
     'j'initialise m qui correspond à la différence entre p et t pour pouvoir faire ma recherche v (m correspond à 17)
 
     m = p - t
     MsgBox m
     Ws2.Cells(2, C.Column - 1).Select
     ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[1],'contrats resp. tarifé'!C[m],1,FALSE)"
     Selection.AutoFill Destination:=Range(Cells(2, t), Cells(Nbl, t))
 
End Sub

je procède de cette manière parce que d'autres colonnes pourraient être ajouter plutard dans le fichier, ainsi utiliser le nom d'une colonne ou un numéro fixe dans ma formule forcerait un jour ou l'autre le résultat. Le problème viendrait peut être du fait que j'utilise "m" dans la formule. Mais que Pourrais je faire d'autre pour obtenir mon résultat ?

Merci d'avance pour vos réponses

27/07/2015, 15h33
vinc_bilb

1 pièce(s) jointe(s)

Bonjour,

Sans répondre totalement je pense à votre question, vous pouvez utiliser le MATCH (Excel anglais) pour trouver la position relative d'une cellule et ainsi, l'utiliser dans un VLOOKUP: ça vous permet par exemple d'utiliser le label de la colonne que vous voulez afficher, sans craindre un changement. Et vous pouvez utiliser les mêmes fonctions en VBA

Pièce jointe 184009
27/07/2015, 16h11
aziz1015

Merci pour votre réponse

J'ai l'impression que vous n'avez pas bien compris mon problème !

Je vois bien la fonction MATCH et je ne vois pas trop comment l'utiliser parce que j'ai besoin du numéro de la colonne qui se trouve dans un autre onglet. Lorsque je fais la rechercheV dans la feuille où je me trouve trouve, je dois donc soustraire les deux numéros de colonne pour être la bonne position. Comprenez-vous ?

Cordialement
27/07/2015, 16h24
vinc_bilb

Je vous ai écrit le formule en dur dans l'exemple

Code:

=VLOOKUP(I29,B29:F35,MATCH(I30, B29:F29,0), FALSE)

Si vous voulez plus d'aide, pourriez-vous fournir un bout d'exemple?

Bonjour, Merci pour votre aide, désolé de ne répondre que maintenant, j'espère que vous serez toujours disponible pour m'aider ! Disons qu'en gros pour résoudre mon problème, j'ai ça :
Code:

1 2 ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[1],'contrats resp. tarifé'!C[17],1,FALSE)" Selection.AutoFill Destination:=Range(Cells(2, t), Cells(Nbl, t))
Alors que j'aimerais avoir un entier qui est recalculé à chaque fois en fonction des positions des colonnes, de manière à ce que la rechercheV soit toujours faite sur la bonne colonne même si les positions des colonnes changes (ps : la feuille où je fais la rechercheV est différente de la feuille où se trouve la plage de données) que dans mon code j'ai appelé m, donc ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 'je prends le numéro de la colonne où se trouve la plage de données dans la feuille Ws1 Set D = Ws1.Rows(1).Find("SIREN_MAITRE_RPR", , xlValues, xlWhole) If Not D Is Nothing Then p = D.Column 'je prends le numéro de la colonne où je fais la rechercheV dans la feuille Ws2 Set C = Ws2.Rows(1).Find("Siren", , xlValues, xlWhole) If Not C Is Nothing Then t = C.Column Selection.EntireColumn.Insert Ws2.Cells(1, t).Value = "Recherche_v" 'je calcule la différence entre les deux colonnes avec m de manière à toujours renvoyer la bonne position de la plage de données. m = p - t Ws2.Cells(2, C.Column - 1).Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[1],'contrats resp. tarifé'!C[m],1,FALSE)" Selection.AutoFill Destination:=Range(Cells(2, t), Cells(Nbl, t))
Le problème est que VBA n'accepte pas cela, je suppose que c'est à cause du m, que dois-je utiliser pour que le "m" fonctionne dans la formule de RechercheV ?

Cordialement

28/07/2015, 09h30
mayekeul
Bonjour,

je n'ai pas tout regardé en détails mais si l'idée est de mettre une variable dans une chaine de caractère, alors il faut proceder comme cela :
Code:

1 2 ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[1],'contrats resp. tarifé'!C[" & m & "],1,FALSE)"
28/07/2015, 09h41
vinc_bilb

Bonjour,

C'est bien l'utilité du Match de vous éviter de calculer votre variable m ..... et d'être tolérant aux changements de l'organisation de vos données
Attention: le VLOOKUP n'accepte plus de d'index de colonnes négatif ou nul, contrairement aux anciennes versions d'Excel
28/07/2015, 09h51
aziz1015
Citation:
Envoyé par mayekeul

Bonjour,

je n'ai pas tout regardé en détails mais si l'idée est de mettre une variable dans une chaine de caractère, alors il faut proceder comme cela :

Code:

1 2 ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[1],'contrats resp. tarifé'!C[" & m & "],1,FALSE)"
Merci pour votre réponse, je ne sais pas pourquoi mais ça non plus ne fonctionne pas pourtant ça devrait bien le faire, j'ai du faire comme ça :
Code:

1 2 ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[1],'contrats resp. tarifé'!C[" & CStr(m) & "],1,FALSE)"
Cordialement

Citation:

Envoyé par vinc_bilb

Bonjour,

C'est bien l'utilité du Match de vous éviter de calculer votre variable m ..... et d'être tolérant aux changements de l'organisation de vos données
Attention: le VLOOKUP n'accepte plus de d'index de colonnes négatif ou nul, contrairement aux anciennes versions d'Excel

Ne comprenant pas vraiment l'utilisation du MATCH, j'ai fait comme ça :
Code:

1 2 3 ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[1],'contrats resp. tarifé'!C[" & CStr(m) & "],1,FALSE)"
Cordialement
28/07/2015, 09h56
mayekeul

Le Match va permettre de trouver une position relative.

https://support.office.com/en-ca/art...9-533f4a37673a