Ajout ou modification ligne

[gildas lechat]

Bonjour le forum,

Vous trouverez ci joint une macro simplifiée permertant de saisir des données sur un tabeau en passant par un user form.
Ma question est la suivante:
Lors de la validation de l'userform (Bouton Modif/valid), si le N° ligne existe déjas, comment modifier la ligne en question sans ajouter une ligne supplémentaire dans le tableau?

Dans le meme temps, avoir un contrôle du type " ligne déjas existante. Voulez vous valider les modification?"

Merci de vos réponses
Gildas

 

[Odesta]

Re : Ajout ou modification ligne

Bonjour

Le code à remplacer pour réaliser la demande :

Sheets("feuil1").Select

'Selection de la premiere ligne vide
i = 3
    While Not Sheets("feuil1").Range("b" & i & "").Value = ""
        i = i + 1
    Wend

ligne = 3
    While Not Sheets("feuil1").Range("b" & ligne & "").Value = ""
        If Sheets("feuil1").Range("b" & ligne & "").Value = TextBox1.Text Then
            reponse = MsgBox("ligne existante, voulez vous valider les modifications ?", vbYesNo)
            If reponse <> 6 Then End
            i = ligne
        End If
        ligne = ligne + 1
    Wend
    
    
    
With ActiveSheet
    .Cells(i, 2) = TextBox1.Text
    .Cells(i, 3) = TextBox2.Text
    .Cells(i, 4) = TextBox3.Text
End With

Cordialement
Olivier