Discussion :

[LowlowTyo]

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 :

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
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.

[halaster08]

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

[LowlowTyo]

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

[halaster08]

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.

[Marc-L]

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

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, …

[Menhir]

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.

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 ?