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

Bonjour,

j'ai un code qui me permet d’insérer une ligne sur plusieurs onglets,
j'ai voulu adapter mais je rencontre un problème d'objet requis.

Voici le code d'insertion

Public Sub Insertion_Ligne()

Dim cpt As Integer
Dim Limite As Integer

Dim ref As Range
Set ref = Application.InputBox(prompt:="Sélectionner les cellules sur la feuille", Type:=8)
MsgBox (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

Sheets(cpt).Rows(ref.Address).Insert Shift:=xlDown


'*<bold> Pour la suppression j'insere .delete xlup</bold>

   
   cpt = cpt + 1
Loop

End Sub

EDIT : Ajout des balises de code

Merci de votre aide

A voir également:

Suppression de ligne : Pb objet requis
Forcer suppression fichier - Guide
Site de vente en ligne particulier - Guide
Partage de photos en ligne - Guide
Aller à la ligne excel - Guide
Hors ligne instagram - Guide

1 réponse

Réponse 1 / 1

K
31 mai 2018 à 16:16

Bonjour,

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

CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 1
18 juil. 2018 à 22:40

Désolé pour cette réponse tardive ... Un grand merci ça fonctionne parfaitement

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?

Statut « en ligne » alors que non

Ligne occupée : pourquoi mon téléphone sonne occupé ?

On me voit connecté sur facebook alors que je n'y suis pas

Discussions similaires

Newsletters