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.

[teddy72000]

bonjour,



oui c'est une recherche dans une feuille.

voir l'image ci-dessous pour voir la feuille excel ou je fais les recherches.

http://www.hostingpics.net/viewer.ph...594Capture.jpg

[Philippe Tulliez]

Bonjour,
Si tu avais expliqué plus tôt comment était organisée ta feuille de données tu aurais eu une réponse plus rapide.
Ce que tu montres là est l'illustration de l'utilisation de la fonction EQUIV ou MATCH pour la version anglaise d'excel et VBA.
On cherche d'abord le n° de colonne où se trouve le code
Avec Excel la formule ci-dessous d'après ton illustration renverra 3 (colonne C)

Code :

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

=EQUIV("Code 2";$A$1:$P$1;0)

En VBA

Code :

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

Colonne = Application.WorksheetFunction.Match("Code " & Elem, rng, 0)

Où Elem est la variable d'une boucle ici Elem vaut par exemple 2, rng est une variable objet représentant la plage $A$1:$P$1 et donc la variable Colonne aura comme valeur 3
Si je me réfère à ton explication

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.

Voici un début de code qui devrait te mettre sur la piste

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub t()
 Dim Elem As Integer, Colonne As Integer, Valeur As Double
 Dim sht As Worksheet, rng As Range
 Set sht = ThisWorkbook.Worksheets("Feuil1")
 Set rng = sht.Range("A1:P1")
 For Elem = 1 To 8 ' (Nombre de code)
  Colonne = Application.WorksheetFunction.Match("Code " & Elem, rng, 0)
  Valeur = sht.Range("A1").Offset(3, Colonne)
 Next
End Sub

[teddy72000]

merci pour ta réponse je vois un peu plus clair.

En faites ce que je voulais c'est rechercher le code 1 et le code 2 pour la ligne 4 et additionner B4+D4 (on recherche le code et on se decale d'une colonne et de 3 lignes pour le premier resultat et de x lignes pour les resultats suivants) et faire de meme pour les lignes suivantes 5 à 10

[Philippe Tulliez]

Bonjour,
Si tu examines le code et que tu fais des tests tu devrais pouvoir t'en sortir.

Code :

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

For Elem = 1 To 8

Boucle de 1 à 8 soit Code 1 à Code 8. donc si tu ne veux que Code 1 et Code 2 tu boucles jusqu'à 2.
Pour additionner les deux, tu utilises une variable intermédiaire par exemple qui retient la valeur de Code 1
Pour le déplacement, c'est Offset

Code :

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

sht.Range("A1").Offset(3, Colonne)

La syntaxe est Offset(ligne, colonne)

[teddy72000]

merci, par contre pour la variable intermediaire je ne sais pas faire peux tu m'aiguiller ?

Par contre si je veux additionner des codes discontinus , exemple : code 1 code 5 code 6 comment l'indiquer pour la macro

Code :

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

 For elem = 1 and 5 to 6

, je sais que ce code ne fonCtionne pas mais c'est pour donner une idée

[Philippe Tulliez]

Bonjour,
Une solution parmi d'autres.
J'ai ajouté une variable nommée Valeur1 qui prend la valeur de la variable nommée Valeur quand la valeur de la variable Elem est impaire et fait la somme si Elem est paire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub t()
 Dim Elem As Integer, Colonne As Integer, Valeur As Double, Valeur1 As Double
 Dim sht As Worksheet, rng As Range
 Set sht = ThisWorkbook.Worksheets("Feuil1")
 Set rng = sht.Range("A1:P1")
 For Elem = 1 To 8 ' (Nombre de code)
  Colonne = Application.WorksheetFunction.Match("Code " & Elem, rng, 0)
  Valeur = sht.Range("A1").Offset(3, Colonne)
  If Elem Mod 2 Then Valeur1 = Valeur Else Valeur1 = Valeur1 + Valeur: MsgBox "La somme est " & Valeur1
 Next
End Sub

[teddy72000]

ok merci pour ton aide !!!!