jokerfidelio
XLDnaute Occasionnel
Bonjour a tous,
Concernant ce bout de code, une anomalie se produit a la copie des données sur les feuilles.
au lieu d’être copié comme indiqué sur le code sur l'onglet "BD" les données sont copiés sur l'onglet qui est actif !
Pouvez vous m'aider ?
D’avance merci a vous
Concernant ce bout de code, une anomalie se produit a la copie des données sur les feuilles.
au lieu d’être copié comme indiqué sur le code sur l'onglet "BD" les données sont copiés sur l'onglet qui est actif !
Pouvez vous m'aider ?
VB:
Private Sub CommandButton1_Click()
Dim L As Integer
If MsgBox("Confirmez-vous l'insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
L = Sheets("BD").Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
Range("A" & L).Value = TextBox_date
Range("B" & L).Value = TextBox_nom
Range("C" & L).Value = TextBox_prenom
Range("D" & L).Value = TextBox_infolog
Range("E" & L).Value = ComboBox_chef
Range("G" & L).Value = ComboBox_certification
Range("H" & L).Value = ComboBox_montage
Range("J" & L).Value = TextBox_observation
End If
End Sub
D’avance merci a vous