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
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 '------------------------
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
'------------------------
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" 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" a écrit dans le message de groupe de discussion :
iomkv6$o37$1@speranza.aioe.org...
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" 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 '------------------------
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 '------------------------
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$426a34cc@news.free.fr...
Merci pour ta réponse.
Obligé de passer par une macro ?
"MichD" a écrit dans le message de groupe de discussion :
iomkv6$o37$1@speranza.aioe.org...
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
'------------------------
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" 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" a écrit dans le message de groupe de discussion :
iomm53$r50$1@speranza.aioe.org...
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$426a34cc@news.free.fr...
Merci pour ta réponse.
Obligé de passer par une macro ?
"MichD" a écrit dans le message de groupe de discussion :
iomkv6$o37$1@speranza.aioe.org...
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" 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 '------------------------