Discussion :

[imo69]

Bonjour,

j'ai une macro qui fonctionne bien mais que sur la 1ere ligne etant donné que ma feuil MAJ peux contenir plusieur ligne ( voir une centaine )
que dois je rajouter pour que ma macro fonctionne jusqu'a la derniere ligne

voici le bouton

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
 
For i = 1 To 300           
 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
 
Next i
End Sub

En gros le principe on recupere une donné dans la feuille MAJ depuis une reference pour la collé dans la feuille Base sur la meme reference

En gros cel me permet de mettre a jour les quantitées sur des produits par rapport a des ventes que j'importe dans MAJ

Comme dit plus haut ma feuille MAJ peux contenir aussi bien 30 lignes aujourd'hui que 120 demain que 56 lundi ...

Cordialement

[curt]

Bonjour imo69,

Pour trouver la dernière ligne :

Code :

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

1
2
Dim DerniereLigne As Long 
DerniereLigne = Range("A" & Rows.Count).End(xlUp).Row

Remplace ensuite 300 par DerniereLigne

Curt

[imo69]

c'est pas trop le 300 qui pose probleme c'est :

Code :

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

1
2
Worksheets("MAJ").Cells(2, 1) Then
 Worksheets("MAJ").Cells(2, 2)

en l'occurance la .cells(2,1) et (2, 2)

si je veux faire 2 ligne dans le Fichier MAJ je doit recopier la formule et mettre .cells(3,1 et 3,2) et ainsi de suite

Je voudrais que la macro s'excute sur toutes les ligne pleines et ne pas ecrire une macro de 200 ligne par exemple

comprenez vous ce que je veux dire ? je m'explique peut etre mal