Richard6263
XLDnaute Nouveau
bonjour à toutes et tous,
je rencontre un petit problème
J'ai créé un modèle de bon de commande .xltm
de même, lorsque j'inscris le numéro de client dans une plage de cellule fusionnée E6:G6 celui-ci se recopie dans la base de donnée dans une colonne nommée client (colonne B)
jusqu'ici tout va bien... Ma macro fonctionne.
Là ou le problème que je rencontre, c'est la copie de doublons, j'aimerai que lorsque un fournisseur a déjà été enregistré dans ma base de données, celui-ci soit ignoré.
j'ai essayé toutes sortes de macros, rien y fait, y aurait-il un autre moyen que passer par une macro ? ou si vous avez la solution en macro je suis preneur ! Car je galère depuis plusieurs semaine ! Lol
Et effacer les doublons de temps en temps ne m'intéresse pas
Merci à toutes celles et ceux qui pourront m'aider
cordialement,
Pour info voici la macro qui me sert à compléter ma base de données :
je rencontre un petit problème
J'ai créé un modèle de bon de commande .xltm
- feuil 1 renommé bon de commande
- Feuil 2 renommé fournisseurs (ma base de données)
de même, lorsque j'inscris le numéro de client dans une plage de cellule fusionnée E6:G6 celui-ci se recopie dans la base de donnée dans une colonne nommée client (colonne B)
jusqu'ici tout va bien... Ma macro fonctionne.
Là ou le problème que je rencontre, c'est la copie de doublons, j'aimerai que lorsque un fournisseur a déjà été enregistré dans ma base de données, celui-ci soit ignoré.
j'ai essayé toutes sortes de macros, rien y fait, y aurait-il un autre moyen que passer par une macro ? ou si vous avez la solution en macro je suis preneur ! Car je galère depuis plusieurs semaine ! Lol
Et effacer les doublons de temps en temps ne m'intéresse pas
Merci à toutes celles et ceux qui pourront m'aider
cordialement,
Pour info voici la macro qui me sert à compléter ma base de données :
Code:
Option Explicit
Sub Tst()
Dim LastRow As Long
Dim WsDepart As Worksheet
Dim WsDestination As Worksheet
Set WsDestination = Sheets("RECHERCHES")
Set WsDepart = Sheets("Menu")
LastRow = WsDestination.Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
WsDepart.Range("A4").Copy
WsDestination.Range("A" & LastRow + 1).PasteSpecial xlPasteValues
WsDepart.Range("E6").Copy
WsDestination.Range("B" & LastRow + 1).PasteSpecial xlPasteValues
Set WsDestination = Nothing
Set WsDepart = Nothing
End Sub
Dernière modification par un modérateur: