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