Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel chiffre superieur a 1

chiffre superieur a 1

3 réponses
Avatar
stef b
Bonjour j ai une feuille nommée"MESURES"

Je voudrais en vba si possible vérifier que au moins une valeur de la
colonne de "H4 à indéfini" est supérieur à 1 sachante qu'il peut y a avoir
aussi de Hx qui contient du texte.

exemple
H4 1.05
H5 --
H6 NX
H7 0.85
|
|
H9544 xx
H9545 0.45

alors la macro me dirai "OUI"


merci d'avance
Signaler un problème avec ce contenu

3 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
Jacky
Bonjour,

alors la macro me dirai "OUI"



Sub jj()
If Application.CountIf(Range("H4:H" & Range("H" & Rows.Count).End(xlUp).Row), ">1") >= 1 Then MsgBox "Oui"
End Sub


--
Salutations
JJ


"stef b" a écrit dans le message de news:
4f3e1af0$0$12490$
Bonjour j ai une feuille nommée"MESURES"

Je voudrais en vba si possible vérifier que au moins une valeur de la colonne de "H4 à indéfini" est
supérieur à 1 sachante qu'il peut y a avoir aussi de Hx qui contient du texte.

exemple
H4 1.05
H5 --
H6 NX
H7 0.85
|
|
H9544 xx
H9545 0.45

alors la macro me dirai "OUI"


merci d'avance

Avatar
Jacky
Au cas ou il peut y avoir une plage "H4:Hn" vide
'------------
Sub jj()
derlg = Range("H" & Rows.Count).End(xlUp).Row
If Application.CountIf(Range("H4:H" & derlg), ">1") >= 1 And derlg > 3 Then MsgBox "Oui"
End Sub
'------------

--
Salutations
JJ


"Jacky" a écrit dans le message de news: jhlb9s$6u5$
Bonjour,

alors la macro me dirai "OUI"



Sub jj()
If Application.CountIf(Range("H4:H" & Range("H" & Rows.Count).End(xlUp).Row), ">1") >= 1 Then MsgBox "Oui"
End Sub


--
Salutations
JJ


"stef b" a écrit dans le message de news:
4f3e1af0$0$12490$
Bonjour j ai une feuille nommée"MESURES"

Je voudrais en vba si possible vérifier que au moins une valeur de la colonne de "H4 à indéfini" est
supérieur à 1 sachante qu'il peut y a avoir aussi de Hx qui contient du texte.

exemple
H4 1.05
H5 --
H6 NX
H7 0.85
|
|
H9544 xx
H9545 0.45

alors la macro me dirai "OUI"


merci d'avance





Avatar
stef b
merci c est genial
bravo

"Jacky" a écrit dans le message de news:
jhlcso$b1c$
Au cas ou il peut y avoir une plage "H4:Hn" vide
'------------
Sub jj()
derlg = Range("H" & Rows.Count).End(xlUp).Row
If Application.CountIf(Range("H4:H" & derlg), ">1") >= 1 And derlg > 3
Then MsgBox "Oui"
End Sub
'------------

--
Salutations
JJ


"Jacky" a écrit dans le message de news:
jhlb9s$6u5$
Bonjour,

alors la macro me dirai "OUI"



Sub jj()
If Application.CountIf(Range("H4:H" & Range("H" &
Rows.Count).End(xlUp).Row), ">1") >= 1 Then MsgBox "Oui"
End Sub


--
Salutations
JJ


"stef b" a écrit dans le message de news:
4f3e1af0$0$12490$
Bonjour j ai une feuille nommée"MESURES"

Je voudrais en vba si possible vérifier que au moins une valeur de la
colonne de "H4 à indéfini" est supérieur à 1 sachante qu'il peut y a
avoir aussi de Hx qui contient du texte.

exemple
H4 1.05
H5 --
H6 NX
H7 0.85
|
|
H9544 xx
H9545 0.45

alors la macro me dirai "OUI"


merci d'avance