Macro à adapter pour un tableau.

[Rachi]

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,
@ +

 

[pierrejean]

Re : Macro à adapter pour un tableau.

Bonjour Rachi

Vois si cela te convient

 

[Rachi]

Re : Macro à adapter pour un tableau.

Salut pierrejean,
La solution que vous me proposez me convient à 50%.
Pour l'insertion des lignes c'est parfait, par contre lors de l'insertion, la macro ne renvoie pas les formules contenues dans les cellules de la ligne.
Je suis sensé par exemple inséré une ligne dans la feuil2 au niveau de la ligne n°2 et saisir des données en suite dans la feuil3 j’insère une ligne au niveau de:

B1 pour récupérer Feuil2!D2 et C1 pour récupérer Feuil2!C2,
B2 pour récupérer Feuil2!F2 et C2 pour récupérer Feuil2!E2
B3 pour récupérer Feuil2!H2 et C3 pour récupérer Feuil2!G2
B1 pour récupérer Feuil2!J2 et C1 pour récupérer Feuil2!I2
B2 pour récupérer Feuil2!L2 et C2 pour récupérer Feuil2!K2
B3 pour récupérer Feuil2!N2 et C3 pour récupérer Feuil2!M2
B1 pour récupérer Feuil2!P2 et C1 pour récupérer Feuil2!O2
ETC........

Merci encore pour votre aide.
A@ +

 

[pierrejean]

Re : Macro à adapter pour un tableau.

Re

Teste ceci:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Value = "Double Clicquer Ici" Then
Rows(Target.Row + 1).Insert
Range("B" & Target.Row + 2 & ":C" & Target.Row + 2).Copy Destination:=Range("B" & Target.Row + 1)
End If
End Sub

 

[Rachi]

Re : Macro à adapter pour un tableau.

Re

Teste ceci:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Value = "Double Clicquer Ici" Then
Rows(Target.Row + 1).Insert
Range("B" & Target.Row + 2 & ":C" & Target.Row + 2).Copy Destination:=Range("B" & Target.Row + 1)
End If
End Sub

Salut pierrejean,
J'ai testé la macro, et je peux vous dire que le problème est résolu à 75%.
Sauf que la macro doit copier les formules de cette façon.
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B2"), Type:=xlFillDefault
Range("B1:B2").Select
Range("C1").Select
Selection.AutoFill Destination:=Range("C1:C2"), Type:=xlFillDefault
Range("C1:C2").Select

Etc.........
Merci Bcp pierrejean pour ton aide, et bonne année.
A+

 

[pierrejean]

Re : Macro à adapter pour un tableau.

Re

Désolé mais je ne comprends pas ce que tu souhaites !!!

Peux-tu me le traduire dans la langue de Moliere , je me chargerais de le traduire en Vba

 

[Rachi]

Re : Macro à adapter pour un tableau.

Bonjour pierrejean,
Je souhaite récupérer les données de la feuil2 dans la feuil3, comme ceci: lors de l'insertion d'une ligne dans la feuil2 au niveau de la ligne n°2, en suite dans la feuil3, je suis sensé insérer une ligne dans A1, A2, A3, A4, A5, A6, A7 Simultanément pour récupérer les données (Voir la pièce jointe).
Chaque fois que j'insére une ligne dans la feuil2, j'insère une ligne dans A1, A2, A3, A4, A5, A6, A7 de la feuil3 afin de récupérer les données.

Merci encore pierrejean pour ton aide.
@+

 

[Rachi]

Re : Macro à adapter pour un tableau.

Bonjour pierrejean,
Je souhaite récupérer les données de la feuil2 dans la feuil3, comme ceci: lors de l'insertion d'une ligne dans la feuil2 au niveau de la ligne n°2, en suite dans la feuil3, je suis sensé insérer une ligne dans A1, A2, A3, A4, A5, A6, A7 Simultanément pour récupérer les données (Voir la pièce jointe).
Chaque fois que j'insére une ligne dans la feuil2, j'insère une ligne dans A1, A2, A3, A4, A5, A6, A7 de la feuil3 afin de récupérer les données.

Merci encore pierrejean pour ton aide.
@+

 

[pierrejean]

Re : Macro à adapter pour un tableau.

Re

Desolé mais ce n'est toujours pas clair pour moi
dans une Feuil4 mentionne ce que l'on obtient apres 1 ou 2 dble clic en D6 et D8

 

[Rachi]

Re : Macro à adapter pour un tableau.

Bonjour pierrejean,
Voilà, je viens de faire ce que vous m'avez demandé, le détail est schématisé sur la feuil2 et la feuil4 de la pièce jointe.
Merci encore pierrejean pour ton aide précieuse.
@+

 

[pierrejean]

Re : Macro à adapter pour un tableau.

Re

Vois si cette fois j'ai compris

 

[Rachi]

Re : Macro à adapter pour un tableau.

Salut pierrejean,
C'est difficile de vous faire comprendre comment ça doit marcher mais je fait de mon mieux.
Voir stp la pièce jointe, peut être cette fois-ci j'ai bien expliqué le problème.
@ + pierrejean

 

[pierrejean]

Re : Macro à adapter pour un tableau.

Re
Toutes mes excuses , je suis allé trop vite

 

[Rachi]

Re : Macro à adapter pour un tableau.

Je viens d’essayer la macro ça marche pas. J’ai inséré une ligne dans la feuil2 au niveau de la ligne 2 et j'ai saisi des données après dans la feuil3,
J’ai fait un double clic en D6 pour récupérer les données saisies dans la feuil2. J'ai remarqué que l'insertion se fait sur la ligne n et non pas sur la ligne première ligne.
Voilà l'essai que j'ai fait.
pierrejean essaye de dérouler l’opération tel que je l'ai fait pour voir mieux et aussi regarde bien la feuil4 de la pièce jointe que vous avez modifié.
Merci encore et @+

 

[pierrejean]

Re : Macro à adapter pour un tableau.

Re

J'ai copié en feuil3 ta feuil4 , j'ai supprimé les lignes avec vide en colonne D puis dbl cliqué : Le resultat me parait etre celui de ta feuil4
Même chose pour la feuil 5 (la j'ai ajouté le signe =)
Moi j'abandonne
Avis aux interessés