Erreur "sub ou fonction" non définie - surlignage Row

Bonjour à toutes et tous,

Voilà j'ai un problème que je n'arrive pas à résoudre. Tout d'abord voici le code:

Sub inserer()

    For a = Cells(1, 1).End(xlDown).Row To 2 Step -1
        Row(a + 1).Insert
        Cells(a + 1, 1).Value = Cells(1, a).Value
    End

End Sub

Lorsque je compile, une erreur apparait "erreur de compilation - sub ou fonction non définie" et il me surligne le Row de Row(YY + 1).Insert en bleu.

Je ne comprends pas cette erreur et n'arrive pas à la corriger.

En vous remerciant d'avance.

Bonjour,

modifie peut être comme suit :

Rows(a + 1).Insert

bon après midi

@+

Merci de ta réponse.

Malheureusement j'avais déjà essayé. Après cette modification, il exigeait un "Next" après le For mais une fois mis, cela fait une erreur 1004 - erreur définie par l'application ou par l'objet.

Peut-être qu'il manque une déclaration de quelque chose avant la boucle...

Si tu as une autre explication, je prends

Re,

oui, avec un for il faut un "next", et enlève le "end" modifie comme suit :

For a = Cells(1, 1).End(xlDown).Row To 2 Step -1
        Rows(a + 1).Insert
        Cells(a + 1, 1).Value = Cells(1, a).Value
Next

Merci, ça a corrigé l'erreur sur la deuxième ligne mais maintenant il me surligne en jaune avec toujours la même erreur 1004 cette ligne:

Cells(a + 1, 1).Value = Cells(1, a).Value

Je ne vois pas du tout quoi changer, la syntaxe me paraissait correcte

Bonjour,

Tu es sûr de bien vouloir te servir de a en tant que colonne dans la partie droite ?

Il te faut autant de colonnes que de lignes. Selon la version du fichier ça peut coincer à différentes valeurs (256 pour un .xls)

eric

Il me faut les valeurs de la première ligne donc oui je pense que c'est a.

Dans mon fichier, j'ai bien autant de lignes que de colonnes

Ca y est ça fonctionne, j'ai juste fermé puis ré-ouvert Excel c'est très bizarre.

Merci à vous pour votre aide.

Bonne journée

Rechercher des sujets similaires à "erreur sub fonction definie surlignage row"