[XL-2016] VBA chercher plusieurs fois une valeur

VBA chercher plusieurs fois une valeur

Bonjour à tous,

Etant débutante au VBA, je me permets de vous poser cette question ; certainement simple pour vous, mais je bloque complètement là.

Voici mon problème :

J'ai une première feuille, intitulée REPORT avec comme info codes, tranche et nombre

J'ai une seconde feuille, nommée TOTAL avec presque les mêmes infos : codes, tranches & total

Un code peut avoir plusieurs tranches ; il y a une ligne par code et tranche

Exemple :
Code Tranche Nombre
159 4 0
159 9 0
547 15 0
547 54 0

Ce que j'aimerais : sur la feuille REPORT avoir le chiffre "total" dans la colonne nombre de la feuille TOTAL.

Suivant l'exemple, je recherche le code "159" dans la feuille TOTAL, il me prend la 1ère valeur qu'il trouve, mais si la tranche n'est pas la même alors il ne fait rien (ce qui est bon) mais le code avec la bonne tranche existe quand même dans la feuille TOTAL, donc j'aimerais qu'il la trouve.

Voici la base de macro que j'ai :
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 For i = 2 To nb code = Cells(i, 3) tranche = Cells(i, 6) Set a = Sheets("total").Columns(1).Find(code) If Not a Is Nothing Then tranche2 = Sheets("total").Cells(a.Row, 12) If tranche2 = tranche Then Cells(i, 24) = Sheets("total").Cells(a.Row, 6) End If Else Cells(i, 24) = "" End If Next i
Merci d'avance pour votre aide. :D

Bonjour,

Pourquoi ne pas utiliser une fonction Excel ? avec une concaténation code-tranche une recherchev suffit.
Ce sera plus simple qu'une boucle.

Mais si vraiment tu tiens à boucler, intéresse toi à la méthode findnext https://msdn.microsoft.com/en-us/lib...ffice.11).aspx

Bonjour,

Ce serait certainement plus simple une fonction mais là ce n'est pas une option : j'ai absolument besoin d'avoir la version en macro, je ne peux pas faire autrement

Merci pour le lien :merci:

Citation:

Envoyé par LowlowTyo

Ce serait certainement plus simple une fonction mais là ce n'est pas une option : j'ai absolument besoin d'avoir la version en macro, je ne peux pas faire autrement

Allume l'enregistreur de macro, fait ta fonction, éteints le, un peu de nettoyage et voilà tu as un code prêt à l'emploi.

Citation:

Envoyé par LowlowTyo

Ce que j'aimerais : sur la feuille REPORT avoir le chiffre "total" dans la colonne nombre de la feuille TOTAL.

D'accord avec halaster08 pour conseiller plutôt une fonction Excel, mais je proposerais plutôt la fonction SOMME.SI.ENS() qui semble parfaitement adaptée à ton cas.

Citation:

Ce serait certainement plus simple une fonction mais là ce n'est pas une option: j'ai absolument besoin d'avoir la version en macro, je ne peux pas faire autrement

Peut-on en connaitre la raison ?

Bonjour !

Citation:

Envoyé par LowlowTyo

Ce serait certainement plus simple une fonction mais là ce n'est pas une option :
j'ai absolument besoin d'avoir la version en macro, je ne peux pas faire autrement

Comme une fonction / formule de feuille de calculs d'Excel est utilisable en VBA (j'ai pensé aussi à SOMMEPROD …),
le code s'en trouve souvent simplifié et plus efficace qu'une usine à gaz avec une boucle !
Donc avant de commencer un code, se poser d'abord la question de ce qui peut déjà être réalisé côté Excel.
Bref, Penser Excel Avant VBA !

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …