Détecter valeur supérieure à 250 dans un tableur excel en VBA

[Jerome87]

Bonsoir à tous,

Je cherche le moyen de détecter des nombres supérieures à une certaine valeur (ici 250) dans un tableur excel...

Enfet, tout ceci en vba, j'ouvre un fichier, je multiplie toutes les valeurs dans ce fichier par un certain coeff, et l'enregistre.
Mais il ne faut surtout pas que ces valeurs dépasse la valeur 250 !

Débutant en VBA, je ne sais comment rechercher une valeur dans un tableur excel. Mais je suis sûr qu'une âme charitable à un bout de code sur le bout de la langue ?

Merci à vous.

 

[Victor21]

Re : Détecter valeur supérieure à 250 dans un tableur excel en VBA

Bonsoir.

Pour chaque cellule dans la zone à définir,
Si la valeur de la cellule multipliée par le coefficient est inférieure ou égale à 250, alors mutiplier. Sinon ?
Cellule suivante.

 

[Jerome87]

Re : Détecter valeur supérieure à 250 dans un tableur excel en VBA

Merci Victor21 pour la réponse, mais je préfère averti l'utilisateur lambda (via msgbox par exemple) que le traitement n'est pas possible -> demander une autre solution au responsable de service...

Ps : tout le code VBA est fait et fonctionnel pour mon fichier, il ne reste plus que cette "sécurité" à faire...

 

[mapomme]

Re : Détecter valeur supérieure à 250 dans un tableur excel en VBA

Bonsoir botbot160787,

Un essai dans le fichier joint.

Private Sub CommandButton1_Click()
If Application.WorksheetFunction.CountIf(Range("A1").CurrentRegion, ">250") > 0 Then
   MsgBox "Il existe au moins une valeur supérieure à 250"
Else
   MsgBox "Pas de valeur supérieure à 250"
End If
End Sub

 

[Jerome87]

Re : Détecter valeur supérieure à 250 dans un tableur excel en VBA

Parfait c'est exactement ce qu'il me fallait !
Voilà mon fichier terminé

Merci mapomme et bonne soirée.