Lier la macro à un bouton d'execution

[Rachi]

Salut à tous,
En cherchant dans le forum, j'ai trouver une macro qui permet d'ajouter des lignes, mais je n'arrive pas à créer un bouton qui me permettra d’exécuter la macro. Voici la macro :
-------------
Option Explicit
Dim B$, F$
Dim R%

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With ActiveSheet
If Not Intersect(Target, .Range("H2:H500")) Is Nothing Then
If Target.Value = "Double Clicquer Ici" Then
R = Target.Row + 1 'ligne ou l'on à clicqué plus 1
B = Target.Offset(0, -5).Value 'valeur cellule Colonne C
F = Target.Offset(0, -2).Value 'valeur cellule Colonne F
Range("C" & R).Select 'on selectionne la cellule déterminée
Selection.EntireRow.Insert 'on insert Une ligne
With ActiveCell
.Value = B
.Offset(0, 3) = F
End With

End If
End If
End With
Cancel = False
End Sub


Bonjour Chers membres du forum,
Bonjour JCGL,
Merci pour la réponse, je cherche à adapter la macro un tableau que j'ai créé dans la feuil 3 ( voir la pièce jointe).
Lors de l'insertion de la ligne, je veux que la macro me renvoie les formules au lieu du texte.
Merci d'avance,
@ +

 

[JCGL]

Re : Lier la macro à un bouton d'execution

Bonjour à tous,

Le bouton n'est pas nécessaire : le code se déclenche sur un Double Click en colonne H ET pour les cellules ayant en valeur "Double Clicquer Ici"

A + à tous

 

[Rachi]

Adapter une macro pour ajouter des lignes

Bonjour à tous,

Le bouton n'est pas nécessaire : le code se déclenche sur un Double Click en colonne H ET pour les cellules ayant en valeur "Double Clicquer Ici"

A + à tous

Bonjour Chers membres du forum,
Bonjour JCGL,
Merci pour la réponse, je cherche à adapter la macro (ci-dessus) à un tableau que j'ai créé dans la feuil 3 ( voir la pièce jointe) et
lors de l'insertion de la ligne, je veux que la macro me renvoie les formules au lieu du texte. C'est à dire je dois insérer une ligne dans la feuil2 au niveau de la ligne n° 2 (Pour saisir des données) pour que je puisse récupérer ces données dans la ligne à insérer au niveau de la feuil3.
Voilà en résumé ce que je cherche à réaliser.
Merci d'avance,
@ +