Affichage d'une Msgbox sur événementRésolu

Question

Bonsoir &#224; tous,

Je souhaite afficher un message d'alerte apr&#233;s l'entr&#233;e d'une valeur dans une cellule.

Les conditions d'&#233;v&#233;nement sont les suivantes :

Ex : saisie d'une valeur en A8.

Si Cellule active - 8 colonnes > Cellule active - 7 colonnes Et
Cellule active -7 colonnes > Cellule active - 6 colonnes etc.. Alors

Msgbox.

D'avance merci pour vos r&#233;ponses

FMatrix07 · Accepted Answer

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Column >= 7 Then
 Colone = ActiveCell.Column
 Ligne = ActiveCell.Row - 1
 If Cells(Ligne, Colone - 6) < Cells(Ligne, Colone - 5) And _
     Cells(Ligne, Colone - 5) < Cells(Ligne, Colone - 4) And _
      Cells(Ligne, Colone - 4) < Cells(Ligne, Colone - 3) And _
       Cells(Ligne, Colone - 3) < Cells(Ligne, Colone - 2) And _
        Cells(Ligne, Colone - 2) < Cells(Ligne, Colone - 1) And _
         Cells(Ligne, Colone - 1) < Cells(Ligne, Colone) Then
        MsgBox ("bonjour")
       End If
End If
End Sub

Attention il faut que la valeur de la cellule soit valid&#233;e par la touche "Entr&#233;e"
sinon &#231;a ne fonctionne pas

FMatrix07 · Answer

Si tu saisie une valeur en A8
et que tu test la cellule active (donc a8) > - 8 colonnes &#231;a te mets erreur car A8 - 8 colonnes ne donnes pas de resultat

pour faire -8 colonnes il faut au moins etre dans la colonnes 8 voir plus c.a.d F,G,H,.....

a moins que je n'ai pas compris tes conditions
"Si Cellule active - 8 colonnes > Cellule active - 7 colonnes Et Cellule active -7 colonnes > Cellule active - 6 colonnes "
donne plus expliquations ou un exmple plus precis.

BobRouleur · Answer

Tu devrais donner un peu plus d'explication sur ton problème!!!  Si je comprend bien, tu veut exécuter une vérification après l'entrer de donner dans une cellule dans Excel?  Si c'est cela, tu peux toujours te mettre un bouton qui activera une macro qui fera la vérification des tes cellules.  En tout cas si tu as d'autre intérogation ou si tu comprend pas décrit un peu plus ton problème.

A+

jacqtiti · Answer

Bonsoir FMatrix07 et BobRouleur

Ok je vais tacher de m'expliquer,

Si je saisi 8 dans la cellule H1 (en fait cellule active) et que la
cellule H1-6colonnes (en fait B1) est plus petit que la cellule
H1-5colonnes (C1) et que la cellule H1-5colonnes (C1) est plus petit
que la cellule H1-4colonnes (D1) etc.. Alors j'affiche la Msgbox.

Il s'agit de v&#233;rifier si 7 valeurs cons&#233;cutives progressent de fa&#231;on positives ou n&#233;gatives pour d&#233;clencher un avertissement.

Tout cela doit &#234;tre transparent pour la personne qui saisi les donn&#233;es.

Je voudrai faire cela en VBA.

Merci

Affichage d'une Msgbox sur événement

4 réponses

Discussions similaires