Probleme de modification Formulaire

Bonjour,

je me creuse la tete avec le bouton "modifier" de mon UserForm.

Des lors que je veux modifier une ligne il m'ajoute et ecrase une ligne de mon tableau.

Pouvez vous me venir en aide.

Private Sub CommandButton5_Click() 'Bouton Modifier

Dim no_ligne As Integer

Sheets("Feuil1").Select

no_ligne = ComboBox1.ListIndex + 2

    If ComboBox1.Value = "" Then

        MsgBox ("veuillez remplir le Client")

   End If

  If ComboBox2.Value = "" Then

       MsgBox ("veuillez remplir le repere")

    Else

    Cells(no_ligne, 1) = ComboBox1.Value    'client
    Cells(no_ligne, 2) = ComboBox2.Value    'repere
    Cells(no_ligne, 3) = TextBox1.Value
    Cells(no_ligne, 4) = TextBox2.Value
    Cells(no_ligne, 5) = TextBox3.Value
    Cells(no_ligne, 6) = TextBox4.Value
    Cells(no_ligne, 7) = TextBox5.Value

    MsgBox ("Modification effectuer!!!!")

 End If

Unload UserForm1
UserForm1.Show

End Sub

Bonjour,

Je suppose que votre liste est constituée de toutes les valeurs d'une colonne. Je suppose aussi, enfin j'espère, que cette colonne appartient à un tableau structuré.

En partant de ce principe, pour ajouter une ligne :

no_ligne = ComboBox1.Listcount + 1 'nombre lignes + 1 (pour la nouvelle)

with range("nomdutableau") '<<< ADAPTER AVEC LE VRAI NOM DE VOTRE TABLEAU STRUCTURE
    .cells(no_ligne, 1) = xxx
    'etc
end with

et pour modifier une ligne :

no_ligne = ComboBox1.ListIndex + 1 (index base 0 + 1 pour obtenir index en base 1)

with range("nomdutableau") '<<< IDEM
    .cells(no_ligne, 1) = xxx
    'etc
end with

Cdlt,

Bonjour

Ci joint ma solution

Tu ne peux utiliser me.combobox.listindex pour trouver la ligne car on filtre

J'ai donc utilisé TAG de l'userform pour connaitre la ligne en cours de modif

A+ François

Bonjour Francois,

merci de ta reponse .

Je rencontre bcp d'erreur avec la commande recherche qui ne gere plus les bonnes recherche.

des que je met un nom dans ma combobox1 "Client" il me remplie tout les champs avec le client selectionner.

si je change de repere client rien ne se passe.

Bonjour

Problème corrigé

A+ François

bonsoir Fanfan!!!

Merci bcp pour ta correction.

Tout fonctionne très bien et c'est très rapide dans le rafraichissement.

J'ai juste certain client que ne change pas mème si je modifie la cbx2 pour le repère client mais tu ma grandement aider.

Je t'en suis très reconnaissant.

Merci beaucoup

Johan