Aide modif code supression ligne

Bonjour a tous

On m’avais aider a faire ce bout de code hors je voudrait faire le contraire en faite je voudrai que les deux textbox soit respecter et non pas le choix entre l'un ou l'autre.

Merci de votre aide

 If TextBox1 = "" Then
        If TextBox2 = "" Then
            MsgBox "Vous devez saisir une valeur dans AISM ou dans EMAT8.", 16
            Exit Sub
        Else
            tb = TextBox2
            col = 1
        End If
    Else
        If TextBox2 = "" Then
            tb = TextBox1
            col = 4
        Else
            MsgBox "Vous ne pouvez pas rechercher à la fois une valeur de AISM et une autre de EMAT8.", 16
            Exit Sub
        End If
    End If

Bonjour,

à tester pas certain !

 If TextBox2 = "" Then
            MsgBox "Vous devez saisir une valeur dans AISM ou dans EMAT8.", 16
            Exit Sub
        Else
            tb = TextBox2
            col = 1
 End If

 If TextBox2 = "" Then
            MsgBox "Vous ne pouvez pas rechercher à la fois une valeur de AISM et une autre de EMAT8.", 16
            Exit Sub
        Else
            tb = TextBox1
            col = 4
 End If

crdlt,

André

Bonjour,

A tester si ça convient :

If TextBox1.Text = "" Or TextBox2.Text = "" Then
    MsgBox "Vous devez saisir une valeur dans AISM ou dans EMAT8.", 16
End If

Bonjour

non cela ne fonctionne pas

la fonction est sur le bouton archiver

Re,

Oups, je n'avais pas percuté que c'est ou l'un ou l'autre donc, comme ceci :

If TextBox1.Text = "" And TextBox2.Text = "" Then
    MsgBox "Vous devez saisir une valeur dans AISM ou dans EMAT8.", 16
    Exit Sub
End If

oui mais malheureusement sa fait beugé mon code suivant maintenant

Re,

Et il plante sur quoi ?

Re,

je pense que cela doit être à cause des exit sub qui sortent de la procédure

 If TextBox2 = "" Then
            MsgBox "Vous devez saisir une valeur dans AISM ou dans EMAT8.", 16
        Else
            tb = TextBox2
            col = 1
         Exit Sub
 End If

 If TextBox2 = "" Then
            MsgBox "Vous ne pouvez pas rechercher à la fois une valeur de AISM et une autre de EMAT8.", 16

        Else
            tb = TextBox1
            col = 4
        Exit Sub
 End If

La je suis perdu ce morceau de code me fait perdre les cheveux

Re,

je pense que cela doit être à cause des exit sub qui sortent de la procédure

si la partie contrôle est mise en début de procédure, il ne peut pas y avoir de plantage.

Dans la proc "Archiver_Click()", le code plante car il manque le Next de la boucle For Each Ctl...

J'en peut plus de ce fichier il vas me faire devenir chèvre

Bonjour,

Je comprend que ton fichier te rende chèvre mais ce n'est pas ça qui va nous aider à t'aider

Bonjour

Tout d’abord merci de votre aide

Une fois fonctionnel je devrais adapter ce formulaire en créent deux autres formulaires ( CCT PARC GLOBAL et EMDIV1 PARC GLOBAL )

J'aimerais avoir une fonction recherche fonctionnel (avec bouton suivant précédent pour le cas de recherche multiple) et quand je clic sur archiver la ligne soit crée sur l’onglet archiver puis supprimer de 19 RG PARC GLOBAL.

Ce sont les deux seul fonction sur lequel je bloque car tout le reste fonctionne et je pourrai adapter sur mes deux autres formulaire, j'ai déjà ma fonction Ventiler qui fonctionne sur mes trois parc.

Bonne réception.

Cordialement.