Insérer 42 lignes d'un coup ?

Le
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!
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #23298141
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
--------------------------------------------
YannDeo
Le #23298261
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
--------------------------------------------
MichD
Le #23298251
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
--------------------------------------------
YannDeo
Le #23298441
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
--------------------------------------------
Publicité
Poster une réponse
Anonyme