Bonjour,
J'ai crée 2 boutons : copier et coller.
Au fait quand je clique sur coller sans cliquer sur copier avant, j'ai un message d'erreur 1004, c'est normal. Mais , je voudrais changer ce message et mettre par "Attention vous n'avez pas cliquez sur copier".
Comment faire?
Est ce que quelqu'un a une idée?
Voici le code de mes 2 boutons:
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub B_COPIER_Click() lngLigne = ActiveCell.Row Range("C" & lngLigne & ":AZ" & lngLigne).Copy End Sub Private Sub B_COLLER_Click() lngLigne = ActiveCell.Row Range("C" & lngLigne).Select ActiveSheet.Paste Range("D" & lngLigne).ClearContents Range("F" & lngLigne).Select application.CutCopyMode = False End Sub
Partager