Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Il n' ya donc personne pour m'aider ...?

Il n' ya donc personne pour m'aider ...?

1 réponse
Avatar
benjaminalimi
Pouvez vous m'aider sur mon problème d'insertion... cf. post précéden

--
benjaminalim
-----------------------------------------------------------------------
benjaminalimi's Profile: http://www.msusenet.com/member.php?userid=209
View this thread: http://www.msusenet.com/t-187091846
Signaler un problème avec ce contenu

1 réponse

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
Ricky
Bonjour *benjaminalimi*

Sub Insertion()
Selection.Insert Shift:=xlDown
End Sub

Si tu n'insères pas au bon endroit il faudra trier la colonne

Sub trier()
'
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub


| Pouvez vous m'aider sur mon problème d'insertion... cf. post précédent

--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faqword.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net