Microsoft 365 Vérification de données

balardbalard · 27 Septembre 2022

Bonjour,

Je souhaiterai vérifier que differentes données sont bien remplies avec des colonnes fixes mais des lignes qui peuvent varier; si ce n'est pas le cas on va dans la cellule manquante. J'ai commencé un bout de code mais je ne bloque et n'arrive pas à ce que je souhaiterai.

Merci de votre aide

sylvanu · 27 Septembre 2022

Bonjour balardbalard, et bienvenu sur XLD,
En PJ un essai avec :

VB:

Sub Verif()

Dim Derl As Long
Derl = Range("A65500").End(xlUp).Row

For Each cell In Range("A2:A" & Derl)
If Not IsNumeric(cell) Or IsEmpty(cell) Then cell.Select: MsgBox "N'est pas un chiffre, ou vide?", , "": Exit Sub
Next

For Each cell In Range("B2:B" & Derl)
If Not Application.IsText(cell) Or IsEmpty(cell) Then cell.Select: MsgBox "N'est pas du texte, ou vide?", , "": Exit Sub
Next

For Each cell In Range("D2:D" & Derl)
If Not IsDate(cell) Or IsEmpty(cell) Then cell.Select: MsgBox "N'est pas une date, ou vide?", , "": Exit Sub
Next

End Sub

NB:
1- range("Aa" & Derl) Erreur de frappe, devrait être "A"
2- range("A" & Derl) désigne une cellule non une plage ...

sylvanu · 27 Septembre 2022

Bonjour balardbalard, et bienvenu sur XLD,
En PJ un essai avec :

VB:

Sub Verif()

Dim Derl As Long
Derl = Range("A65500").End(xlUp).Row

For Each cell In Range("A2:A" & Derl)
If Not IsNumeric(cell) Or IsEmpty(cell) Then cell.Select: MsgBox "N'est pas un chiffre, ou vide?", , "": Exit Sub
Next

For Each cell In Range("B2:B" & Derl)
If Not Application.IsText(cell) Or IsEmpty(cell) Then cell.Select: MsgBox "N'est pas du texte, ou vide?", , "": Exit Sub
Next

For Each cell In Range("D2:D" & Derl)
If Not IsDate(cell) Or IsEmpty(cell) Then cell.Select: MsgBox "N'est pas une date, ou vide?", , "": Exit Sub
Next

End Sub

NB:
1- range("Aa" & Derl) Erreur de frappe, devrait être "A"
2- range("A" & Derl) désigne une cellule non une plage : Range("A2:A" & Derl) soit égal à Range("A2:A6")
3- with n'est pas utile car la cellule est nommée dan each cell

sousou · 27 Septembre 2022

Bonjour à tous.
Une variante...

sylvanu · 27 Septembre 2022

Re, bonjour Sousou,
Ou encore, avec des MFC, ce qui me semble quand même le plus simple :

VB:

Colonne A :   OU(ESTNUM(A2)=0;A2="")
Colonne B :   OU(ESTNONTEXTE(B2)=0;B2="")
Colonne D :   SI(ESTERREUR(DATEVAL(TEXTE(D2;"jj/mm/aa")));1;0)

L'avantage est que cela se fait en temps réel.

balardbalard · 27 Septembre 2022

Bonjour,

c'est parfait merci pour ton aide

Bonne journée

Microsoft 365 Vérification de données

balardbalard

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

sousou

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

balardbalard

XLDnaute Nouveau

Discussions similaires