Suppression de ligne : Pb objet requis

Résolu
CHARLYJACK Messages postés 345 Date d'inscription   Statut Membre Dernière intervention   -  
CHARLYJACK Messages postés 345 Date d'inscription   Statut Membre Dernière intervention   -
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:

1 réponse

Réponse 1 / 1
K
 
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


K
1
CHARLYJACK Messages postés 345 Date d'inscription   Statut Membre Dernière intervention   1
 
Désolé pour cette réponse tardive ... Un grand merci ça fonctionne parfaitement
0

Discussions similaires

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

10 réponses
On me voit connecté sur facebook alors que je n'y suis pas
MrTheMolode -
lily -

5 réponses