Suppression de ligne : Pb objet requis
Résolu/Fermé
CHARLYJACK
Messages postés
353
Date d'inscription
mardi 19 octobre 2010
Statut
Membre
Dernière intervention
16 mai 2023
-
Modifié le 31 mai 2018 à 15:28
CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 - 18 juil. 2018 à 22:40
CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 - 18 juil. 2018 à 22:40
A voir également:
- Suppression de ligne : Pb objet requis
- Forcer suppression fichier - Guide
- Partage de photos en ligne - Guide
- Site de vente en ligne particulier - Guide
- Aller à la ligne excel - Guide
- Apparaitre hors ligne instagram - Guide
1 réponse
Bonjour,
K
Option Explicit ' Public Sub Insertion_Ligne() Dim cpt As Integer Dim Limite As Integer Dim StrAdr As String Dim ref As Range Set ref = Application.InputBox(prompt:="Sélectionner les cellules sur la feuille", Type:=8) StrAdr = ref.Address ' Premier onglet insertion ligne cpt = Range("Borne1").Value ' Dernier onglet insertion ligne Limite = Range("Borne2").Value Do While cpt + 1 <= Limite Sheets(cpt).Select Range(StrAdr).Insert Shift:=xlDown '*<bold> Pour la suppression j'insere .delete xlup</bold> cpt = cpt + 1 Loop End Sub
K
18 juil. 2018 à 22:40