modif bout de code pour suppression dans un userform

[devilmort]

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

 

[herve62]

Si tu veux que tes 2 box soient complétées tu mets ce code dans ton bouton qui valide tes saisies:

Dim ctl As Control
    For Each ctl In Me.Controls
        If TypeOf ctl Is MSForms.TextBox Then
            If ctl.Text = "" Then
                MsgBox "Champ (s) manquant"
                Cancel = True
                Exit Sub
            End If
        End If
    Next

que ce soit de 1 ou X box , ce code est valable

 

[devilmort]

J'ai fait le test avec ton code cela ne fonctionne pas sur le bouton archiver
Voici mon fichier joint avec ce problème de suppression
j'ai également un souci de recherche suivant précédent que je n'arrive pas a faire

 

[herve62]

Chaque chose en son temps
tu as oublié le NEXT Ctl à la fin du for each après les end If ( j'ai testé c'est ok)
ensuite explique ce que tu saisis car déjà tes combo sont vides ??

 

[devilmort]

en faite il faut que j'adapte mon code

je voudrait faire une recherche avec textbox1 (je bloque encore sur les bouton suivant et précédent pour le cas d'une recherche multiple)

cette recherche remplie mes combo et j'aimerai que le code vérifie "EMAT8" et "AISM" ( que ces deux textbox soit respecter ) et lorsque je clique sur archiver cette ligne soit copier dans l'onglet archive (cette ligne de code fonctionne) puis supprimer de ma base de données "19 RG PARC GLOBAL"

Bonne réception.

 

[herve62]

Donc j'essaie de suivre mais je découvre !!
je clique sur Menu
puis sur 19 RG , si jusque là ça va , liste tes saisies et ou tu cliques pour ton résultat
Après cela ira mieux pour te suivre

 

[devilmort]

Effectivement

Clique sur menu -> 19°RG -> Saisir un n° dans AISM (exemple 0200) -> Clique sur Recherche
Cela rempli mes textbox de gauche (cela me trouve la première ligne j'aimerai utiliser les bouton suivant précèdent pour trouver la ligne sur lequel je doit travailler)

Ensuite deux choix:
- soit je fait une modif puis je clique sur modifier (jusqu'ici tout va bien)
- soit je fait une modif sur observation puis je clique sur Archiver ( cela copie la ligne dans mon onglet archive puis supprime la ligne dans l'onglet 19 RG PARC GLOBAL

Je devrait par la suite adapter ce code sur deux autres formulaires ( les bouton CCT et EMDIV1 présent sur mon menu)

Bonne réception et merci de ton aide.

 

[herve62]

Bonsoir
Je n'ai pas laissé tombé , mais absent depuis le 28 octobre
Je reprends donc ton affaire , c'est déjà mieux avec tes explications mais avançons pas à pas
après validation
J'ai ajouté tes boutons Precedent / Suivant > si IMMAT = textbox cela affiche sinon rien
Teste et dit si c'est OK pour toi , on passera à l'étape suivante