Boite de dialogue

Le
Bezomi
Bonjour,

je souhaite , qu'avant la fermeture du classeur et si dans la feuille
compte les cases F16 et K16 sont supérieur a 0,
la feuille "Couples" soit affiché et une boite de dialogue ou autre
avec des bouton oui / non, interroge si il a pensé a former les
couples.
Réponse Non, la fermeture annulé et retour sur la feuille "Couples"
Réponse Oui, fermeture du classeur.
J'ai commencé ceci mais ne connais rien en VBA :

' If (Comptes!F16 >= 1) Or (Comptes!K16 >= 1) Then
' Sheets("Couples").Visible = True
' Sheets("Couples").Select
' Range("A2").Select
'
'
'
' End If

Déjà la première ligne proteste, j'ai essayé de placer des . : , ; =
!
( ) et autre

Comment je cible une celleule dans une autre feuille ?
Comment je peux créé une boite de dialogue dans Excel ?

D'avance merci.
Michel
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #19453741
Bonjour,
A coller dans le module ThisWorkbook du classeur

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim bOn
If Range("Comptes!F16") >= 1 Or Range("Comptes!K16") _
>= 1 Then
bOn = MsgBox("Avez vous pensé à former les couples ?" _
, vbYesNo, "M.P.F.E.")
If bOn = vbYes Then
Cancel = False
ThisWorkbook.Saved = True
Else
Cancel = True
Sheets("Comptes").Visible = True
Sheets("Comptes").Activate
Range("A2").Select
End If
End If
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Bezomi" news:
Bonjour,

je souhaite , qu'avant la fermeture du classeur et si dans la feuille
compte les cases F16 et K16 sont supérieur a 0,
la feuille "Couples" soit affiché et une boite de dialogue ou autre
avec des bouton oui / non, interroge si il a pensé a former les
couples.
Réponse Non, la fermeture annulé et retour sur la feuille "Couples"
Réponse Oui, fermeture du classeur.
J'ai commencé ceci mais ne connais rien en VBA :

' If (Comptes!F16 >= 1) Or (Comptes!K16 >= 1) Then
' Sheets("Couples").Visible = True
' Sheets("Couples").Select
' Range("A2").Select
'
'
'
' End If

Déjà la première ligne proteste, j'ai essayé de placer des . : , ; !
( ) et autre

Comment je cible une celleule dans une autre feuille ?
Comment je peux créé une boite de dialogue dans Excel ?

D'avance merci.
Michel
Philippe.R
Le #19453771
Oups !
Remplacer :

Sheets("Comptes").Visible = True
Sheets("Comptes").Activate

par


Sheets("Couples").Visible = True
Sheets("Couples").Activate

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Philippe.R" news:Of%
Bonjour,
A coller dans le module ThisWorkbook du classeur

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim bOn
If Range("Comptes!F16") >= 1 Or Range("Comptes!K16") _
>= 1 Then
bOn = MsgBox("Avez vous pensé à former les couples ?" _
, vbYesNo, "M.P.F.E.")
If bOn = vbYes Then
Cancel = False
ThisWorkbook.Saved = True
Else
Cancel = True
Sheets("Comptes").Visible = True
Sheets("Comptes").Activate
Range("A2").Select
End If
End If
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Bezomi" news:
Bonjour,

je souhaite , qu'avant la fermeture du classeur et si dans la feuille
compte les cases F16 et K16 sont supérieur a 0,
la feuille "Couples" soit affiché et une boite de dialogue ou autre
avec des bouton oui / non, interroge si il a pensé a former les
couples.
Réponse Non, la fermeture annulé et retour sur la feuille "Couples"
Réponse Oui, fermeture du classeur.
J'ai commencé ceci mais ne connais rien en VBA :

' If (Comptes!F16 >= 1) Or (Comptes!K16 >= 1) Then
' Sheets("Couples").Visible = True
' Sheets("Couples").Select
' Range("A2").Select
'
'
'
' End If

Déjà la première ligne proteste, j'ai essayé de placer des . : , ; !
( ) et autre

Comment je cible une celleule dans une autre feuille ?
Comment je peux créé une boite de dialogue dans Excel ?

D'avance merci.
Michel



Bezomi
Le #19457431
Bonsoir Philippe,

et encore merci pour le coup de main, cela fonctionne a 90 %

J'ai essayé d'adapté ton code en :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim bOn
If Range("Comptes!F16") >= 1 Or Range("Comptes!K16") _
>= 1 Then
bOn = MsgBox("Vous avez inscrit des compétiteurs, Avez vous pensé
à former les couples ?" _
, vbYesNo, "M.P.F.E.")
If bOn = vbYes Then
Cancel = False

