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
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
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
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" <prodiag157@laposte.net> a écrit dans le message de news:
4f3e1af0$0$12490$ba4acef3@reader.news.orange.fr...
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
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
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
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" <Dupond@marcel.fr> a écrit dans le message de news: jhlb9s$6u5$1@speranza.aioe.org...
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" <prodiag157@laposte.net> a écrit dans le message de news:
4f3e1af0$0$12490$ba4acef3@reader.news.orange.fr...
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
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
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
merci c est genial
bravo
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
jhlcso$b1c$1@speranza.aioe.org...
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" <Dupond@marcel.fr> a écrit dans le message de news:
jhlb9s$6u5$1@speranza.aioe.org...
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" <prodiag157@laposte.net> a écrit dans le message de news:
4f3e1af0$0$12490$ba4acef3@reader.news.orange.fr...
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
"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