Ajouter ligne avec With

dureiken · 14 Décembre 2009

Bonjour, j'aimerais faire ce petit bout de code simple :

Code:

Sub AjouterHistoire()

    Sheets("Histoire").Select
    Cells(14, 2).Select
    Selection.EntireRow.Insert
    Sheets("En_Cours").Select
    
End Sub

Avec un With Sheets, j'ai essayé ça :

Code:

Sub AjouterHistoire()

    With Sheets("Histoire")
    .Cells(14, 2).Select
    .Selection.EntireRow.Insert
    End With
    
End Sub

Sans succès : Erreur 1004 (la méthode Select de la classe Range a echoué)

Any idea ? Merci

Dull · 14 Décembre 2009

Re : Ajouter ligne avec With

Salut dureiken, le Forum

pas sur d'avoir compris mais essaye ça

Code:

Sub AjouterHistoire()
    With Sheets("Histoire")
        .Cells(14, 2).EntireRow.Insert
    End With
End Sub

parfois les select jouent de mauvais tours

EDITION:

Hulk à dit:
...Oups, pardon Dull, suis en retard ce matin bonne journée !

T'inquiète GéantVert, je comprend... il fait froid, il fait gris, il fait pas beau... Tout l'inverse d'ici quoi

Bonne Journée

dureiken · 14 Décembre 2009

Re : Ajouter ligne avec With

Trop rapide merci

Hulk · 14 Décembre 2009

Re : Ajouter ligne avec With

Bonjour,

Comme ceci

Code:

    With Sheets("Histoire")
    .Cells(14, 2).EntireRow.Insert
    End With

Cdt, Hulk.

Oups, pardon Dull, suis en retard ce matin bonne journée !

Ajouter ligne avec With

dureiken

XLDnaute Junior

Dull

XLDnaute Barbatruc

dureiken

XLDnaute Junior

Hulk

XLDnaute Barbatruc

Discussions similaires