XL 2019 FR - VBS insérer une ligne vers le bas dans mon code

Bonjour à vous tous,

J'ai le plus grand mal pour mettre sur pied un VBA qui me permettrait de résoudre le problème suivant:

J’aimerais que la ligne soit insérée en dessous et non au-dessus

Sub Insere()

vlig = ActiveCell.Row

vzona = vlig & ":" & vlig

vzonb = vlig - 1 & ":" & vlig - 1

Selection.EntireRow.Select

Selection.Insert Shift:=xlDown

Rows(vzonb).Select

Selection.Copy

Rows(vzona).Select

ActiveSheet.Paste

Cells(vlig, 1).Select

ActiveCell.Offset(0, 12).ClearContents

ActiveCell.Offset(0, 12).Select

End Sub

Edit modo : merci d'utiliser le bouton </> pour y mettre le code

Bonjour Verox003 et

Il faut modifier cette ligne comme suit

Selection.Offset(1,0).Insert Shift:=xlDown

Une petite présentation ICI serait la bienvenue

@+

Merci BrunoM45

Malheureusement ca ne fonctionne pas

Merci pour votre aide!

Re,

Navré mais cela fonctionne bien chez moi

Après visuellement, vous pouvez faire

Selection.Offset(1, 0).EntireRow.Select
Selection.Insert Shift:=xlDown

@+

Malheureusement non

Merci de votre patience

bonjour,

"ça ne fonctionne pas n'est pas une réponse !"

Ça fonctionne surement ? Que se passe-il ? Message d'erreur ? Citer le message ou mieux faire une copie d'écran.

Joindre le classeur avec la macro ou il ne se passe rien.

D'un autre coté les classeur avec ActiveCell, Select, Selection ça ne devrait pas exister en VBA.

Comment voulez vous qu'on devine ou est la selection et l'activeCell ?

A+

Bonjour,

Ça ressemble potentiellement à un fichier protégé, non ?

Non joyeux noel Application Run désactivé pour le test... Module 1 innactif pour le moment

Alors se référer à la remarque de Maître Galopin01.

Merci messieurs,

Voici ma version simplifié .... et fonctionnelle

Bravo Verox03 👏

À Peine arrivé sur le forum et déjà des soucis avec l'énoncé du problème

Merci