Bonjour à tous,
Je cherche à adapter la macro (ci-dessous) à 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.
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
--------------
Merci d'avance pour votre aides,
@ +
Je cherche à adapter la macro (ci-dessous) à 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.
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
--------------
Merci d'avance pour votre aides,
@ +