Microsoft 365 Insérer ligne avec formules

G@vroche · 12 Février 2020

Bonjour,

J'ai un code qui me permet d'insérer une ligne à mon tableau au dessus de la cellule active, en copiant les formules, et en effaçant les autres valeurs.
Ce code fonctionne bien si au moins une valeur est rentrée sur la ligne active.
Mais si la ligne active est vide, j'ai un message d'erreur 400 qui s'affiche.

Savez-vous pourquoi ?
Ci-dessous le code :

Sub InserLigne_L_()
Dim Plage As Range
ActiveCell.EntireRow.Copy
ActiveCell.EntireRow.Insert
Set Plage = ActiveCell.EntireRow.SpecialCells(xlCellTypeConstants, 1)
If Not Plage Is Nothing Then Plage.ClearContents
ActiveSheet.Calculate
End Sub

Merci

laurent3372 · 12 Février 2020

VB:

Sub InserLigne_L_()
Dim Plage As Range
ActiveCell.EntireRow.Copy
ActiveCell.EntireRow.Insert

on error resume next
Set Plage = ActiveCell.EntireRow.SpecialCells(xlCellTypeConstants, 1)
if err = 0 then Plage.Clearcontents
on error goto 0

ActiveSheet.Calculate
End Sub

laurent3372 · 12 Février 2020

VB:

Sub InserLigne_L_()
Dim Plage As Range
ActiveCell.EntireRow.Copy
ActiveCell.EntireRow.Insert

on error resume next
Set Plage = ActiveCell.EntireRow.SpecialCells(xlCellTypeConstants, 1)
if err = 0 then Plage.Clearcontents
on error goto 0

ActiveSheet.Calculate
End Sub

G@vroche · 13 Février 2020

Bonjour laurent3372,

Merci mais ça n'a rien changé.

G@vroche · 14 Février 2020

Bonjour laurent3372,

Je retire ce que j'ai dit!
J'avais mis ce code dans la feuille. Et ça ne marchait pas.
Mais j'ai essayé de le mettre dans un module. Et là, ça fonctionne parfaitement!
Merci pour ton aide.

laurent3372 · 14 Février 2020

Marquer comme solution ?

Microsoft 365 Insérer ligne avec formules

G@vroche

XLDnaute Nouveau

laurent3372

laurent3372

XLDnaute Impliqué

G@vroche

XLDnaute Nouveau

G@vroche

XLDnaute Nouveau

laurent3372

XLDnaute Impliqué

Discussions similaires