dureiken XLDnaute Junior 14 Décembre 2009 #1 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
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 XLDnaute Barbatruc 14 Décembre 2009 #2 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 ! Cliquez pour agrandir... 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 Dernière édition: 14 Décembre 2009 Vote positif 0 Vote négatif
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 ! Cliquez pour agrandir... 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 XLDnaute Junior 14 Décembre 2009 #3 Re : Ajouter ligne avec With Trop rapide merci Vote positif 0 Vote négatif
Hulk XLDnaute Barbatruc 14 Décembre 2009 #4 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 ! Vote positif 0 Vote négatif
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 !