pompaero
XLDnaute Impliqué
Bonjour le forum,
Ouaaah, bien la nouvelle présentation du site.
Ma demande serait de pouvoir compléter une macro, svp ?
Dans mon classeur onglet "Mvt absorbant" est effectué les mouvements (sortie, entrée) du produit afin de suivre son stock. Je suis arrivé à créer la macros d'enregistrement mais je bloque sur un petit délais.
Ce détail est juste avant l'enregistrement des données vers la BDD avoir une alerte qui annonce si les données existe déjà. J'ai bien commencé à trouver une macros qui est en couleur pour l'exemple,
Ce que je n'arrive pas à faire est quand il s'agit de préciser si c'est une entrée ou une sortie par rapport aux colonnes F ou G.
En simple si on effectue une entrée avec des données déjà existantes alors Msg d'alerte ou idem pour une sortie.
Est-ce possible d'effectuer cela ?
Merci à vous.
Cdlt
pompaero
Ouaaah, bien la nouvelle présentation du site.
Ma demande serait de pouvoir compléter une macro, svp ?
Dans mon classeur onglet "Mvt absorbant" est effectué les mouvements (sortie, entrée) du produit afin de suivre son stock. Je suis arrivé à créer la macros d'enregistrement mais je bloque sur un petit délais.
Ce détail est juste avant l'enregistrement des données vers la BDD avoir une alerte qui annonce si les données existe déjà. J'ai bien commencé à trouver une macros qui est en couleur pour l'exemple,
VB:
With Sheets("Mvt absorbant")
'verification
Ddate = CDate(.Range("C4").Value): Vehicule = .Range("C6").Value
dlt = .Range("B" & Rows.Count).End(xlUp).Row
For i = 12 To dlt
[COLOR=rgb(226, 80, 65)] If .Range("B" & i) = Ddate And .Range("C" & i) = .Range("C5") And .Range("D" & i) = .Range("C7") _
And .Range("E" & i) = Vehicule Then
MsgBox "Ces données existe déjà !!"[/COLOR]
Exit Sub
End If
Next i
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'controle si il y a toutes les informations
En simple si on effectue une entrée avec des données déjà existantes alors Msg d'alerte ou idem pour une sortie.
Est-ce possible d'effectuer cela ?
Merci à vous.
Cdlt
pompaero