Bonjour le forum,
j'ai un soucis dans une macro, j'ai créé un USF qui me sert à recueillir des données saisies par un opérateur puis les transfert vers une feuille sur la 1° ligne disponible dans les colonnes D à K, cet USF s'ouvre quand on clique sur le bouton "Ajout".
Une 2° macro me sert à effectuer des calcul sur ces données transférées (module n°1, sub copie_formule).
Je voudrait que la macro copie_formule s'execute quand l'opérateur valide les données saisies dans l'USF en cliquant sur le bouton OK.
Voici le code du USF:
J'ai essayé de mettre Call copie_formule à la suite de Userform1.hide
mais ca ne fonctionne pas.
Je joint le fichier.
j'ai un soucis dans une macro, j'ai créé un USF qui me sert à recueillir des données saisies par un opérateur puis les transfert vers une feuille sur la 1° ligne disponible dans les colonnes D à K, cet USF s'ouvre quand on clique sur le bouton "Ajout".
Une 2° macro me sert à effectuer des calcul sur ces données transférées (module n°1, sub copie_formule).
Je voudrait que la macro copie_formule s'execute quand l'opérateur valide les données saisies dans l'USF en cliquant sur le bouton OK.
Voici le code du USF:
Code:
Private Sub CommandButton1_Click()
Dim derligne As Single
derligne = Sheets(1).Range("A65000").End(xlUp).Row
Sheets(1).Cells(derligne + 1, 4).Value = TextBox1.Value
Sheets(1).Cells(derligne + 1, 5).Value = TextBox2.Value
Sheets(1).Cells(derligne + 1, 6).Value = TextBox3.Value
Sheets(1).Cells(derligne + 1, 7).Value = TextBox4.Value
Sheets(1).Cells(derligne + 1, 8).Value = TextBox5.Value
Sheets(1).Cells(derligne + 1, 9).Value = TextBox6.Value
Sheets(1).Cells(derligne + 1, 10).Value = TextBox7.Value
Sheets(1).Cells(derligne + 1, 11).Value = TextBox8.Value
UserForm1.Hide
End Sub
J'ai essayé de mettre Call copie_formule à la suite de Userform1.hide
mais ca ne fonctionne pas.
Je joint le fichier.