Discussion :

[teddy72000]

Bonjour,


J'ai fait ce code macro mais j'aimerais le simplifier car c'est la meme opération qui est effectuée

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
NBMAC = Sheets("feuillepara").Range("B2").Value 'recuperer la valeur du nombre de mac
 
On Error Resume Next
 
 
For x = 1 To NBMAC
Err = 0
Cells.Find(What:="Code 1").Select
If Err = 0 Then
Cells.Find(What:="Code 1").Activate
RESULTAT1 = Selection.Offset(x + 2, 1).Value
 
Else
MsgBox "Code 1 manquant dans le fichier importé"
End If
 
Err = 0
Cells.Find(What:="Code 2").Select
If Err = 0 Then
Cells.Find(What:="Code 2").Activate
RESULTAT2 = Selection.Offset(x + 2, 1).Value
 
Else
MsgBox "Code 2 manquant dans le fichier importé"
End If
 
 
Range("H" & 40 + x) = RESULTAT1 + RESULTAT2
Next x

Merci par avance

[NVCfrm]

bonjour,
les fonctions de feuilles de feuille de calcul doivent te simplifier le code je crois.
une ligne avec SumIf ou SumIfs selon tes besoins.

Si ça peut aider:

Code :

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

Range("Resultat") = WorksheetFunction.SumIf(ma_Plage_donnee, mon_critere, ma_Plage_additionnable)

[teddy72000]

je ne pense pas que ce soit une simplification de la macro, y a-t-il d'autres idées ?

[NVCfrm]

Bonsoir,

Désolé, je croyais que tu voulais une indication de simplification.

[Philippe Tulliez]

Bonjour,

je ne pense pas que ce soit une simplification de la macro, y a-t-il d'autres idées ?

En plus d'afficher ton code, il serait intéressant que tu expliques ce que tu souhaites faire.
En ne le faisant pas tu demandes que l'on déchiffre ton code en essayant de deviner où tu veux en venir.
C'est un peu comme si tu demandais à un traducteur de remettre au clair une tentative de traduction sans lui donner le texte d'origine.
Je crois que la piste proposée par NVCfrm est une bonne idée.

[teddy72000]

NBMAC correspont au nombre de ligne dans un fichier importé (exemple : 10)

Je recherche le code 1 dans tous le fichier puis je me decale d'une colonne et descend de trois ligne : je recupere la valeur de la cellule

Je fais cela pour toutes les lignes x to NBMAC

Je recherche le code 2 dans tous le fichier puis je me decale d'une colonne et descend de trois ligne : je recupere la valeur de la cellule

je fais cela pour toutes les lignes x to NBMAC.

EN cellule H40 j'affiche le resultat des valeurs trouvées pour le code 1 et le code 2 pour la premiere ligne et ainsi de suite jusqu'a NBMAC

Je ne sais pas si j'ai été clair

[Philippe Tulliez]

Bonjour,
Tu parles de faire une recherche dans tout le fichier mais je suppose que tu veux dire dans toute la feuille ?
Parce-que un fichier Excel est un classeur et un classeur peut avoir plusieurs feuilles.
A quoi correspond Code 1, d'où vient-il ?
Est-ce une constante ou correspond-il à une référence trouvée à la première ligne ?
Dans cas là où le lis-tu ? ton code ne laisse rien transparaître.