Discussion :

[Sil4s]

Bonjour à tous,

je sais que la RechercheV sous VBA est un sujet assez récurrent mais malgré tous les sujets parcourus je n'ai pas réussi à trouver de solution adaptable.

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim DerniereLigne2 As Integer
Dim i As Integer
Dim DerniereLigne As Integer
 
DerniereLigne = Cells(Rows.Count, 7).End(xlUp).Row
DerniereLigne2 = Worksheets("Données").Cells(Rows.Count, 2).End(xlUp).Row
 
  For i = DerniereLigne To 4 Step -1
    Range("C" & i).FormulaLocal = "=RECHERCHEV(B&i ;Données!B2:C193; 2; 0)"
  Next i

Voici ce que j'ai pour le moment mais qui ne marche pas.

Voilà la formule qui marche =RECHERCHEV(Events!B4;Données!$B$2:$C$193;2;0).

La feuille "Events" étant mon activesheet et "Données" ma feuille2

J'aimerai transformer cette formule sous VBA pour mettre la rechercheV sur toutes les cellules utiles de la colonne C (d'où la boucle).
Pour cela je ne sais pas comment faire pour que la valeur_cherchée prenne B puis "i"
Même chose pour la colonne C du table_matrice qui ne devrait pas être C193 mais C puis "DerniereLigne2" puisque la longueur de la liste est sujette à changement.

J'espère que j'ai réussi à me faire comprendre,
si une âme charitable pouvait m'aider à trouver ce qui serait à modifier pour faire une RECHERCHEV avec des variables sous VBA ce serait très gentil

Merci d'avance

[Philippe Tulliez]

Bonjour,
La lecture de ces deux billets t'aidera sans doute à résoudre ton problème

• Comment écrire une formule dans une plage de cellules en VBA ?
• A l’aide de VBA, comment écrire une formule plus complexe dans une cellule ?

[Sil4s]

Bonjour,

Merci pour les liens mais malheureusement, je crois qu'uniquement la partie "Comment rendre dynamique les références à des cellules dans une formule ?" du deuxième liens me serait peut-être utile à la résolution du mon problème mais je ne comprends pas l'utilisation des balises :/

j'aurais besoin d'insérer dans un premier temps

=RECHERCHEV(Events!B4;Données!$B$2:$C$193;2;0) dans la cellule C4
=RECHERCHEV(Events!B5;Données!$B$2:$C$193;2;0) dans la cellule C5
=RECHERCHEV(Events!B6;Données!$B$2:$C$193;2;0) dans la cellule C6

etc etc...

[BENNASR]

bonjour
la demande n'est pas claire au moins pour moi ; peux tu afficher un capture écran des données de départ et ou un exemple pour essayer de t'aider

[BENNASR]

à tester
une réponse selon ma compréhension

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
Sub test()
Dim F1 As Worksheet
Dim F2 As Worksheet
Set F1 = Sheets("Events")
Set F2 = Sheets("Données")
Dim plage As Range
Dim I As Long
Dim L As Integer
Dim X As Range
I = F2.Cells(Rows.Count, 2).End(xlUp).Row
MsgBox I
Set plage = F2.Range("B2:C" & I)
Set X = F1.Range("B4")
F1.Range("C4") = Application.WorksheetFunction.VLookup(X, plage, 2, 0)
Set plage = Nothing: Set X = Nothing
End Sub

[Philippe Tulliez]

Bonjour,

Merci pour les liens mais malheureusement, je crois qu'uniquement la partie "Comment rendre dynamique les références à des cellules dans une formule ?" du deuxième liens me serait peut-être utile à la résolution du mon problème

Le premier lien sert d'introduction au second et la lecture de celui-ci t'aurait déjà fait comprendre qu'il n'y a aucune raison d'utiliser une boucle pour écrire une formule sur plusieurs lignes.

mais je ne comprends pas l'utilisation des balises

La balise sert tout simplement de mot clé pour y insérer ensuite la bonne adresse ou un argument, etc. tout ce qui est variable et c'est la fonction Replace qui permet d'effectuer ce remplacement

Petit exemple : Le remplacement de la balise [TableauClient] par l'adresse où se trouve la plage de cellules de la matrice de recherche

Code :

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

1
2
3
4
Sub t()
  Const Mask As String = "=VLOOKUP(C2,[TableauClient],2,FALSE)"
  MsgBox Replace(Mask, "[TableauClient]", "Client!$A$2:$M$105")
End Sub

Résultat renvoyé : =VLOOKUP(C2,Client!$A$2:$M$105,2,FALSE) ce qui dans excel se transformera par =RECHERCHEV(C2;Client!$A$2:$M$105;2;FAUX)

[Menhir]

Place correctement tes guillemets. La variable ne fait pas elle-même partie de la chaine (prends modèle sur le paramètre du Range, tu comprendras).
Il faut aussi laisser le nom de la feuille source dans la formule.

Code :

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

    Range("C" & i).FormulaLocal = "=RECHERCHEV(Events!B" & i & ";Données!B2:C193; 2; 0)"

Je ne comprends pas non plus le Step -1 dans ton For To.
Ca voudrait dire que DerniereLigne est inférieur à 4 ???

En supposant que c'est une erreur et que DerniereLigne est supérieur à 4, il serait plus simple d'écrire tout ça sans boucle For To (en mettant des $ où il faut) :

Code :

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

    Range("C4:C" & DerniereLigne).FormulaLocal = "=RECHERCHEV(Events!B4 ;Données!B$2:C$193; 2; 0)"