Sheets("Avertissement").Visible = True
Sheets("Licenciés").Visible = False
Sheets("Comptes").Visible = False
Sheets("Couples").Visible = False
Sheets("Structure").Visible = False
Sheets("Comité_directeur").Visible = False
Sheets("Mairie").Visible = False
Sheets("Courrier").Visible = False
Sheets("DanseDanseDanse").Visible = False
Sheets("Enseignant").Visible = False

ThisWorkbook.Saved = True
Else
Cancel = True
Sheets("Couples").Visible = True
Sheets("Couples").Activate
Range("A2").Select
End If

End If


'Active la possibilité de collage
Application.CutCopyMode = True

End Sub

---------

Cela fonctionne impec hormis que lorsque les cellules F16 et K16 sont
vide je n'arrive pas a mettre :

Sheets("Avertissement").Visible = True
Sheets("Licenciés").Visible = False
Sheets("Comptes").Visible = False
Sheets("Couples").Visible = False
Sheets("Structure").Visible = False
Sheets("Comité_directeur").Visible = False
Sheets("Mairie").Visible = False
Sheets("Courrier").Visible = False
Sheets("DanseDanseDanse").Visible = False
Sheets("Enseignant").Visible = False

Qui doit être lancé a toutes les fermetures du classeur
J'ai essaye de le mettre en fin de code juste avant "End Sub" ainsi
qu'avant le dernier "End If"
mais cela empêche, lors du recours à la boite de dialogue d'activer la
fenêtre "Couples", blocage sur la fenêtre d'avertissement.

Je ne comprend ce qui bloc ?

D'avance merci
Michel
Philippe.R
Le #19457571
Bonsoir,

Et comme ceci ?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'MPFE le 31/05/2009
Dim bOn
If Range("Comptes!F16") >= 1 Or Range("Comptes!K16") _
>= 1 Then
bOn = MsgBox("Vous avez inscrit des compétiteurs," _
& vbNewLine & "Avez vous pensé à former les couples ?" _
, vbYesNo, "M.P.F.E.")
If bOn = vbYes Then
Cancel = False
Sheets("Avertissement").Visible = True
Sheets("Licenciés").Visible = False
Sheets("Comptes").Visible = False
Sheets("Couples").Visible = False
Sheets("Structure").Visible = False
Sheets("Comité_directeur").Visible = False
Sheets("Mairie").Visible = False
Sheets("Courrier").Visible = False
Sheets("DanseDanseDanse").Visible = False
Sheets("Enseignant").Visible = False
ThisWorkbook.Save
ThisWorkbook.Saved = True
Else
Cancel = True
Sheets("Couples").Visible = True
Sheets("Couples").Activate
Range("A2").Select
End If
Else
Sheets("Avertissement").Visible = True
Sheets("Licenciés").Visible = False
Sheets("Comptes").Visible = False
Sheets("Couples").Visible = False
Sheets("Structure").Visible = False
Sheets("Comité_directeur").Visible = False
Sheets("Mairie").Visible = False
Sheets("Courrier").Visible = False
Sheets("DanseDanseDanse").Visible = False
Sheets("Enseignant").Visible = False
ThisWorkbook.Save
ThisWorkbook.Saved = True
End If
'Active la possibilité de collage
Application.CutCopyMode = True
End Sub


--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Bezomi" news:
Bonsoir Philippe,

et encore merci pour le coup de main, cela fonctionne a 90 %

J'ai essayé d'adapté ton code en :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim bOn
If Range("Comptes!F16") >= 1 Or Range("Comptes!K16") _
>= 1 Then
bOn = MsgBox("Vous avez inscrit des compétiteurs, Avez vous pensé
à former les couples ?" _
, vbYesNo, "M.P.F.E.")
If bOn = vbYes Then
Cancel = False

Sheets("Avertissement").Visible = True
Sheets("Licenciés").Visible = False
Sheets("Comptes").Visible = False
Sheets("Couples").Visible = False
Sheets("Structure").Visible = False
Sheets("Comité_directeur").Visible = False
Sheets("Mairie").Visible = False
Sheets("Courrier").Visible = False
Sheets("DanseDanseDanse").Visible = False
Sheets("Enseignant").Visible = False

ThisWorkbook.Saved = True
Else
Cancel = True
Sheets("Couples").Visible = True
Sheets("Couples").Activate
Range("A2").Select
End If

End If


'Active la possibilité de collage
Application.CutCopyMode = True

End Sub

---------

Cela fonctionne impec hormis que lorsque les cellules F16 et K16 sont
vide je n'arrive pas a mettre :

Sheets("Avertissement").Visible = True
Sheets("Licenciés").Visible = False
Sheets("Comptes").Visible = False
Sheets("Couples").Visible = False
Sheets("Structure").Visible = False
Sheets("Comité_directeur").Visible = False
Sheets("Mairie").Visible = False
Sheets("Courrier").Visible = False
Sheets("DanseDanseDanse").Visible = False
Sheets("Enseignant").Visible = False

