mon prog génère l'érreur suivante

object dosen't support this proprety or méthod


mon code est
Function GetLastLine(aColumn As String) As Integer

' return the last line of column specified by aColumn

' example: LastLine = GetLastLine("A" )

GetLastLine = Range(aColumn & "65536" ).End(xlUp).Row

End Function

Sub Procédure()
Dim lastline As Long
Sheet1("Feuil1" ).Select
lastline = GetLastLine("A" )
Dim Index As Long
For Index = 2 To lastline
If Cells(Index, 1).Value = 2 Then
Cells(Index, 4) = Cells(Index, 3)
ElseIf Cells(Index, 1).Value = 3 Then
Cells(Index, 5) = Cells(Index, 3)
ElseIf Cells(Index, 1).Value = 4 Then
Cells(Index, 6) = Cells(Index, 3)
ElseIf Cells(Index, 1).Value = 5 Then
Cells(Index, 7) = Cells(Index, 3)
ElseIf Cells(Index, 1).Value = 6 Then
Cells(Index, 8) = Cells(Index, 3)
ElseIf Cells(Index, 1).Value = 7 Then
Cells(Index, 9) = Cells(Index, 3)
Else
Cells(Index, 3) = Cells(Index, 3)
End If
Next



End Sub

Va lire le règlement, et mets ton premier message en conformité.
J'aurai le plaisir de virer ce message.

Et quand tu as une erreur dans un programme, c'est important de dire à quelle ligne l'erreur se produit.

Bon...
Sur laquelle des deux procédures as tu l'erreur? Je suppose que c'est sur la première (ta fonction Getlastline).
Ensuite, pourquoi faire toute la feuille alors qu'il "suffirait" de boucler jusqu'à une case vide... Typiquement

EDIT: va falloir que je me remette aux macros moi...

Le destin a voulu que magellan ressuscite des coups de JeFaisPeurALaFoule

Cette façon de faire n'est pas du tout idiote, bien au contraire.
Ton code ne fonctionne que s'il n'y a pas de trous.

Il y a une différence entre "jusqu'à la prochaine ligne vide" (en excluant implicitement cette dernière ligne) et "jusqu'à la dernière ligne non vide" (en l'incluant implicitement) quitte à ce qui y ait des "trous".

Nous sommes d'accord. Je partais du principe qu'en général on évite les lignes vides dans les feuilles excel Sinon en effet c'est plus propre de parcourir toute la feuille.

EDIT: Signature mise à jour

Et non.
Regarde bien ce code :

On va à la dernière ligne (65536) et on remonte (xlUp) d'un coup à la dernière (End) cellule non vide. Donc on ne parcourt pas toute la feuille, mais bien toute la plage utile.

Allez, pour le plaisir :

----------------------------------
En attendant, on n'a toujours pas de nouvelles de Ninou !