Bonjour à tous,
Je me retrouve bloqué sur un code VBA qui me semblait facile…
En fait, je travaille actuellement sur un document qui me permet de vérifier avant d’ajouter une ligne si la donnée existe déjà :
Mon problème actuel c’est que la donnée peut être en double si ce n’est pas la même journée.
Lors de l’enregistrement, la date du jour s’ajoutera :
Je souhaite donc que ma recherché vérifie que la donnée n’existe pas et si elle existe qu’elle ne soit pas du jour.
J’ai tenté des « and » (même des « & » ) dans recherche mais rien n’y fait…
Quelqu’un pour me débloquer ?
Merci d’avance,
Excellente journée,
Loic
Je me retrouve bloqué sur un code VBA qui me semblait facile…
En fait, je travaille actuellement sur un document qui me permet de vérifier avant d’ajouter une ligne si la donnée existe déjà :
Code:
Dim Recherche As Range
ref = Sheets("Enregistrement").Range("C9").Value
Set Recherche = Sheets("BDD").Columns("A").Find(ref)
If Not Recherche Is Nothing Then
If MsgBox("Donnée déjà existante. Forcer l'enregistrement ?", vbYesNo, "Demande de confirmation") = vbYes Then
GoTo 1
End If
Else
1
If Range("D19").Value < 5 Then MsgBox "Quantité minimum non atteinte", 1, "Attention": Exit Sub
Mon problème actuel c’est que la donnée peut être en double si ce n’est pas la même journée.
Lors de l’enregistrement, la date du jour s’ajoutera :
Code:
Range("D65536").End(xlUp).Offset(1, 0) = Format(Date, "mm/dd/yyyy")
Je souhaite donc que ma recherché vérifie que la donnée n’existe pas et si elle existe qu’elle ne soit pas du jour.
J’ai tenté des « and » (même des « & » ) dans recherche mais rien n’y fait…
Quelqu’un pour me débloquer ?
Merci d’avance,
Excellente journée,
Loic