XL 2010 Mon code beug - j'suis encore nul LOL

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,

J'arrive pas à coder valablement ma mini macro :
Code:
If Sheets("ClientsCoordonnées").Range("U3").Select > 0 Then
    MsgBox ("Vous n'avez pas fini")
    Dim réponse
    réponse = MsgBox("Allé, on termine ?")
    If réponse <> 7 Then
    End If

Voudriez-vous me donner le coup de pouce ou de main ? :confused:

Avec mes remerciements,
Amicalement,
Lionel,
 

Jacky67

XLDnaute Barbatruc
Bonjour à toutes et à tous,

J'arrive pas à coder valablement ma mini macro :
Code:
If Sheets("ClientsCoordonnées").Range("U3").Select > 0 Then
    MsgBox ("Vous n'avez pas fini")
    Dim réponse
    réponse = MsgBox("Allé, on termine ?")
    If réponse <> 7 Then
    End If

Voudriez-vous me donner le coup de pouce ou de main ? :confused:

Avec mes remerciements,
Amicalement,
Lionel,
Bonjour,
Par exemple
VB:
Sub test()
If Sheets("ClientsCoordonnées").Range("U3") > 0 Then
If MsgBox("Vous n'avez pas fini, on termine ?", 292, "Hé HOOOO") <> 7 Then
MsgBox "ici la macro pour terminer"
End If
End If
End Sub
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour JJ,

Merci de m'avoir répondu si vite et pour le code qui fonctionne.
Voici ce que j'ai fait de votre code :
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call DebloqueFeuilles
    ActiveWindow.DisplayHeadings = True
     With Application
    .MoveAfterReturn = True
    .MoveAfterReturnDirection = xlToRight
    Application.MoveAfterReturnDirection = xlToRight
    End With
 
If Sheets("ClientsCoordonnées").Range("U3") > 0 Then
If MsgBox("VOUS AVEZ DES CONFIRMATIONS A FAIRE ? VOUS LE FAITES MAINTENANT ?", 292, "Hé HOOOO") = 7 Then
Else
Sheets("Confirmations").Select
Exit Sub
End If
End If

    Sheets("A faire").Select
    Application.EnableEvents = False
    ActiveWorkbook.Save
    ActiveWorkbook.RunAutoMacros Which:=xlAutoClose
End Sub

Mon dernier souci est que quand je réponds OUI à la box, il m'envoie sur la feuille "Confirmations" mais il ne sort pas de la macro (exit sub) et ferme le classeur.

Je continue à chercher?
Amicalement,
Lionel,
 
Dernière édition:

Jacky67

XLDnaute Barbatruc
Tester en modifiant cette partie de la macro
VB:
'------------
If Sheets("ClientsCoordonnées").Range("U3") > 0 Then
If MsgBox("VOUS AVEZ DES CONFIRMATIONS A FAIRE ? VOUS LE FAITES MAINTENANT ?", 292, "Hé HOOOO") = 6 Then
Sheets("Confirmations").Select
Exit Sub
End If
End If
'-------------
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonsoir,
je suis un peu tardif dans ma réponse.
J'ai essayé dans 'tous les sens" LOL ... et je n'y arrive pas Grrrrr !!!

j'ai fait le fichier test que je joins.
Encore merci pour votre aide.
Bonne fin de journée,
Amicalement,
Lionel,
 

Pièces jointes

  • testforum1.xlsm
    34.6 KB · Affichages: 36
Dernière édition:

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour JJ,
Bonjour à toutes et à tous,

Un grand merci encore une fois ..... ça fonctionne nickel ;)
Il reste une petite chose qui ne marche pas :
Quand je répond oui, il me sélectionne pas la bonne feuille.
Je pense qu'il ne sort pas de la macro (exit sub).
Fichier joint
Bon WE,
Amicalement,
Lionel,
 

Pièces jointes

  • testforum1.xlsm
    36.3 KB · Affichages: 33

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 851
dernier inscrit
vaiata