VB excel ; message à la saisie (alert)

Question

Bonjour, 

   Je souhaites réaliser un affichage après la saisie d'une valeur dans une cellule (si celle-ci dépasse 150).

J'ai donc :
  - Réalisé un document excel
  - Fais un clic droit sur la fenetre pour visualiser le code
  - Et ecris le code suivant : 

Private Sub Workbook_Open()
    Dim Valeur As Integer
    Valeur = Range("A1").Value
    If Valeur > 150 Then
        MsgBox (" Attention dépassement de valeur ")
    End If
    
End Sub

  - C'est donc censé m'afficher un message d'erreur si la valeur dans la cellule A1 est supérieur à 150.
  - Avec un bouton pas de soucis (clique droit > associer le code), mais à la fin de la saisie en cellule A1 cela ne fonctionne pas.
 
Ma question est donc la suivante : comment afficher un message d'erreur si il y a dépassement de valeur dans un cellule (sans utiliser Données > validation ...)


Merci.

Configuration: Windows XP / Firefox 3.6.13

melanie1324 · Answer

Bonjour,

le code tel que tu l'as écrit se déclenche à l'ouverture du fichier.
Si tu veux que ce soit à chaque changement d'une donnée sur ta feuille.
Dans Macro, vba, tu vas dans ta feuille et tu copie ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Valeur As Integer
Valeur = Range("A1").Value
If Valeur > 150 Then
MsgBox (" Attention dépassement de valeur ")
End If
End Sub

Bidouilleu_R · Answer

il faut placer ce code dans la feuille
Click droit sur l'onglet ..... Visualiser le code



Option Explicit 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
Dim Valeur As Variant 
Valeur = Range("A1") 
If Valeur > 150 Then 
     MsgBox (" Attention dépassement de valeur ") 
End If 

End Sub

Clemzd · Answer

Merci, en fait j'ai finis par trouver tout seul xD.

J'aurais surement d'autres question pour vous ( c'est un planning complet à réaliser pour le projet à réaliser en DUT informatique).

Clemzd · Answer

Autre question, comment faire pour récupérer la valeur d'une variable d'un autre module, je m'expliques :

- J'ai fait un bouton sur ma feuille excel puis clique droit associer du code 
- Le voici : 

Sub SaisirBmensuelle()
    Dim valNbrMax As Integer 'Déclaration d'une variable qui contient la valeur de base mensuelle à ne pas dépasser
    valNbrMax = InputBox("Saisissez le nombre d'heures max ", "Base Mensuelle") 'La valeur est saisir par l'utilisateur au clic du bouton
End Sub

- J'ai toujours mon autre module qui me permet de vérifier que la valeur en A1 ne dépasse pas X et justement ce nombre X doit être la valeur Max saisie à l'issue du clic sur le bouton sur le formulaire.

- Voici le code de l'autre module : 

Sub Verifcellule()
'-----------------------------------------------------------------------------------
'Procédure verifB1 qui vérifie que la valeur dans la cellule B1 est inférieur à 250
'-----------------------------------------------------------------------------------
Dim CelluleB1 As Integer    'On déclare la variable CelluleB1 de type entier

    CelluleB1 = Range("B1").Value   'Cette variable recoit la valeur de la cellule B1
    If CelluleB1 > SaisirBmensuelle.valNbrMax Then  'Si la valeur dans la cellule B1 est supérieur à 250 on fait...
        Select Case MsgBox("Vous dépasser !", vbRetryCancel + vbCritical, "ATTENTION ALERT DANGER") 'un msgbox alert
            Case vbRetry
            'procédure si click sur Réessayer
            Case vbCancel
            'procédure si click sur Annuler
        End Select
    End If

End Sub


- Ma question est donc : comment récupérer la valeur saisie dans le inputbox du module SaisirBmensuelle ?

melanie1324 · Answer

Bonjour,

il y a deux solutions mais je crois que vu comme sont construites tes macros, c'est la 2ème à toi de voir.

- 1ère solution : déclare ta variable comme suit (à écrire avant le premier sub) : public valNbrMax as variant
ta variable est alors définie pour toutes tes macros

-2nde solution : tu mets ta valeur dans une cellule cachée et tu récupères sa valeur.

Zoul67 · Answer

Bonsoir,

Tu peux aussi ne pas utiliser de macro, mais le menu Données > Validation.

++

melanie1324 · Answer

Bonjour,

Il faut l'écrire dns un modle comme suit
public valNbrMax as variant
 'dans tes macros suppriment toute ligne qui sont dim valNbrMax
sub ffgf
ton code

end sub

sub fff
ton code
end sub

Clemzd · Answer

Merci beaucoup pour vos réponses, c'est désormais fonctionnel !

Mais, je rencontre désormais un nouveau problème :

-Ce que je souhaites faire : 
          · créer une liste contenant ADS, MC et SSIAP
          · mettre de la cellule D11 à D16 cette liste

- Ce que j'ai fait : (le code)
    Sub Qualif()
    Dim ListQualif As ComboBox ' La variable ListQualif est une liste
    
    ' Initialisation de la liste
 
    ListQualif.AddItem "ADS"
    ListQualif.AddItem "MC"
    ListQualif.AddItem "SSIAP"
   
    Range("D11:D16") = ListQualif.List ' Les cellules de la colonne D 
    (de la 11 à la  16ème ligne) recoivent la liste.

End Sub

   Sachant que j'appelle cette procédure à l'ouverture


- Le probleme 

   Lorsque je ferme, puis que j'ouvre mon fichier excel, j'obtiens :
   " Erreur d'exécution '91' : variable objet ou variable de bloc With non définie "

Merci de votre aide.

VB excel ; message à la saisie (alert)

8 réponses

Discussions similaires

Newsletters