Validation de donnees VBA

[sharkantipav]

Bonjour,
J'ai une feuille excel qui me permet de mettre a jour une base de donnees ACCESS>
J'ai deja ecrit une macro qui export les donnees Excel sous Access>
Cependant avant d'exporter, j'aimerai valider les donnees de ma feuille Excel

Par exemple, je parcours ligne par ligne
Pour chaque ligne il faut que les colonnes 2, 5, 6, 8, 10 soit non vide (2, 5, 10 Nombres, 6,8 String)
que la colonne 4 est une valeur comprise entre Y/N

Si c'est bon j'ecris OK en fin de ligne...

Je ne sais pas trop par ou prendre la bete pour faire ca>
Si qqun a un morceau de code que je pourrais adpater, ce serais tres appreciable
Merci bcp

 

[Gen Rose]

Re : Validation de donnees VBA

Bonjour sharkantipav,
Le Forum 😱

À défaut d'avoir la bête pour se pratiquer, un essai en p.j. avec SI ET OU.
À adapter.

Cdt,

 

[sharkantipav]

Re : Validation de donnees VBA

Bonjour merci de la reponse,

Ce n'est pas exactement ce que je recherche.
En gros une macro qui parcours le tableau ligne par ligne.
En ligne 1 verifie que les valeurs des Colonnes, B, D, G, J sont non vides
verifie que la valeur colonne C est Y ou N
Si c'est bon la macro ecrit OK en colonne AA
Si non la macro ecrit en AA : Error B ou G ... dependant de la colonne ou ya un erreur..
Je sais que c;est un code un peu specifique.... Si qqun a un morceau de code qui fait ca je l'adapteria
Merci

 

[sharkantipav]

Re : Validation de donnees VBA

J'ai ecris un code mais j'ai encore des petits soucis.... Voila le code

Sub Validation_Trades()

Dim varTxt As String
Dim errTxt As String
Dim WS As Worksheet
Dim c As Long

Set WS = Worksheets("Trades")
c = 2

Do

varTxt = WS.Range("A" & CStr(c)).Value
errTxt = WS.Range("AP" & CStr(c)).Value

If varTxt = "" Then Exit Do

If Cells(c, 3) = "" Then errTxt = "Missing Ticket Number"
If Cells(c, 4) = "" Then errTxt = "Missing BRKR1"
If Cells(c, 5) = "" Then errTxt = "Missing BRKR2"
If Cells(c, 6) = "" Then errTxt = "Missing Trade Date"
If Cells(c, 7) = "" Then errTxt = "Missing Rec Time"
If Cells(c, 8).Value < Cells(c, 7).Value Then errTxt = "Wrong Sent Time"
If Cells(c, 9) = "" Then errTxt = "Missing Exec Time"
If Cells(c, 10) = "" Then errTxt = "Missing Cust Short Code"
If Cells(c, 12) = "" Then errTxt = "Missing Trader Initial"


c = c + 1

Loop

End Sub

Mes questions sont les suivantes

1. A la fin de chaque IF, Si c'est vrai, j'aimerai sortir de la macro, un truc du genre

   If Cells(c, 3) = "" Then errTxt = "Missing Ticket Number" Then Exit Do

   mais 2 fois de suite Then ne marche pas

• A la fin si il n'ya aucune erreur, j'aimerai avoir errTxt="OK"

• j'aimerai faire un test de ce type

  If Cells(c, 13) <> Or("Y","N","") Then errTxt = "Wrong OATS"

  mais le OR semble ne pas etre bien ecrit

Merci bcp