Mise à jour d’une ligne à partir userform

[lanoe]

Bonjour,

Après avoir « bricoler » à partir de plusieurs codes du forum, j’arrive à réaliser ce que je veux sauf pour une commande sur le CommandButton1. Je désirs que le bouton réalise la mise à jour de la ligne sélectionné.

merci d'avance
Lanoé

 

[jp14]

Re : Mise à jour d’une ligne à partir userform

Bonsoir

Pour lire les données tu utilise le code suivant

If cbx1.ListIndex = -1 Then Exit Sub
nom = cbx1.Value
ligne2 = cbx1.List(cbx1.ListIndex, 2)

With Me
    For i = 1 To 122
           .Controls("t" & i) = Sheets("Clients").Cells(ligne2, i)
    Next i
    
End With

Il suffit d'écrire pour la mise à jour.
Pour une création il suffit de changer la valeur de ligne2

if action = "maj" then
If cbx1.ListIndex = -1 Then Exit Sub
nom = cbx1.Value
ligne2 = cbx1.List(cbx1.ListIndex, 2)
end if

if action = "crea" then 
ligne2  = Sheets("Clients").Range("a65536").End(xlUp).Row +1
end if

With Me
    For i = 1 To 122
            Sheets("Clients").Cells(ligne2, i) = .Controls("t" & i)
    Next i
    
End With

 

[lanoe]

Re : Mise à jour d’une ligne à partir userform

Re-,

Je ne parviens pas à remettre ton code dans mon fichier, je dois louper quelques choses. Peux-tu le mettre dans le fichier en piece jointe de mon premier message?

Merci d'avance
lanoe

 

[lanoe]

Re : Mise à jour d’une ligne à partir userform

Bonjour,

malgré pas mal de recherche durant la matinée je ne parviens pas à coller le code de jp14 dans mon fichier si une bonne volonté peut m'aider...
merci à vous.
Lanoe

 

[jp14]

Re : Mise à jour d’une ligne à partir userform

Bonjour

Ci joint le fichier avec les procédures modifiées.

Un sous programme pour mettre à jour ou modifier les données.

A tester

JP

 

[lanoe]

Re : Mise à jour d’une ligne à partir userform

Re,

Il me reste à comprendre, cela fonctionne parfaitement. Merci.

lanoe