Débutant en VBA, aide fonction similaire rechercheV

  • Initiateur de la discussion Initiateur de la discussion olivier147
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

olivier147

XLDnaute Nouveau
Bonjour à tous,

J'essaye tant bien que mal à trouver la solution avec les forums mais je patoge...

Je commence à me mettre gentiement au VBA mais je me perds assez rapidement.

Je voudrais utiliser le VBA pour remplacer la fonction rechercheV

Dans mon cas, je souhaite rechercher la valeur des cellules de la colonne G de ma feuille 1 en les comparant avec les valeurs des cellules de la colonne A de ma feuille 2, cette correspondances me renverrait le résultat de la colonne E de la feuille 2 dans la colonne M de ma feuille 1.

Pas simple à expliquer avec des mots

Grossièrement avec la formule rechercheV ça donnerait ça: =RECHERCHEV(G2;'Feuil2'!A:E;5;FAUX)

Merci d'avance pour votre aide
 
Re : Débutant en VBA, aide fonction similaire rechercheV

Oui effectivement ça fonctionne bien merci, je ne pensais pas qu'il pouvait me retranscrire les formules en VBA.
Pour ce qui est de l'arrêt du calcul lorsqu'il n'y a plus de cellules pleines, je suis preneur si tu as un début de solution 😉
 
Re : Débutant en VBA, aide fonction similaire rechercheV

Le problème par contre c'est qu'il me créé une ligne par calcul, je recherche plutot un code style calcul en boucle jusqu'à une cellule vide....parceque des lignes je peux en avoir des milliers
 
Re : Débutant en VBA, aide fonction similaire rechercheV

Pour ma première ligne de calcul avec l'enregistrement de la macrop j'obtiens ceci :

Range("M2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-6],'Requête Ing'!C[-12]:C[-8],5,FALSE)"
Range("M3").Select

C'est pas mal mais ceci dit des lignes j'en ai des milliers, il va donc me générer ce code pour chacunes des lignes.
 
Re : Débutant en VBA, aide fonction similaire rechercheV

Re,

essaye ceci, attention se base sur la colonne A pour déterminer la dernière ligne, à adapter en modifiant le "1" du "cells"

Code:
Range("M2:M" & Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=VLOOKUP(RC[-6],'Requête Ing'!C[-12]:C[-8],5,FALSE)"
 
Re : Débutant en VBA, aide fonction similaire rechercheV

Re,

pour supprimer les formules et ne garder que les valeurs sur la feuille de calcul :
Code:
With Range("M2:M" & Cells(Rows.Count, 1).End(xlUp).Row)
    .FormulaR1C1 = "=VLOOKUP(RC[-6],'Requête Ing'!C[-12]:C[-8],5,FALSE)"
    .Value = .Value
End With
 
Re : Débutant en VBA, aide fonction similaire rechercheV

Bonjour Pierrot,

Peut être vas tu pouvoir encore m'aider.

Je bloque sur un truc tout bête.

J'ai défini un nom à chacune de mes colonne pour éviter de devoir modifier mon VBA à chaques fois que j'insére une nouvelle colonne.
Par éxemple avec pour sélectionner la cellule "A3", j'écrivais ceci : Range("A3").Select
Maintenant je voudrais lui dire de sélectionner la troisième ligne de ma plage que j'ai nommé "couleur"


Pourrais tu m'aider stp

Merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
144
Réponses
4
Affichages
135
Réponses
5
Affichages
130
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
325
Réponses
72
Affichages
1 K
Réponses
7
Affichages
108
Réponses
2
Affichages
140
Réponses
5
Affichages
173
Réponses
10
Affichages
150
Retour