Message d'alerte à l'ouverture du fichier Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
U
U_goffu
Membre habitué
Membre habitué
Messages : 78
Appréciation reçue : 1
Inscrit le : 8 avril 2016
Version d'Excel : 2010/2013

Message par U_goffu » 18 avril 2016, 10:55

Bonjour,

Je voudrais qu'à l'ouverture de mon fichier s'affiche des messages concernant les stocks pour les commandes. J'ai donc écrit un bout de code mais il ne fonctionne pas. Je pense que ce n'est pas grand chose mais je n'arrive pas à trouver :? .

Merci d'avance

Cordialement,

U_goffu

Voici le fichier : http://www.cjoint.com/c/FDsi2E5vtlM
Avatar du membre
galopin01
Passionné d'Excel
Passionné d'Excel
Messages : 6'394
Appréciations reçues : 163
Inscrit le : 18 septembre 2008
Version d'Excel : 2016
Téléchargements : Mes applications

Message par galopin01 » 18 avril 2016, 11:23

bonjour,
Hum... Les déclarations (Dim...) doivent se trouver en premier dans la macro
Modifier les lignes suivantes comme suit :
Private Sub Workbook_Open()
Dim alerte As Range
Dim alertestock As Range
Dim derligne As Long
Dim Ws1 As Worksheet
Dim valeur As String

Application.ScreenUpdating = False

Mon_menu.Show
  
Set Ws1 = Sheets("Stock")
Ws1.Columns("A:S").EntireColumn.AutoFit
derligne = Ws1.Range("A" & Rows.Count).End(xlUp).Row

Set alertestock = Ws1.Range("S2:S" & derligne)
For Each alerte In alertestock
    valeur = Ws1.Cells(alerte.Row, 1) 'La suite sans changement...
A+
Question portant sur VBA : Je ne répond pas si la question ne comporte pas le classeur KIVABIEN avec.
U
U_goffu
Membre habitué
Membre habitué
Messages : 78
Appréciation reçue : 1
Inscrit le : 8 avril 2016
Version d'Excel : 2010/2013

Message par U_goffu » 18 avril 2016, 11:38

Merci beaucoup, sa marche super. J'avais pas pensé que sa pouvait venir de là.

A+
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message