A voir également:
- Macro VBA Excel lancé en un clic
- Liste déroulante excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Mise en forme conditionnelle excel - Guide
- Formule excel - Guide
- Macro word - Guide
1 réponse
Utilisateur anonyme
Modifié par albkan le 12/10/2016 à 21:20
Modifié par albkan le 12/10/2016 à 21:20
Bonjour Lloyd,
Je te propose d'abord une macro à lancer à partir d'un
bouton qui est sur ta feuille : c'est plus simple !
Voici le code VBA qui fait ta copie :
Crées un bouton sur ta feuille, puis affectes-lui cette macro
(à placer dans le code de la feuille ou tu mets ton bouton).
Si ta feuille est protégée, mets ce code VBA :
Si vraiment tu veux lancer ta macro par un clic sur une des cellules
de ta ligne, ça doit être fait par une macro de type événementiel ;
mais je te déconseille de le faire sur un clic gauche (trop simple),
ni sur un double-clic (mode modification ce cellule).
Je te conseille donc de le faire par un clic droit (code à placer,
là aussi, dans le code de ta feuille) :
Dis-moi ce que tu en penses, et si ça te convient.
Cordialement. 😊
Je te propose d'abord une macro à lancer à partir d'un
bouton qui est sur ta feuille : c'est plus simple !
Voici le code VBA qui fait ta copie :
Sub Bouton1_Click() [C9:AX9] = [B9] End Sub
Crées un bouton sur ta feuille, puis affectes-lui cette macro
(à placer dans le code de la feuille ou tu mets ton bouton).
Si ta feuille est protégée, mets ce code VBA :
Sub Bouton1_Click() ActiveSheet.Unprotect [C9:AX9] = [B9] ActiveSheet.Protect End Sub
Si vraiment tu veux lancer ta macro par un clic sur une des cellules
de ta ligne, ça doit être fait par une macro de type événementiel ;
mais je te déconseille de le faire sur un clic gauche (trop simple),
ni sur un double-clic (mode modification ce cellule).
Je te conseille donc de le faire par un clic droit (code à placer,
là aussi, dans le code de ta feuille) :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Count <> 1 Then Exit Sub
If .Row <> 9 Then Exit Sub
If .Column < 2 Or .Column > 50 Then Exit Sub
End With
ActiveSheet.Unprotect
[C9:AX9] = [B9]
ActiveSheet.Protect
End Sub
Dis-moi ce que tu en penses, et si ça te convient.
Cordialement. 😊
