Code

Bonjour à tous,

J'aurai aimé rajouté dans mon message d'alerte un N° que j'ai entré dans le msgBox

Rep = MsgBox("Après avoir authentifier le 1er [b]N°qui est[/b] : Voulez-vous confirmer le nouveau chèquier?", vbYesNo + vbCritical + vbDefaultButton2, "le Chèquier ")[color=red][/color]

sachant que c N) est entré lors de la saisie dans le BOX.

Merci de me venir en aide SVP

Noël

Bonjour à tous,

            Rep1 = Application.InputBox("Entrez le 1er N° du nouveau chèquier", , , Type:=1)
            MsgBox "ATTENTION Vous êtes sur le point de créer le nouveau chéquier"

            Rep = MsgBox("Après avoir authentifier le 1er N°. Voulez-vous confirmer le nouveau chèquier?" _
            & Chr(10) & "Le 1er N° est :  " & Rep1, vbYesNo + vbCritical + vbDefaultButton2, "le Chèquier ")
            If Rep <> vbYes Then GoTo FIN

note le & Chr(10), qui signifie un retour à la ligne.

Claude.

Bonjour à tous

Mon cher Claude toujours sur le pied de guerre.

J'ai mis ce bout de code dans l'ordre que tu m'as donné avec un peu de difficulté mais ça marche.

J'aurai voulu ne pas répeter tu crois que que je pourrai déplacer le "& chr'(10)". Je vais essuer

J'ai vu ton fichier sur le BVA je ne comprends pas grand chose mais je l'ai gardé précieusement.

Merci dans le besoin je te rappelerai au secours.

Amicalement

Noël

re,

Sur le fichier VBA

as-tu vu en haut, la barre de menu personnalisée avec la liste déroulante ?

Claude.

Claude,

pour le moment je l'ai que survolé.

J'ai vu aussi les commandes ainsi que la methode de 'FRANCAIS->ANGLAIS et vis versa.

au cas ou tu aurais Skype mon pseudo ; cfn3cfn

sans pour autant courcirciter les fils dans le forum car j'aime bien feuilleter lce forum.

merci

Noëll

Bonjour,

Dans ce code, il faut déclarer les variables comme suit :

Dim rep1 As Integer
Dim rep As String

Je n'ai pas tout le code mais il me semble qu'à la place de

 If Rep <> vbYes Then GoTo FIN

il faudrait mettre -->

If rep <> vbYes Then
End
Else:  'les instructions de ce que tu veux faire
End If

Amicalement

Dan

Salut Dan,

J'ai mis le Goto FIN pour réactiver le : Application.EnableEvents = False

Sub ValidezSaisie()
Dim Rep1 As String
Dim Rep2 As String
Dim Rep As Integer
    Application.EnableEvents = False
       '*********** renouvellement chéquier ********************
    If Range("f31") = 0 Then
        Do
            Rep1 = Application.InputBox("Entrez le 1er N° du nouveau chèquier", , , Type:=1)
            MsgBox "ATTENTION Vous êtes sur le point de créer le nouveau chéquier"

            Rep = MsgBox("Après avoir authentifier le 1er N°. Voulez-vous confirmer le nouveau chèquier?" _
            & Chr(10) & "Le 1er N° est :  " & Rep1, vbYesNo + vbCritical + vbDefaultButton2, "le Chèquier ")
            If Rep <> vbYes Then GoTo FIN

            If Rep1 = False Then GoTo FIN
        Loop While Rep1 = ""
            Range("g30") = Rep1
            Application.ScreenUpdating = False
        Do
            Rep2 = Application.InputBox("Entrez le nombre de chèques du nouveau chèquier", , , Type:=1)
            If Rep2 = False Then GoTo FIN
        Loop While Rep2 = ""
            Range("f31") = Rep2
            Range("i30") = Range("g30") + Range("f31")
            Range("e17") = Rep1
            Range("e18").Activate
            MsgBox ("Vous pouvez complèter le chèque !")
            GoTo FIN
    End If
       '*********** suite saisie ********************
    Application.ScreenUpdating = False
        If Application.WorksheetFunction.CountA(Range("saisie")) < 4 Then  'contrôle les lignes saisies
            MsgBox ("Données incomplètes !")
            GoTo FIN
        End If
            Rep = MsgBox("Confirmez le chèque ?", vbYesNo + vbCritical + vbDefaultButton2, "Emission ")
            If Rep <> vbYes Then GoTo FIN
                Range("e20") = Date
                Range("saisie").Copy
        With Sheets("TABLEAUBQ")
            .Range("b65536").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues, Transpose:=True
        End With
    Application.CutCopyMode = False
        Range("saisie").ClearContents 'efface la saisie
        Range("e17") = Range("TABLEAUBQ!b65536").End(xlUp) + 1 'prochain N°
        Range("f31") = Range("f31") - 1 'compteur
        Range("c17") = "dernier N° " & Range("TABLEAUBQ!b65536").End(xlUp) 'dernier N° dans la base
FIN:
        Range("e18").Activate
       If Range("f31") = 1 Then MsgBox ("ATTENTION : dernière feuille  du chèquier !")
       If Range("f31") = 0 Then Range("e17") = "Validez pour saisir un nouveau chéquier"
    Application.EnableEvents = True
End Sub

C'est une erreur ?

Claude.

Bonjour Dan,

Je sais par rapport à votre discussion de la dernière fois que Claude esr ton élève. Mais il est très fort c'est que tu es un bon Prof..

Mais dite moi que faut-il que je fasse car j'ai modifié entre temps le code à ma manière et cela me donne un résultat satisfaisant.

Amicalement

Noël