Erreur code userform

bonjour le forum

voila mon petit soucis dans mon userform quand j'ajoute ou modifie ma base client il

me modifier ma civilités colonne A il me bien les renseignementS mais cela change ma colonne A

pouvez vous me dire ou est l'erreur svp

AVEC TOUT MA GRATITUDE

Bonjour,

Si j'ai bien compris le souci ...

Ce bloc semble le fautif ... à mettre en commentaire pour tester ...

''    n = 2
''    With Feuil8
''        For i = 2 To 12
''            If IsNumeric(Controls("T" & i)) Then
''                .Cells(n, 1) = CDbl(Controls("T" & i))
''            Else
''                .Cells(n, 1) = Controls("T" & i)
''            End If
''            n = n + 2
''        Next i
''    End With

ric

Merci infiniment j ai oublié comment mettre en commentaire avec '

merci RIC trouvé rien ne change inscrit toujours pareil

enfin je continue de chercher

Bonjour,

Si je comprends bien ton souci ...

- si tu ajoutes des données dans les textbox et que tu cliques sur Ajouter >> ça fonctionne bien ...

- c'est quand tu utilises la listbox >> chaque fois que tu cliques sur une ligne > il y a immédiatement écriture des données > et ces écritures ne se font pas dans les bonnes colonnes ...

Je regarde cela ....

ric

Bonjour,

Je n'ai modifié que ces deux macros ... le reste semble en ordre ...

Private Sub Bt1_Click()
Dim n&

    With Feuil8
        If L1.ListIndex = -1 Then
            fin = .Range("A" & Rows.Count).End(xlUp).Row + 1
            For i = 2 To 12
                If IsNumeric(Controls("T" & i)) Then .Cells(fin, i - 1) = CDbl(Controls("T" & i)) Else .Cells(fin, i - 1) = Controls("T" & i)
            Next i
        Else
            For i = 2 To 12
                If IsNumeric(Controls("T" & i)) Then .Cells(lig, i - 1) = CDbl(Controls("T" & i)) Else .Cells(lig, i - 1) = Controls("T" & i)
            Next i
        End If
    End With

    Unload Me
End Sub

Private Sub L1_Click()
Dim n&

    If L1.ListIndex = -1 Then Bt1.Caption = "Ajouter": Exit Sub
    n = 2
    With Feuil8
        lig = L1.List(L1.ListIndex, 11)
        For i = 1 To 11
            Controls("T" & i + 1) = .Cells(lig, i)
        Next i
    End With

    Bt1.Caption = "Modifier"
End Sub

ric

merci beaucoup ric cela fonctionne affaire résolus

merci infiniment

ric