Macro Recherche V pour mise à jour automatique
Résolu
Blandine444
Messages postés
12
Statut
Membre
-
Blandine444 Messages postés 12 Statut Membre -
Blandine444 Messages postés 12 Statut Membre -
Bonjour à tous,
Je reviens vers vous car je cherche une macro incluant une recherche V afin de me permettre de mettre à jour les prix d'une base de données
J'ai trouvé une macro mais quelque chose ne fonctionne pas au niveau de la mise à jour et je n'arrive pas à mettre la main dessus.
Private Sub CommandButton1_Click()
For i = 1 To 20 'boucle qui va de 1 à 20
If Worksheets("Base").Cells(1 + i, 1) <> Worksheets("Mise à jour").Cells(2, 1) Then 'si le cellule de la page "base" Ai = celle de la page... alors
Worksheets("Base").Cells(1 + i, 3) = Worksheets("Mise à jour").Cells(2 + i, 2) ' égalité entre les cellules qui nous interessent
End If ' fin de la boucle si
Next i ' prochain i
End Sub
J'espère que vous pourrez m'aider car moi je suis totalement perdue.
Je voulais insérer mon fichier mais je ne vois pas comment l'insérer..
PS : En sachant qu'à la base ce sera à partir d'un autre fichier que j'effectuerai la mise à jour.
Passez une très bonne journée,
Merci d'avance,
Blandine.
Je reviens vers vous car je cherche une macro incluant une recherche V afin de me permettre de mettre à jour les prix d'une base de données
J'ai trouvé une macro mais quelque chose ne fonctionne pas au niveau de la mise à jour et je n'arrive pas à mettre la main dessus.
Private Sub CommandButton1_Click()
For i = 1 To 20 'boucle qui va de 1 à 20
If Worksheets("Base").Cells(1 + i, 1) <> Worksheets("Mise à jour").Cells(2, 1) Then 'si le cellule de la page "base" Ai = celle de la page... alors
Worksheets("Base").Cells(1 + i, 3) = Worksheets("Mise à jour").Cells(2 + i, 2) ' égalité entre les cellules qui nous interessent
End If ' fin de la boucle si
Next i ' prochain i
End Sub
J'espère que vous pourrez m'aider car moi je suis totalement perdue.
Je voulais insérer mon fichier mais je ne vois pas comment l'insérer..
PS : En sachant qu'à la base ce sera à partir d'un autre fichier que j'effectuerai la mise à jour.
Passez une très bonne journée,
Merci d'avance,
Blandine.