Qui doit être lancé a toutes les fermetures du classeur
J'ai essaye de le mettre en fin de code juste avant "End Sub" ainsi
qu'avant le dernier "End If"
mais cela empêche, lors du recours à la boite de dialogue d'activer la
fenêtre "Couples", blocage sur la fenêtre d'avertissement.

Je ne comprend ce qui bloc ?

D'avance merci
Michel
Bezomi
Le #19457821
Génial,

c'est super tous fonctionne nickel, c'est exactement ce que je
souhaité,
je n'avais pas osé mettre un second "Else"

Encore
merci et toute ma gratitude
Michel


On 31 mai, 18:50, "Philippe.R"
Bonsoir,

Et comme ceci ?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'MPFE le 31/05/2009
Dim bOn
If Range("Comptes!F16") >= 1 Or Range("Comptes!K16") _
    >= 1 Then
    bOn = MsgBox("Vous avez inscrit des compétiteurs," _
    & vbNewLine & "Avez vous pensé à former les couples ?" _
        , vbYesNo, "M.P.F.E.")
    If bOn = vbYes Then
        Cancel = False
        Sheets("Avertissement").Visible = True
        Sheets("Licenciés").Visible = False
        Sheets("Comptes").Visible = False
        Sheets("Couples").Visible = False
        Sheets("Structure").Visible = False
        Sheets("Comité_directeur").Visible = False
        Sheets("Mairie").Visible = False
        Sheets("Courrier").Visible = False
        Sheets("DanseDanseDanse").Visible = False
        Sheets("Enseignant").Visible = False
        ThisWorkbook.Save
        ThisWorkbook.Saved = True
    Else
        Cancel = True
        Sheets("Couples").Visible = True
        Sheets("Couples").Activate
        Range("A2").Select
    End If
Else
    Sheets("Avertissement").Visible = True
    Sheets("Licenciés").Visible = False
    Sheets("Comptes").Visible = False
    Sheets("Couples").Visible = False
    Sheets("Structure").Visible = False
    Sheets("Comité_directeur").Visible = False
    Sheets("Mairie").Visible = False
    Sheets("Courrier").Visible = False
    Sheets("DanseDanseDanse").Visible = False
    Sheets("Enseignant").Visible = False
    ThisWorkbook.Save
    ThisWorkbook.Saved = True
End If
'Active la possibilité de collage
    Application.CutCopyMode = True
End Sub

--
Avec plaisirhttp://dj.joss.free.fr/trombine.htmhttp://jacxl.free.fr/mpfe/ trombino.html
Philippe.R
Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Bezomi" Bonsoir Philippe,

et encore merci pour le coup de main, cela fonctionne a 90 %

J'ai essayé d'adapté ton code en :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Dim bOn
If Range("Comptes!F16") >= 1 Or Range("Comptes!K16") _
    >= 1 Then
    bOn = MsgBox("Vous avez inscrit des compétiteurs, Avez vous p ensé
à former les couples ?" _
        , vbYesNo, "M.P.F.E.")
    If bOn = vbYes Then
        Cancel = False

    Sheets("Avertissement").Visible = True
    Sheets("Licenciés").Visible = False
    Sheets("Comptes").Visible = False
    Sheets("Couples").Visible = False
    Sheets("Structure").Visible = False
    Sheets("Comité_directeur").Visible = False
    Sheets("Mairie").Visible = False
    Sheets("Courrier").Visible = False
    Sheets("DanseDanseDanse").Visible = False
    Sheets("Enseignant").Visible = False

        ThisWorkbook.Saved = True
    Else
        Cancel = True
        Sheets("Couples").Visible = True
        Sheets("Couples").Activate
        Range("A2").Select
    End If

End If

'Active la possibilité de collage
    Application.CutCopyMode = True

End Sub

---------

Cela fonctionne impec hormis que lorsque les cellules F16 et K16 sont
vide je n'arrive pas a mettre :

    Sheets("Avertissement").Visible = True
    Sheets("Licenciés").Visible = False
    Sheets("Comptes").Visible = False
    Sheets("Couples").Visible = False
    Sheets("Structure").Visible = False
    Sheets("Comité_directeur").Visible = False
    Sheets("Mairie").Visible = False
    Sheets("Courrier").Visible = False
    Sheets("DanseDanseDanse").Visible = False
    Sheets("Enseignant").Visible = False

Qui doit être lancé a toutes les fermetures du classeur
J'ai essaye de le mettre en fin de code juste avant "End Sub" ainsi
qu'avant le dernier "End If"
mais cela empêche, lors du recours à la boite de dialogue d'activer l a
fenêtre "Couples", blocage sur la fenêtre d'avertissement.

Je ne comprend ce qui bloc ?

D'avance merci
Michel


Publicité
Poster une réponse
Anonyme