Discussion :

[imo69]

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

[nibledispo]

bonjour,

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

Code :

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

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

[imo69]

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 :

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

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

[nibledispo]

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,

[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

[nibledispo]

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,