Discussion :

[choco2x]

Bonjour à toutes et à tous !
Comme ma venue ici le confirme, je n’ai trouvé nulle part la réponse à mes différents problèmes, certainement basics à vos yeux, étant hyper novice et jamais formé en VBA. Si ça se trouve je n’ai juste pas su exploiter la bonne réponse et suis passé à côté, dans ce cas je vous présente mes excuses par avance…
J’ai pour commencer formulé une demande pour qu’à l’ouverture de mon fichier la cellule A1 de la feuille « Synthèse » soit active, histoire que l’utilisateur n’aie pas à y retourner chaque fois en ouverture de fichier, puisque ce qui l’intéresse se trouve dans cette feuille. A tord ou à raison j’ai donc mis dans workbook la commande suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Workbook_Open()
Application.Goto Reference:=Sheets("Synthèse").Range("a1"), scroll:=True
End Sub

Ca fonctionne, mais j’ignore comment lui demander de faire autre chose à la suite sans avoir de message d’erreur diverses (rien après "end sub" ?), car ce que je voudrais c’est que si la plage de cellules « d17 :m27 » de la feuille « Synthèse » est vide ou = à 0 sur cette même feuille (il peut y avoir des nombres, apparus en fonction de la date, car il s’agit d’un récapitulatif d’échéancier), une msgbox s’ouvre automatiquement, et que dans le cas contraire une msgbox avec un message différent s’affiche à l’ouverture.
Mes diverses tentatives ayant abouties à çà pourront peut-être mieux vous éclairer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test()
If IsEmpty(Range("d17:m27")) Then
   MsgBox "Aucun rendez-vous à prévoir !"
Else
   MsgBox "Attention, rendez-vous à programmer !"
End If
End Sub

Et dois-je le mettre dans « worksheet » ou dans la feuille « Synthèse », sachant qu’il y a déjà une commande dans worksheet ?
Ca fait deux jours que je vais de forum en forum, ne connaissant tien à la syntaxe VBA j’ignore si je bute sur un espace, un point, une parenthèse, ou si mon problème est plus profond, et là je sature…
Je me formerai peut-être un de ces jours, mais là je suis dans l'urgence.

Mille mercis à quiconque se donnera la peine d’essayer de m’aider !...
Olivier

[Philippe Tulliez]

Bonjour,
En VBA, il est possible de lire et d'écrire dans une cellule quelconque de n'importe quelle feuille de n'importe quel classeur ouvert sans sélectionner la feuille et la cellule en question.
Cependant s'il s'agit de prévoir qu'un utilisateur doive absolument travailler sur la cellule A1 de la feuille nommée Feuil3 alors voilà les deux lignes à placer dans ta procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Worksheets("Feuil3").Activate
 Range("A1").Select

[choco2x]

Merci pour cet élément de réponse !
Donc si j'ai bien compris, la feuille dans laquelle je doit scruter la plage étant la feuille1 et la plage à observer étant d17:m27, ça donnerait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
Worksheets("Feuil1").Activate
Range("d17:m27").Select
If IsEmpty(Range("d17:m27")) Then
MsgBox "Aucun rendez-vous à prévoir !"
Else
MsgBox "Attention, rendez-vous à programmer !"
End If
End Sub

J'ai essayé, ça ne fonctionne pas, je n'ai pas de box à l'ouverture...

Une erreur dans worksheet ? :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
End Sub
Sub test()
Worksheets("Feuil1").Activate
Range("d17:m27").Select
If IsEmpty(Range("d17:m27")) Then
MsgBox "Aucun rendez-vous à prévoir !"
Else
MsgBox "Attention, rendez-vous à programmer !"
End If
End Sub

[anasecu]

Bonjour,

J'ai essayé, ça ne fonctionne pas, je n'ai pas de box à l'ouverture...

Tu as 2 choses qui ne peuvent pas fonctionner :
- il te faut lancer ton contrôle à l'open
- tu ne peux pas utiliser isempty qui ne fonctionne pas sur une plage

Essayes ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Workbook_Open()
Application.Goto Reference:=Sheets("Synthèse").Range("a1")
    If Application.WorksheetFunction.CountA(Range("D17:M27")) = 0 Then
        MsgBox "Aucun rendez-vous à prévoir !"
    Else
        MsgBox "Attention, rendez-vous à programmer !"
    End If
End Sub

[choco2x]

Super, j'ai une boite qui s'ouvre !!!
Merci beaucoup !

Par contre les cellules concernées affichent "0" quand il n'y a pas de rdv à prévoir, et un chiffre quand il y en a.
Là les cellules sont vides, et la box me dit qu'il y a des rendez-vous à prévoir...
Il y a des formules dans ces cellules, aurait-ce un rapport avec le problème ?

Et accessoirement, si j'arrive à avoir le bon message dans la box, y aurait-il une ligne de commande me permettant d'y afficher le total des chiffres se trouvant dans la plage d17:m27 ? Sinon pas grave, le plus important est fait, si j'arrive à avoir les bonnes alertes ! ;-)

Merci encore, c'est vraiment super !

[anasecu]

Bonjour,

Tu remplaces ainsi ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Workbook_Open()
Application.Goto Reference:=Sheets("Synthèse").Range("a1")
    Dim rdv As Long
    rdv = Application.WorksheetFunction.Sum(Range("D17:M27"))
    If rdv = 0 Then
        MsgBox "Aucun rendez-vous à prévoir !"
    Else
        MsgBox "Attention, " & rdv & " rendez-vous à programmer !"
    End If
End Sub

Il fait la somme des nombres de ta plage et affiche le résultat.

[choco2x]

Ca me semble logique quand je lis, mais ça ne fonctionne pas...
J'ai fait un copier/coller dans workbook, fermé la fenêtre, enregistré le fichier... Et à la réouverture, rien !
Aurais-je oublié quelque chose ?...

[unparia]

Bonjour

Et à la réouverture, rien !

ne veut pas dire grand-chose.
Veux-tu dire qu'aucun message du tout n'est affiché à l'ouverture de ton classeur ?
Si c'est cela, que tu veux dire :
- soit tu n'as pas sauvegardé tes modifications
- soit tu as sauvegardé dans un format qui ignore les macros (quelle est l'extension du classeur ainsi sauvegardé ?)
- soit les paramètres de sécurité de ton classeur ont été définis de sorte à ouvrir sans exécution des macros (et il t'appartient dans ce cas d'agir sur ces paramètres, VBA n'y pouvant bien évidemment rien lui seul)

[anasecu]

Bonjour,

Et à la réouverture, rien !
Aurais-je oublié quelque chose ?...

Tu pourrais au moins vérifier que ton code est dans le classeur quand tu ouvres.
s'il y ai, tu le déroules pas à pas avec F8 en étant dans la procédure et tu nous dis ce qu'il en ai.

[choco2x]

J'avais bien mémorisé, oui, mais toujours est-il que ce matin au travail j'ouvre le fichier et SURPRIIIIISE ! Tout marche nickel !!!
Tout comme je voulais, les mesgboxes s'ouvrent quand il faut et donnent le bon message, en plus en comptant le total d'alertes, c'est ROYAL !
Merci beaucoup à tous, principalement à anasecu pour cette solution apportée sur un plateau !