( RESOLU )modification macro pour rajout de ligne avec formule

[exelan]

salut voila ma macro insertion avec formule marche bien a part qu elle reste toujours a la mémé ligne comment la faire descendre d une ligne a chaque commande de 9 a 10 de 10 a 11 ect ect

Rows("9:9").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A9").Select

 

[Jack2]

Re : modification macro pour rajout de ligne avec formule

Bonjour excelan, Bonjour le forum,

Peut être comme ça :

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

A+ Jack2

 

[exelan]

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

 

[Jack2]

Re : modification macro pour rajout de ligne avec formule

Re Bonjour exelan,

Si j'ai bien compris :

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

 

[exelan]

Re : modification macro pour rajout de ligne avec formule

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

 

[Jack2]

Re : modification macro pour rajout de ligne avec formule

Bonjour exelan,

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

A+ Jack2

 

[exelan]

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

 

[Jack2]

Re : modification macro pour rajout de ligne avec formule

Bonjour Exelan,

Essaye ceci :

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

 

[exelan]

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

 

[Jack2]

Re : modification macro pour rajout de ligne avec formule

Re bonjour Exelan,

Si tu veux copier les uniquement le formules remplace :

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

par

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

 

[exelan]

Re : modification macro pour rajout de ligne avec formule

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