Recopie formule au fur et à mesure

Le
Alba
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Elliac
Le #4221871
Bonjour,

Si j'ai bien compris quand tu rajoutes une ligne tu récupères 2 valeurs en
colonne C et E. Tu peux recopier les formules de la ligne du dessus en
colonne B, E, F et G :

Private Sub ValiderCrédits_Click()

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

Range("B" & DerL-1).Copy .Range("B" & DerL)
Range("C" & DerL).Value = ListeCrédits.Value
Range("D" & DerL-1).Copy .Range("D" & DerL)
Range("E" & DerL).Value = TextBoxMontantsCrédits.Value
Range("F" & DerL-1).Copy .Range("F" & DerL)
Range("G" & DerL-1).Copy .Range("G" & DerL)

End With
End Sub

Camille

"Alba" wrote:

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




JB
Le #4221861
Bonjour,

ncol = [B8].CurrentRegion.Columns.Count
[B65000].End(xlUp).Offset(1, 0).Resize(1, ncol).Select
Selection.Offset(-1, 0).Copy ActiveCell
On Error Resume Next
Selection.SpecialCells(xlCellTypeConstants, 23).ClearContents

JB

On 27 fév, 14:04, "Alba"
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


Alba
Le #4221811
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
JB
Le #4221801
Post ton fichier

JB

On 27 fév, 14:57, "Alba"
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


Alba
Le #4221751
On 27 fév, 15:00, "JB"
Post ton fichier

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

sinon

Alba
Le #4221621
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 ????
JB
Le #4220111
Je ne suis pas sûr d'avoir compris la logique du formulaiire:

http://cjoint.com/?cBtExpOPkX

'Valider Crédits
Private Sub ValiderCrédits_Click()
Dim l As Integer
RecopieDernièreligne
l = Sheets("Janvier").Range("C1000").End(xlUp).Row + 1
Sheets("Janvier").Activate
With Sheets("Janvier")
.Range("C" & l).Value = ListeCrédits.Value
.Range("E" & l).Value = TextBoxMontantsCrédits.Value
.Range("b" & l).Value = Date
End With
End Sub

' Valider débits
Private Sub ValiderDébits_Click()
Dim l As Integer
RecopieDernièreligne
l = Sheets("Janvier").Range("C1000").End(xlUp).Row + 1
Sheets("Janvier").Activate
With Sheets("Janvier")
.Range("C" & l).Value = ListeDébits.Value

.Range("F" & l).Value = TextBoxmontantDébits.Value

.Range("b" & l).Value = Date
End With
End Sub

JB

On 27 fév, 16:41, "Alba"
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 ????


Alba
Le #4220031
Voilà c'est super il insère ma lign sur le bouton valider maintenant
c'est exacrtement ce que je voulias, sauf que oup's ! Il efface le
format monétaire et la formule dans la colonne solde.
Publicité
Poster une réponse
Anonyme