Résolu Microsoft 365 Insérer ligne avec formules

G@vroche

XLDnaute Nouveau
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
 
Ce fil a été résolu! Aller à la solution…

laurent3372

XLDnaute Impliqué
Supporter XLD
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
 
Ce message a été identifié comme étant une solution!

G@vroche

XLDnaute Nouveau
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.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas