Insertion ligne avec recopie formats et formules

Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Entraide Applications Microsoft Office Excel Insertion ligne avec recopie formats et formules

2 réponses

Alba

18/03/2007 à 11:33

Bonjour

Je voudrais simplement lorsque j'ins=E8re une ligne avec mon code ci
dessous, qu'il recopie aussi le format et les formules de la ligne
situ=E9e au dessus de la feuille "essai" :

J'ai ceci pour ajouter ma ligne :

Private Sub OKenregistreFDB_Click()

Dim derligne As Long
derligne =3D Sheets("essai").Range("A65536").End(xlUp).Row + 1

With Sheets("Essai")

.Range("I" & derligne).Value =3D Sheets("Mabase").Range("J1")

End Sub

Je ne sais pas comment ni ou placer mon
- recopie exactement le m=EAme format et les formules ??

Bon dimanche =E0 tous

2 réponses

Jacky

18/03/2007 à 12:40

Bonjour,
'---------

Private Sub OKenregistreFDB_Click()
Dim derligne As Long
With Sheets("Essai")
derligne = Range("A65536").End(xlUp).Row
.Range("I" & derligne).Copy
.Range("I" & derligne + 1).PasteSpecial Paste:=xlPasteFormats
.Range("I" & derligne + 1).Value = Sheets("Mabase").Range("J1")
End With
Application.CutCopyMode = False
End Sub
'------------

--
Salutations
JJ

"Alba" a écrit dans le message de news:

Bonjour

Je voudrais simplement lorsque j'insère une ligne avec mon code ci
dessous, qu'il recopie aussi le format et les formules de la ligne
située au dessus de la feuille "essai" :

J'ai ceci pour ajouter ma ligne :

Private Sub OKenregistreFDB_Click()

Dim derligne As Long
derligne = Sheets("essai").Range("A65536").End(xlUp).Row + 1

With Sheets("Essai")

.Range("I" & derligne).Value = Sheets("Mabase").Range("J1")

End Sub

Je ne sais pas comment ni ou placer mon
- recopie exactement le même format et les formules ??

Bon dimanche à tous

Alba

18/03/2007 à 13:29

Merci beaucoup Jacky, c'est parfait.

Insertion ligne avec recopie formats et formules

2 réponses

Veuillez sélectionner un problème