Simplification fonction macro

Version imprimable

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

Code:

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

simplification macro

bonjour,

n'est-ce pas tout simplement cela que tu veux faire ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub CommandButton1_Click()
Dim DerniereLigne As Long
DerniereLigne = Range("A" & Rows.Count).End(xlUp).Row
 
For i = 2 To DerniereLigne           'boucle qui va de 1 à 1
 If Worksheets("Base").Cells(i, 1) = Worksheets("MAJ").Cells(i, 1) Then
    Worksheets("Base").Cells(i, 3) = Worksheets("MAJ").Cells(i, 2)
 End If
Next i
 
End Sub

j'ai deja essayé mais cela ne marche pas, meme avec 1 + i

Le bouton de la macro est sur la feuil "Base"
je pense que cela vient de ça

en revanche j'ai fait ceci cela marche

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click()
Dim DerniereLigne As Long
DerniereLigne = Range("A" & Rows.Count).End(xlUp).Row
 
For i = 1 To DerniereLigne
For p = 1 To DerniereLigne
 If Worksheets("Base").Cells(1 + i, 1) = Worksheets("MAJ").Cells(1 + p, 1) Then
    Worksheets("Base").Cells(1 + i, 3) = Worksheets("MAJ").Cells(1 + p, 2)
  End If
 
  Next p
Next i
 
 
End Sub

merci quand meme

08/12/2013, 15h33
nibledispo

simplification macro

Re...,

Je vois mieux ce que tu voulais.

Par contre, je ne vois pas en quoi commencer la boucle à 2 pose problème.

Par ailleurs, si "maj" est limité à 7 lignes, pourquoi utiliser deux fois derniereligne qui si j'ai bien compris, sera 200 ?

Cordialement,
08/12/2013, 18h14
imo69

"Maj" est limité à 200 dans un 1er temps mais risque d'evoluer rapidement en nombre de ligne donc au temps réutilisé dernierligne non ?

Cordialement
08/12/2013, 19h50
nibledispo

simplification macro

Bonsoir,

Ne connaissant pas précisément ton problème, je ne peux que répondre ceci :

Je rechercherais la dernière ligne de "maj" comme tu le fais pour "derniereligne" de "base". Ainsi pas de travail inutile pour VBA et nul besoin de revenir sur le code pour cause de dépassement.

Cordialement,