Macro VBA Excel lancé en un clic Fermé

Question

Bonjour, 
J'ai un petit problème qui est peut-être simple, mais que je n'arrive pas à solutionner faute de connaisisance en macro... 
Je voudrais copier une cellule dans une autre cellule.
Pour être plus précis, j'ai une valeur en B9 que j'aimerais copier dans l'une des cellules de la ligne C9 à AX9 juste en cliquant sur une des cellules de cette ligne.
Je voudrais savoir s'il est possible de faire ça avec une simple fonction. 
Sinon, en lançant une macro... 
Je vous remercie d'avance pour votre aide.

Configuration: Windows 7 / Mozilla 11.0

Utilisateur anonyme · Answer

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 :


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. 😊

Macro VBA Excel lancé en un clic

1 réponse

Discussions similaires