Macro problème d'incrémentation automatique des données
y
Bonjour,
je suis nouveau sur le site, j'ai parcouru le forum mais je n'ai pas trouver la réponse à mon problème
je vous mets en pièces jointes un exemple de 2 bases de données que j'ai
je souhaite faire une macro pour que la première intitulée "aides" viennent incrémenter automatiquement la deuxième intitulée
"ventes" j'ai mis en jaune les données qui m'interressent:
soit pour un même numéro de série du produit , on renseigne toute les aides y faisant référence, si une cellule est rempli, la suivante doit être renseignée...
Merci d'avance pour votre aides
Cordialement
Yohan
Bonsoir,
une proposition avec une macro
Sub test()
Set wsa = Worksheets("aides")
dla = wsa.Range("F" & Rows.Count).End(xlUp).Row
Set wsv = Worksheets("ventes")
dlv = wsv.Range("F" & Rows.Count).End(xlUp).Row
For i = 2 To dla
Set re = wsv.Range("F2:F" & dlv).Find(wsa.Cells(i, "F"), lookat:=xlWhole)
If Not re Is Nothing Then
c = 14
While wsv.Cells(re.Row, c) <> "" And c < 19
c = c + 1
Wend
If wsv.Cells(re.Row, c) = "" Then
wsv.Cells(re.Row, c) = wsa.Cells(i, "J")
Else
MsgBox "plus de place en ligne " & re.Row & " pour y noter une prime"
End If
End If
Next i
Set wsa = Nothing
Set wsv = Nothing
Set re = Nothing
End Sub