vba et recherchev

[Vilain]

Bonjour à tous !

je développe actuellement une macro. Je bute sur un détail. Je souhaite faire une recherchev puis coller en valeur. Ma macro sélectionne une colonne en fonction du mois saisi dans une combobox (de D2 à O2). Mon premier argument se trouve toujours dans la colonne A. J'ai "Derligne = Range("a65536").End(xlUp).Row" pour identifier jusqu'ou tirer ma formule.
Je ne parviens pas à rédiger ma formule.
Y-a-il une âme charitable pour m'aider sur ce problème ? 🙂

Merci d'avance

 

[Vilain]

Re : vba et recherchev

Je joins un exemple. la macro se lance avec le bouton sur le premier onglet.
Le code est dans l'userform.

J'espère que ma demande est assez claire pour être comprise.
Merci d'avance pour votre aide.

 

[Pierrot93]

Re : vba et recherchev

Bonjour,

utilise peut être l'enregistreur de macro.... sinon la méthode "Find" devrait pouvoir t'aider... consulte l'aide vba à ce propos, t'en dira plus...

bonne journée
@+

 

[Vilain]

Re : vba et recherchev

J'ai essayé tout ça. J'ai trouver des exemples sur différents forums, notamment ici : Recherchev sous VBA avec conditions multiples - Divers / Débutants, Visual Basic, VB6, VB.NET, VB 2005, VB, mais je ne parviens pas à l'appliquer à mon fichier.
Je suis encore novice en vba, je pense que c'est ma "rédaction" qui ne convient pas.

Encore merci pour l'aide apportée.

 

[Vilain]

Re : vba et recherchev

Personne pour m'aider sur ce problème ?

 

[Pierrot93]

Re : vba et recherchev

e,

essaye comme ceci :

ActiveCell.FormulaR1C1 = "=VLOOKUP(" & Val & ",'RUBRIQUES PAIE MOIS'!R4C1:R500C7,7,0)"

Non testé...

 

[Vilain]

Re : vba et recherchev

Après quelques heures de galère et d'aide glaner un peu partout sur le net (et en particulier ici), j'ai réussi à obtenir à peu près ce que je veux. Cependant, dans mon fichier d'exemple il n'y a que quelques lignes, dans mon fichier réel il y en a bien plus ce qui fait que la macro est très longue à s'executer.
Est-il possible de faire moins lourd ?

Encore merci pour l'intérêt apporter à mon souci.

 

[Pierrot93]

Re : vba et recherchev

Re,

pas sûr que tu ais vu mon dernier post...

 

[Vilain]

Re : vba et recherchev

oups, désolé, j'ai pas joins mon fichier.
J'ai vu ton post et utilisé ta méthode. Sur mon fichier réel c'est assez long à s'executer.

 

[Pierrot93]

Re : vba et recherchev

Re,

essaye peut être avece ceci :

Application.Calculation = xlCalculationManual
'ton code
Application.Calculation = xlCalculationAutomatic

 

[Vilain]

Re : vba et recherchev

merci beaucoup, ça marche parfaitement bien. Une petite question tout de même, je ne comprend pas le fonctionnement.
En effet, je met 'Application.Calculation = xlCalculationManual' avant ma boucle et 'Application.Calculation = xlCalculationAutomatic' après ma boucle.
Sachant que "normalement" je copie en valeur après avoir fait ma recherchev (et je recommence pour chaque x).
Comment se fait-il que cela marche étant donné que je réactive les calculs après ma boucle ?

 

[Pierrot93]

Re : vba et recherchev

Re,

le calcul est tout de même effectué sur la cellule lorsque tu places la formule... donc tu as ton résultat, mais les autres cellules, elles, ne sont pas recalculées à chaque fois...

 

[Vilain]

Re : vba et recherchev

Parfait, je pense l'adopter pour la plupart de mes macros 🙂