( RESOLU )modification macro pour rajout de ligne avec formule

J

Jack2

XLDnaute Occasionnel

• 27 Mai 2014

• #2

Re : modification macro pour rajout de ligne avec formule

Bonjour excelan, Bonjour le forum,

Peut être comme ça :

Code:

Ligne = ActiveCell.Row
Rows(Ligne & ":" & Ligne).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A" & Ligne + 1).Select

A+ Jack2

 

Vote positif 0 Vote négatif

exelan

XLDnaute Occasionnel

• 27 Mai 2014

• #3

Re : modification macro pour rajout de ligne avec formule

jack2 merci c impect

pour la suite je voudrais en sélectionnant la cellule a14 exécuter la macro juste avant de mettre la date et ainsi de suite toujours en colonne a ..

 

Pièces jointes

• Capture.JPG

  18.8 KB · Affichages: 46
• Capture.JPG

  18.8 KB · Affichages: 51
• Capture.JPG

  18.8 KB · Affichages: 56

Vote positif 0 Vote négatif

J

Jack2

XLDnaute Occasionnel

• 27 Mai 2014

• #4

Re : modification macro pour rajout de ligne avec formule

Re Bonjour exelan,

Si j'ai bien compris :

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 1 Or Target.Count > 1 Then Exit Sub
Ligne = Target.Row
Rows(Ligne & ":" & Ligne).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A" & Ligne) = Date
Range("A" & Ligne + 1).Select
End Sub

Pour mette cette procédure :
- clic doit sur l'onglet
- choisir "visualiser le code"
- coller le code

Ne marche que s'il y a un double clic en colonne A

A+ Jack2

 

Vote positif 0 Vote négatif

exelan

XLDnaute Occasionnel

• 27 Mai 2014

• #5

Re : modification macro pour rajout de ligne avec formule

pas bien compris ou je colle le code dans la feuille 1 du vba ???

 

Vote positif 0 Vote négatif

J

Jack2

XLDnaute Occasionnel

• 28 Mai 2014

• #6

Re : modification macro pour rajout de ligne avec formule

Bonjour exelan,

Excuses pour le retard. Tout est dans le fichier joint.

A+ Jack2

 

Pièces jointes

• Exelan.xlsm

  195.4 KB · Affichages: 46

Vote positif 0 Vote négatif

exelan

XLDnaute Occasionnel

• 30 Mai 2014

• #7

Re : modification macro pour rajout de ligne avec formule

salut jack2 ça insère bien une ligne mais çà copie pas les formules dans la ligne du dessus et avec plusieurs colonnes pareil ..

 

Vote positif 0 Vote négatif

J

Jack2

XLDnaute Occasionnel

• 31 Mai 2014

• #8

Re : modification macro pour rajout de ligne avec formule

Bonjour Exelan,

Essaye ceci :

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 1 Or Target.Count > 1 Then Exit Sub
ligne = Target.Row
Rows(ligne & ":" & ligne).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A" & ligne) = Date
Range("B" & ligne - 1 & ":D" & ligne - 1).Copy Destination:=Range("B" & ligne & ":D" & ligne)
Range("A" & ligne + 1).Select
End Sub

Si ça ne correspond pas à ce que tu souhaites, mets dans un fichier ce que tu souhaites :
- avant macro (capture.jpg)
- après marco, ce que tu veux obtenir, y compris formules, sur une feuille de classeur
- explications éventuelles

A+ Jack2

 

Vote positif 0 Vote négatif

exelan

XLDnaute Occasionnel

• 31 Mai 2014

• #9

Re : modification macro pour rajout de ligne avec formule

re salut jack2 g réussi en cliquant 2 fois sur une celulle et sa me met un petit f genre formule et je clic dessus et c bon les cellules sont avec les formules suffiras de s en souvenir lol !!! viens de tester ta macro elle marche mais copie même les montants dans les cellules, moi ça copie que les formules et les cellules reste vide ...

 

Vote positif 0 Vote négatif

J

Jack2

XLDnaute Occasionnel

• 31 Mai 2014

• #10

Re : modification macro pour rajout de ligne avec formule

Re bonjour Exelan,

Si tu veux copier les uniquement le formules remplace :

Code:

Range("B" & ligne - 1 & ":D" & ligne - 1).Copy Destination:=Range("B" & ligne & ":D" & ligne)

par

Code:

Range("B" & ligne - 1 & ":D" & ligne - 1).Copy
Range("B" & ligne & ":D" & ligne).PasteSpecial Paste:=xlPasteFormulas

Comme je te l'ai dit, il est difficile de deviner ce que tu veux. Pour avancer, il est préférable que tu joignes ton fichier (sans données personnelles) comme indiqué dans mon post de 14h10

A+ Jack2

 

Vote positif 0 Vote négatif

exelan

XLDnaute Occasionnel

• 31 Mai 2014

• #11

Re : modification macro pour rajout de ligne avec formule

te remercie encore jack2 et marque résolu grâce a toi @+!!!!🙂

 

Vote positif 0 Vote négatif