Bonjour, j'ai un debut de macro avec ce code :


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
 
Private Sub CommandButton1_Click()
Dim DerniereLigne As Long
DerniereLigne = Range("A" & Rows.Count).End(xlUp).Row
 
For i = 1 To DerniereLigne           'boucle qui va de 1 à 1
 If Worksheets("Base").Cells(1 + i, 1) = Worksheets("MAJ").Cells(2, 1) Then
    Worksheets("Base").Cells(1 + i, 3) = Worksheets("MAJ").Cells(2, 2)
  End If
  If Worksheets("Base").Cells(1 + i, 1) = Worksheets("MAJ").Cells(3, 1) Then
    Worksheets("Base").Cells(1 + i, 3) = Worksheets("MAJ").Cells(3, 2)
  End If
 If Worksheets("Base").Cells(1 + i, 1) = Worksheets("MAJ").Cells(4, 1) Then
    Worksheets("Base").Cells(1 + i, 3) = Worksheets("MAJ").Cells(4, 2)
  End If
   If Worksheets("Base").Cells(1 + i, 1) = Worksheets("MAJ").Cells(5, 1) Then
    Worksheets("Base").Cells(1 + i, 3) = Worksheets("MAJ").Cells(5, 2)
  End If
   If Worksheets("Base").Cells(1 + i, 1) = Worksheets("MAJ").Cells(6, 1) Then
    Worksheets("Base").Cells(1 + i, 3) = Worksheets("MAJ").Cells(6, 2)
  End If
   If Worksheets("Base").Cells(1 + i, 1) = Worksheets("MAJ").Cells(7, 1) Then
    Worksheets("Base").Cells(1 + i, 3) = Worksheets("MAJ").Cells(7, 2)
  End If
Next i
 
End Sub
En fait je doit reprendre les données de la ligne 2 à 200, là j'ai crée pour les ligne de 2 à 7, je vroudrais savoir si il y avait possibilité de faire directement 2 à 200 sans avoir a faire un copier coller de ma fonction :

If Worksheets("Base").Cells(1 + i, 1) = Worksheets("MAJ").Cells(7, 1) Then
Worksheets("Base").Cells(1 + i, 3) = Worksheets("MAJ").Cells(7, 2)
End If

Merci

jusuq'a 200