Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Macro qui puisse insérer une ligne en recopiant les formules

Macro qui puisse insérer une ligne en recopiant les formules

5 réponses
Avatar
Alain Lebayle
Bonjour,
J'ai un fichier classique nom prénom formule de calculs etc.
Je souhaite insérer de temps en temps une ligne à un endroit.
Mais le pb est qu'il faut qu'après insertion je recopie les formules de
calculs.
Existe t-il une macro qui puisse insérer une ligne en recopiant les
formules ?
Je vous remercie
Alain
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
David
Bonjour Alain,

Voila ce que j'utilise dans mon livre caisse.
Libre à vous, bien sur, de supprimer la mise
en couleur d'une cellule de la nouvelle ligne,
juste là pour dire que "ça fonctionna" !

Sub InsertionLigne()

Dim cell As Range

LigneDebut = Selection.Row

' Considérer la cellule A3 d'une feuille
Set cell = Worksheets(ActiveSheet.Name).Range("F5") ' "juin-2009"

derlig = Range("F4").End(xlDown).Row

Selection.EntireRow.Insert Shift:=xlDown
'ActiveCell.Interior.ColorIndex = 34

Set SourceRange = Worksheets(ActiveSheet.Name).Range("F4")
Set fillRange = Worksheets(ActiveSheet.Name).Range("F4:F" & derlig)
SourceRange.AutoFill Destination:=fillRange

Range("B" & LigneDebut).Select
Range("B" & LigneDebut).Interior.ColorIndex = 34

End Sub

--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.



"Alain Lebayle" a écrit dans le message de
news: %230Q5RD$
Bonjour,
J'ai un fichier classique nom prénom formule de calculs etc.
Je souhaite insérer de temps en temps une ligne à un endroit.
Mais le pb est qu'il faut qu'après insertion je recopie les formules de
calculs.
Existe t-il une macro qui puisse insérer une ligne en recopiant les
formules ?
Je vous remercie
Alain


Avatar
michdenis
Bonjour,

Un petit exemple :

Comment ajouter une ligne immédiatement en dessous
de la ligne A1:E1 et copier les formules de la ligne A1:E1
vers la ligne E2:E2

'----------------------------
Sub test()

'la méthode "SpécialCells requiert cette ligne de code
'car elle génère une erreur lorsqu'elle ne trouve pas
'au moins une cellule répondant au critère spécifié.

On Error Resume Next
With Range("A1:E1")
'insère une ligne immédiatement après
'la ligne mentionnée (1)
.Offset(1).Insert xlShiftDown, True
'Copie la ligne A1:E1 vers la ligne ajoutée
'Incluant les formules et les constantes
.Resize(2).FillDown
'Suppression si besoin des constances dans
'la ligne ajoutée.
.Offset(1).SpecialCells(xlCellTypeConstants).Clear
End With
End Sub
'----------------------------



"Alain Lebayle" a écrit dans le message de groupe de
discussion : #0Q5RD$
Bonjour,
J'ai un fichier classique nom prénom formule de calculs etc.
Je souhaite insérer de temps en temps une ligne à un endroit.
Mais le pb est qu'il faut qu'après insertion je recopie les formules de
calculs.
Existe t-il une macro qui puisse insérer une ligne en recopiant les
formules ?
Je vous remercie
Alain
Avatar
Alain Lebayle
Bonjour,
Et merci beaucoup à tous les 2
Je teste tout cela demain au travail, et vous tiens informé
A demain
Alain

michdenis a écrit :
Bonjour,

Un petit exemple :

Comment ajouter une ligne immédiatement en dessous
de la ligne A1:E1 et copier les formules de la ligne A1:E1
vers la ligne E2:E2

'----------------------------
Sub test()

'la méthode "SpécialCells requiert cette ligne de code
'car elle génère une erreur lorsqu'elle ne trouve pas
'au moins une cellule répondant au critère spécifié.

On Error Resume Next
With Range("A1:E1")
'insère une ligne immédiatement après
'la ligne mentionnée (1)
.Offset(1).Insert xlShiftDown, True
'Copie la ligne A1:E1 vers la ligne ajoutée
'Incluant les formules et les constantes
.Resize(2).FillDown
'Suppression si besoin des constances dans
'la ligne ajoutée.
.Offset(1).SpecialCells(xlCellTypeConstants).Clear
End With
End Sub
'----------------------------



"Alain Lebayle" a écrit dans le message de groupe de
discussion : #0Q5RD$
Bonjour,
J'ai un fichier classique nom prénom formule de calculs etc.
Je souhaite insérer de temps en temps une ligne à un endroit.
Mais le pb est qu'il faut qu'après insertion je recopie les formules de
calculs.
Existe t-il une macro qui puisse insérer une ligne en recopiant les
formules ?
Je vous remercie
Alain



Avatar
JB
Bonsoir,

http://boisgontierjacques.free.fr/fichiers/Cellules/InsertionCopieLigneForm ule.xls

JB
http://boisgontierjacques.free.fr

On 13 déc, 13:35, Alain Lebayle
wrote:
Bonjour,
J'ai un fichier classique nom prénom formule de calculs etc.
Je souhaite insérer de temps en temps une ligne à un endroit.
Mais le pb est qu'il faut qu'après insertion je recopie les formules de
calculs.
Existe t-il une macro qui puisse insérer une ligne en recopiant les
formules ?
Je vous remercie
Alain


Avatar
Alain Lebayle
Bonsoir,
Un très grand merci à tous, cela fonctionne
Un merci spécial au classeur de JB un must !
Alain

JB a écrit :
Bonsoir,

http://boisgontierjacques.free.fr/fichiers/Cellules/InsertionCopieLigneFormule.xls

JB
http://boisgontierjacques.free.fr

On 13 déc, 13:35, Alain Lebayle
wrote:
Bonjour,
J'ai un fichier classique nom prénom formule de calculs etc.
Je souhaite insérer de temps en temps une ligne à un endroit.
Mais le pb est qu'il faut qu'après insertion je recopie les formules de
calculs.
Existe t-il une macro qui puisse insérer une ligne en recopiant les
formules ?
Je vous remercie
Alain