chiffre superieur a 1

Le
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
Publicité
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #24256171
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" 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
Le #24256221
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"
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" 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
Le #24265291
merci c est genial
bravo

"Jacky" 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" 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" 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









Publicité
Suivre les réponses
Poster une réponse
Anonyme