Discussion :

[nb_fr31]

salut tout le monde
mon prob c'est que mon me génère cette erreur
object dosen't support this property or méthod

voila mon code
enfin je veu déplacer des cellules d'une colonne à une autre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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

[Drost]

Hello,

Dans ta boucle for tu ne mets pas ton "step" cela peut affecter ta macro,
Sinon peut etre que cela vien de l'utilisation de ta fonction last line que tu devrais peut etre incorporer directement dans ta macro....

Tchuss Drost

[nb_fr31]

merci
mais comme je suis débutant j'arrive pas à comprendre ta réponse
plus de déttaille svp

[Drost]

Reuh!

For i=0 to lastline step 1 (cela te donne l'incrementation de ta boucle)

Par contre je ne sais pas si ton code pour faire tourner ta fonction dans ta macro est correcte...
Je pense que c'est peut etre mieux d'ecrire directement dans ta macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

lastline = Range("A65536").End(xlUp).Row

Tchuss

Drost

[nb_fr31]

donc dans ce cas la j'ai pas besoin de la fonction pour récupéré la dernière ligne de ma feuille,en gros mon but c'est lire l'indice de la ligne qui se trouve dans la première colonne et affecter l'intitulé de ligne à une colonne selon l'indice :ind 2--- col 4, 3-----col5 ......
alos es que mon code est bon

[Drost]

Tes conditions semblent correct. Si j'ai compris, tu vérifie la valeur dans la colonne A et en fonction de cette valeur tu copie cette valeur dans une colonne mais toujours sur la même ligne?

Il n'aurait pas été plus simple de passer par une fonction si dans ta feuille

=si(A1 ="1"; A1; "") et faire ca dans toutes tes colonnes?