XL 2010 enregistrer modification salarié

DL_13

XLDnaute Occasionnel

• 28 Novembre 2016

• #2

Bonjour,

Dans le

VB:

Private Sub CmdEnr_Click()

Remplacer ta proc par celle ci

VB:

Set C = Sheets("Registre").Columns("A").Find(What:=UserForm4.ComboBox1)
    With C
        For I = 1 To 4
            .Offset(, I) = Controls("TextBox" & I)
        Next I
    End With

J'ai fait pour les 4 premier textboxes Date d'entrée et de sortie et Nom et prénoms) fait de même pour les autres autres TextBoxes et ComboBoxes
Mettre tes variables C en Range et I en Byte

Bonne journée

 

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 28 Novembre 2016

• #3

je vais voir ca, merci de ton aide

 

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 28 Novembre 2016

• #4

j'ai essayé mais apparement je m'y prend mal avec les combobox

j'utilise ca mais je pense que ca dois pas etre ca car il me trouve une erreur de depassement (dim c as range ,i as byte sont mis)

Code:

 .Offset(, i) = Controls("ComboBox" &  i)

 

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 28 Novembre 2016

• #5

C'est bon j'ai reussi

Merci encore je met le fichier a jours dans les ressources

 

Vote positif 0 Vote négatif