Insertion ligne avec recopie formats et formules

Le
Alba
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #4325191
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"
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
Le #4325151
Merci beaucoup Jacky, c'est parfait.
Publicité
Poster une réponse
Anonyme