Recopie formule au fur et à mesure

Bonjour,
J'aimerai beaucoup pouvoir adapter un exemple de jb sur ma feuille
mais je n'y parviens pas.


Je fais une insertion de ligne avec dans un userform un combobox et
c'est parfait, mais ne sachant pas à l'avance le nombre de lignes dont
je vais avoir besoin, je voudrais pouvoir insérer mes lignes au fur et
à mesure.


Moi j'a ceci:

'JANVIER
' Valider crédits
Private Sub ValiderCrédits_Click()

Dim DerL As Integer
DerL = Sheets("Janvier").Range("C1000").End(xlUp).Row + 1
Sheets("Janvier").Activate
With Sheets("Janvier")

..Range("C" & DerL).Value = ListeCrédits.Value
..Range("E" & DerL).Value = TextBoxMontantsCrédits.Value

End With
End Sub


et sur l'exemple de Jb : "Recopie la dernière ligne et ne laisse que
les formules"
il a fait cela :

Private Sub B_recopie_Click()
[A65000].End(xlUp).Offset(1, 0).Select
ActiveCell.Offset(-1, 0).EntireRow.Copy ActiveCell
On Error Resume Next
Rows(ActiveCell.Row).SpecialCells(xlCellTypeConstants,
23).ClearContents
End Sub
---------------------
Private Sub Worksheet_Activate()
Set temp = CommandBars("cell").Controls.Add
temp.Caption = "Recopie denière ligne"
temp.OnAction = "recopie"
temp.FaceId = 120
temp.BeginGroup = True
End Sub
----------------------
Private Sub Worksheet_Deactivate()
Application.CommandBars("Cell").Reset
End Sub
------------------------------

Moi j'ai une feuille qui va de la colonne B à la colonne G
et je commence en ligne 8

Merci de votre aide

Bonjour,
J'aimerai beaucoup pouvoir adapter un exemple dejbsur ma feuille
mais je n'y parviens pas.

Je fais une insertion de ligne avec dans un userform un combobox et
c'est parfait, mais ne sachant pas à l'avance le nombre de lignes dont
je vais avoir besoin, je voudrais pouvoir insérer mes lignes au fur et
à mesure.

Moi j'a ceci:

'JANVIER
' Valider crédits
Private Sub ValiderCrédits_Click()

Dim DerL As Integer
DerL = Sheets("Janvier").Range("C1000").End(xlUp).Row + 1
Sheets("Janvier").Activate
With Sheets("Janvier")

.Range("C" & DerL).Value = ListeCrédits.Value
.Range("E" & DerL).Value = TextBoxMontantsCrédits.Value

End With
End Sub

et sur l'exemple deJb: "Recopie la dernière ligne et ne laisse que
les formules"
il a fait cela :

Private Sub B_recopie_Click()
[A65000].End(xlUp).Offset(1, 0).Select
ActiveCell.Offset(-1, 0).EntireRow.Copy ActiveCell
On Error Resume Next
Rows(ActiveCell.Row).SpecialCells(xlCellTypeConstants,
23).ClearContents
End Sub
---------------------
Private Sub Worksheet_Activate()
Set temp = CommandBars("cell").Controls.Add
temp.Caption = "Recopie denière ligne"
temp.OnAction = "recopie"
temp.FaceId = 120
temp.BeginGroup = True
End Sub
----------------------
Private Sub Worksheet_Deactivate()
Application.CommandBars("Cell").Reset
End Sub
------------------------------

Moi j'ai une feuille qui va de la colonne B à la colonne G
et je commence en ligne 8

Merci de votre aide

Bonjour,

Elliac il me fait une erreur sur Range("B" & DerL) , je vais essayer
de comprendre pourquoi !!!

JB merci pour toncode, mais il fait une drôle de chose....

Je vois apparaitre très sur ma ligne, très furtivement mon insertion
demandée avec mon combobox ...et hop ! immédiatement sa disparrait et
je n'ai rien d'insérer sur ma ligne....je vais encore faire des essais

Post ton fichier

Oui merci JB, mais alors je dois l'alléger un peu il ne passera jamais

Voilàhttp://cjoint.com/confirm.php?cjoint=cBpzqlRpov

JB ou sa me pose un problème malgré tous les essais que je viens de
faire c'est que j'aimerai quand je fais :

- Clic sur le bouton "mouvements"
- choix dans la liste
- saisir le montant
- Valider

et c'est sur le bonton "valider" que j'aimerai bien que s'insére
automatiquement ma ligne en dessous de la ligne 7 pour commencer et
chaque fois en dessous de la ligne déjà remplie, ceci sans avoir
besoin de formater ni les formules ni le format à l'insertion.

Là elle vient s'insérer en dessus et je dois lui demander avec le
bouton que tu as créer, alors que j'aimerai que ce soit sur le bouton
valider de l'userform mouvement.

Mais je ne sais pas si c'est possible évidement ????