Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Ajouter automatiquement 2 lignes

Ajouter automatiquement 2 lignes

4 réponses
Avatar
EmanuelL
Bonjour à tous,

Comment puis-je faire pour ajouter automatique 2 lignes en dessous de
la céllule seléctionée moyennant Excel-VBA sous Excel 2003?

Merci d'avance. ;-)

--

*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
Signaler un problème avec ce contenu

4 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
Tatanka
Bonjour,

Essaie ceci :

Sub Insere_Deux_Lignes_Sous_Cellule_Active()
i = ActiveCell.Row
Range(Cells(i + 1, 1), Cells(i + 2, 1)).EntireRow.Insert
End Sub

Serge


"EmanuelL" a écrit dans le message de news:
Bonjour à tous,

Comment puis-je faire pour ajouter automatique 2 lignes en dessous de la céllule seléctionée moyennant Excel-VBA sous Excel 2003?

Merci d'avance. ;-)

--

*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org




Avatar
EmanuelL
Super! ça me va tres bien.
Merci beaucoup. ;-)

Tatanka avait soumis l'idée :
Bonjour,

Essaie ceci :

Sub Insere_Deux_Lignes_Sous_Cellule_Active()
i = ActiveCell.Row
Range(Cells(i + 1, 1), Cells(i + 2, 1)).EntireRow.Insert
End Sub

Serge


"EmanuelL" a écrit dans le message de news:

Bonjour à tous,

Comment puis-je faire pour ajouter automatique 2 lignes en dessous de la
céllule seléctionée moyennant Excel-VBA sous Excel 2003?

Merci d'avance. ;-)

--

*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org





--

*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org


Avatar
Tatanka
Il y a ausi :

Sub Insere_Deux_Lignes_Sous_Cellule_Active()
ActiveCell.Offset(1).Resize(2, 1).EntireRow.Insert
End Sub

Bonne journée,
Serge

"EmanuelL" a écrit dans le message de news:
Super! ça me va tres bien.
Merci beaucoup. ;-)

Tatanka avait soumis l'idée :
Bonjour,

Essaie ceci :

Sub Insere_Deux_Lignes_Sous_Cellule_Active()
i = ActiveCell.Row
Range(Cells(i + 1, 1), Cells(i + 2, 1)).EntireRow.Insert
End Sub

Serge


"EmanuelL" a écrit dans le message de news:
Bonjour à tous,

Comment puis-je faire pour ajouter automatique 2 lignes en dessous de la céllule seléctionée moyennant Excel-VBA sous Excel
2003?

Merci d'avance. ;-)

--

*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org





--

*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org






Avatar
EmanuelL
Merci de nouveau, celui-là fonctionne nien aussi.
A+

Tatanka vient de nous annoncer :
Il y a ausi :

Sub Insere_Deux_Lignes_Sous_Cellule_Active()
ActiveCell.Offset(1).Resize(2, 1).EntireRow.Insert
End Sub

Bonne journée,
Serge

"EmanuelL" a écrit dans le message de news:

Super! ça me va tres bien.
Merci beaucoup. ;-)

Tatanka avait soumis l'idée :
Bonjour,

Essaie ceci :

Sub Insere_Deux_Lignes_Sous_Cellule_Active()
i = ActiveCell.Row
Range(Cells(i + 1, 1), Cells(i + 2, 1)).EntireRow.Insert
End Sub

Serge


"EmanuelL" a écrit dans le message de
news:
Bonjour à tous,

Comment puis-je faire pour ajouter automatique 2 lignes en dessous de la
céllule seléctionée moyennant Excel-VBA sous Excel 2003?

Merci d'avance. ;-)

--

*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org





--

*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org





--

*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org