Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Insérer 42 lignes d'un coup ?

Insérer 42 lignes d'un coup ?

4 réponses
Avatar
YannDeo
Salut

Y a t il une fonction insérer XXX lignes vides dans Excel ? (Je pense à une
boite de dialogue qui demanderait le nombre de lignes ou de colonnes).

J'ai Office 2007.

Merci!
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
MichD
Bonjour,

Pour te donner une idée...

Ceci insère le nombre de lignes ou colonnes inscrites juste au dessus ou à droite de la cellule active
'------------------------
Sub test1()
Dim X As Variant
X = Application.InputBox("Combien de lignes à insérer?", Type:=1)
If TypeName(X) = "Boolean" Then Exit Sub
ActiveCell.Resize(X).EntireRow.Insert
End Sub
'------------------------
Sub test2()
Dim X As Variant
X = Application.InputBox("Combien de Colonnes à insérer?", Type:=1)
If TypeName(X) = "Boolean" Then Exit Sub
ActiveCell.Resize(, X).EntireColumn.Insert
End Sub
'------------------------


MichD
--------------------------------------------
Avatar
YannDeo
Merci pour ta réponse.

Obligé de passer par une macro ?

"MichD" a écrit dans le message de groupe de discussion :
iomkv6$o37$

Bonjour,

Pour te donner une idée...

Ceci insère le nombre de lignes ou colonnes inscrites juste au dessus ou à
droite de la cellule active
'------------------------
Sub test1()
Dim X As Variant
X = Application.InputBox("Combien de lignes à insérer?", Type:=1)
If TypeName(X) = "Boolean" Then Exit Sub
ActiveCell.Resize(X).EntireRow.Insert
End Sub
'------------------------
Sub test2()
Dim X As Variant
X = Application.InputBox("Combien de Colonnes à insérer?", Type:=1)
If TypeName(X) = "Boolean" Then Exit Sub
ActiveCell.Resize(, X).EntireColumn.Insert
End Sub
'------------------------


MichD
--------------------------------------------
Avatar
MichD
Non, si tu sélectionnes 5 lignes ou colonnes
tu appelles la commande insérer... dans le menu contextuel
par exemple et tu auras 5 nouvelles lignes ou colonnes!
Une fenêtre te demandera si tu veux insérer des lignes ou colonnes complètes.



MichD
--------------------------------------------
"YannDeo" a écrit dans le message de groupe de discussion : 4daedac2$0$26070$

Merci pour ta réponse.

Obligé de passer par une macro ?

"MichD" a écrit dans le message de groupe de discussion :
iomkv6$o37$

Bonjour,

Pour te donner une idée...

Ceci insère le nombre de lignes ou colonnes inscrites juste au dessus ou à
droite de la cellule active
'------------------------
Sub test1()
Dim X As Variant
X = Application.InputBox("Combien de lignes à insérer?", Type:=1)
If TypeName(X) = "Boolean" Then Exit Sub
ActiveCell.Resize(X).EntireRow.Insert
End Sub
'------------------------
Sub test2()
Dim X As Variant
X = Application.InputBox("Combien de Colonnes à insérer?", Type:=1)
If TypeName(X) = "Boolean" Then Exit Sub
ActiveCell.Resize(, X).EntireColumn.Insert
End Sub
'------------------------


MichD
--------------------------------------------
Avatar
YannDeo
Merci beaucoup!

"MichD" a écrit dans le message de groupe de discussion :
iomm53$r50$

Non, si tu sélectionnes 5 lignes ou colonnes
tu appelles la commande insérer... dans le menu contextuel
par exemple et tu auras 5 nouvelles lignes ou colonnes!
Une fenêtre te demandera si tu veux insérer des lignes ou colonnes
complètes.



MichD
--------------------------------------------
"YannDeo" a écrit dans le message de groupe de discussion :
4daedac2$0$26070$

Merci pour ta réponse.

Obligé de passer par une macro ?

"MichD" a écrit dans le message de groupe de discussion :
iomkv6$o37$

Bonjour,

Pour te donner une idée...

Ceci insère le nombre de lignes ou colonnes inscrites juste au dessus ou à
droite de la cellule active
'------------------------
Sub test1()
Dim X As Variant
X = Application.InputBox("Combien de lignes à insérer?", Type:=1)
If TypeName(X) = "Boolean" Then Exit Sub
ActiveCell.Resize(X).EntireRow.Insert
End Sub
'------------------------
Sub test2()
Dim X As Variant
X = Application.InputBox("Combien de Colonnes à insérer?", Type:=1)
If TypeName(X) = "Boolean" Then Exit Sub
ActiveCell.Resize(, X).EntireColumn.Insert
End Sub
'------------------------


MichD
--------------------------------------------