If Application.CountA([A3:A10000])...

Le
Alpha
Bonjour, je désire créer cette condition mais cela ne fonctionne pas ???
Merci
Alpha

If Application.CountA([A3:A10000]) = Application.CountA([B3:B10000]) =
Application.CountA([C3:C10000]) = Application.CountA([D3:D10000]) =
Application.CountA([E3:E10000]) = Application.CountA([F3:F10000]) Then

Call quitter

Else: MsgBox "Il y a une anomalie !" : Exit Sub

  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
Jean-Claude
Le #340418
Salut,
Et en insérant worksheetfunction après application ????
Jc
"Alpha" news:
Bonjour, je désire créer cette condition mais cela ne fonctionne pas ???
Merci
Alpha

If Application.CountA([A3:A10000]) = Application.CountA([B3:B10000]) > Application.CountA([C3:C10000]) = Application.CountA([D3:D10000]) > Application.CountA([E3:E10000]) = Application.CountA([F3:F10000]) Then

Call quitter

Else: MsgBox "Il y a une anomalie !" : Exit Sub




Daniel.M
Le #340390
Allo,

Dim n as Long
n = Application.CountA([A3:A10000])

If Application.CountA([B3:B10000]) = n And _
Application.CountA([C3:C10000]) = n And _
Application.CountA([D3:D10000]) = n And _
Application.CountA([E3:E10000]) = n And _
Application.CountA([F3:F10000]) = n Then

Quitter
...

Salutations,

Daniel M.


"Alpha" news:
Bonjour, je désire créer cette condition mais cela ne fonctionne pas ???
Merci
Alpha

If Application.CountA([A3:A10000]) = Application.CountA([B3:B10000]) > Application.CountA([C3:C10000]) = Application.CountA([D3:D10000]) > Application.CountA([E3:E10000]) = Application.CountA([F3:F10000]) Then

Call quitter

Else: MsgBox "Il y a une anomalie !" : Exit Sub




Alpha
Le #340384
Merci Jean-Claude
Alpha

"Jean-Claude" news:buudbe$suj$
Salut,
Et en insérant worksheetfunction après application ????
Jc
"Alpha" news:
Bonjour, je désire créer cette condition mais cela ne fonctionne pas ???
Merci
Alpha

If Application.CountA([A3:A10000]) = Application.CountA([B3:B10000]) > > Application.CountA([C3:C10000]) = Application.CountA([D3:D10000]) > > Application.CountA([E3:E10000]) = Application.CountA([F3:F10000]) Then

Call quitter

Else: MsgBox "Il y a une anomalie !" : Exit Sub








Alpha
Le #340876
Parfait, cela fonctionne parfaitement.
Merci beaucoup
Alpha

"Daniel.M" news:
Allo,

Dim n as Long
n = Application.CountA([A3:A10000])

If Application.CountA([B3:B10000]) = n And _
Application.CountA([C3:C10000]) = n And _
Application.CountA([D3:D10000]) = n And _
Application.CountA([E3:E10000]) = n And _
Application.CountA([F3:F10000]) = n Then

Quitter
...

Salutations,

Daniel M.


"Alpha" news:
Bonjour, je désire créer cette condition mais cela ne fonctionne pas ???
Merci
Alpha

If Application.CountA([A3:A10000]) = Application.CountA([B3:B10000]) > > Application.CountA([C3:C10000]) = Application.CountA([D3:D10000]) > > Application.CountA([E3:E10000]) = Application.CountA([F3:F10000]) Then

Call quitter

Else: MsgBox "Il y a une anomalie !" : Exit Sub








Poster une réponse
Anonyme