Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel If Application.CountA([A3:A10000])...

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

4 réponses
Avatar
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
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jean-Claude
Salut,
Et en insérant worksheetfunction après application ????
Jc
"Alpha" a écrit dans le message de
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




Avatar
Daniel.M
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" wrote in message
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




Avatar
Alpha
Merci Jean-Claude
Alpha

"Jean-Claude" a écrit dans le message de
news:buudbe$suj$
Salut,
Et en insérant worksheetfunction après application ????
Jc
"Alpha" a écrit dans le message de
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








Avatar
Alpha
Parfait, cela fonctionne parfaitement.
Merci beaucoup
Alpha

"Daniel.M" a écrit dans le message de
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" wrote in message
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