Formulaires 1 et 2 se supplantent

Bonjour à tous,

Je me heurte à une erreur quand je sélectionne sur mon formulaire enquête 2 le bouton modifier, ensuite je choisis un nom, Les données qui s'affichent se trouvent sur la feuille Traces et non sur la Feuille Traces2.

Je précise que quand j'ouvre le 1er formulaire et je clique sur modifier en sélectionnant le nom, les données s'affichent sans erreurs. Ce sont bien les données qui figurent sur la feuille Traces.

Merci de bien vouloir jeter un coup d'oeil sur le fichier et de m'aider.

Cordialement

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Bonjour à tous,

Merci GMB, le résultat de l'essai c'est que la commande modifier affiche correctement cette fois les données mais un autre souci survient contrairement au formulaire enquête 1 qui est fonctionnel.

Je m'explique : Quand je modifie les données, elles apparaissent en doublon sur la feuille Traces 2 au lieu de les remplacer. (voir v11)

Merci encore pour le temps pris!

Cordialement

Bonjour

Nouvelle version

Bye !

Merci beaucoup GMB, A première vue, le résultat du test est bon pour moi. Je ferai d'autres tests et je vous tiens au courant.

Merci de me dire ou vous avez fait les modifications.

Bien à vous

Wall

wall a écrit :

Merci de me dire ou vous avez fait les modifications.

J'ai créé une variable ln qui repère le numéro de la ligne où se trouve la valeur du combobox dans la feuille "Traces2" :

Private Sub Enregistrer_Click()
    Dim Message As String, VarReponse As String
    Label1.ForeColor = RGB(0, 0, 0)
    With Sheets("Traces2")
        For ln = 3 To .Range("A" & Rows.Count).End(xlUp).Row
            If .Range("B" & ln) = ComboBox1 Then
                Exit For
            End If
        Next ln
    End With

et, plus loin dans l a même macro, j'ai remplacé la variable lgn par ln dans ce que se rapporte à la feuille "Traces2"

    Case 2    'modifier
        If ComboBox1.ListIndex = -1 Then
            MsgBox "Vous devez choisir un Nom.", 16
            Label1.ForeColor = RGB(255, 0, 0)
            Exit Sub
        End If

        Set Ws = Worksheets("Inscriptions2")
        With Ws
           Lgn = TrouveLigne(ComboBox1)
            .Range("B" & Lgn) = TextBox1 * 1 'moyenne sérieux
            .Range("C" & Lgn) = ComboBox7 * 1 'autre 1
            .Range("D" & Lgn) = TextBox2 * 1 'moyenne autre 2
            .Range("E" & Lgn) = TextBox3 * 1 'moyenne essai
            .Range("F" & Lgn) = TextBox4.Value      'observation
        End With

        With Sheets("Traces2")
            .Range("A" & ln) = Now
            '.Range("B" & Lgn) = ComboBox1
            For I = 2 To 6 'B à G
                .Cells(ln, I + 1) = Val(Controls("ComboBox" & I))
            Next I
            .Range("H" & ln) = TextBox1 * 1 'moyenne sérieux
            .Range("I" & ln) =
           ...

OK ?

Bye !

Bonsoir à tous,

Merci gmb pour cette disponibilité et partage.

Leçon retenue

Cordialement