Rows(n).Insert fonctionne avec Excel 2003, bug sous 2000

Salut le Forum!

Une petite question : j'ai créé une procédure assez fouillée pour mon service, mais ma macro bug sur les PC des collègues qui bossent sur Windows 2000 professionnel, avec Excel 2000.

Le débug me souligne ma ligne ".Rows(3).Insert" dans cette partie de mon code :

Sheets("base").Visible = True
      Sheets("base").Unprotect Password:="base"
    ActiveSheet.Unprotect
    Sheets("saisie").Range("L2:x2").Copy
  With Sheets("base")
      .Rows(3).Insert
      With .Range("A3")
        .PasteSpecial Paste:=xlPasteValues
        .PasteSpecial Paste:=xlPasteFormats
      End With

Y a t-il une autre commande sous 2000 qui permet d'insérer une ligne?

j'espère que c'est la seule commande qui diffère avec la version 2003.

Merci beaucoup pour votre aide!

Bonjour,

Si tu remplaçais par ce code, ça passe ?

.Range("3:3").Insert

Sinon, essaye de nous donner le code complèt. Il y aura sûrement quelqu'un pour tester avec la version 2000. Donne-nous aussi le message d'erreur au moment de débogage.

Bonsoir à tous,

Salut Raja,

Range("a3").EntireRow.Insert

Claude.

édit: pourquoi tu déprotège 2 fois ?

Salut à tous, Salut Claude, Salut Raja

Claude, j'ai essayé ton code, mais le soucis, c'est qu'il m'insert bien la ligne dans la feuille désirée ("base"), mais aussi, dans la feuille source!!, et je n'arrive pas savoir pourquoi.

Je n'ai plus le message d'erreur,

je sais qu'il me soulignait en jaune ma phrase d'insert.

voilà un fichier très simple qui ressemble à ce que j'ai fais. J'ai tout coupé, mais l'essentiel est là.

https://www.excel-pratique.com/~files/doc/AAJQBessai_procedure.xls

regardez mon code si vous voyez des choses qui ne peuvent pas aller avec Excel 2000

merci beaucoup!!

Bonjour à tous,

Pourquoi insérer ?

ici, on mets à la suite

Sub Valid()
    Range("saisie!D11:H11").Copy
        With Sheets("base").Range("A65536").End(xlUp)(2)
          .PasteSpecial Paste:=xlPasteValues
          .PasteSpecial Paste:=xlPasteFormats
        End With
    Application.CutCopyMode = False
End Sub

dis si çà te vas

Claude.

Merci claude pour ton aide,

je regarde ça lundi, je pars en Weekend,

Salut! 8)