boucle for en vba

Version imprimable

boucle for en vba

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:

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

16/10/2007, 11h55
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
16/10/2007, 12h01
nb_fr31

merci
mais comme je suis débutant j'arrive pas à comprendre ta réponse
plus de déttaille svp
16/10/2007, 12h28
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:

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

Tchuss

Drost
16/10/2007, 12h47
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
16/10/2007, 13h30
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?
16/10/2007, 13h36
nb_fr31

non je copie pas cette valeur , je copie le titre de cette vaeur qui se trouve dans la colonne C, alors les indices dans la colonne A et les titres dans la colonne C, selon l'indice je décale le titre , si indice 2 le titre correspondant va etre dans la colonne 4, si ind3 le titre correspondant va etre décalé dans la collone 5 ......
16/10/2007, 13h46
Drost

Oki mais pour l'idée ca revient au meme pour les fonctions si()
Tu mets une formule par colonne =Si( A2= "2";C2;"")
Et tu mets ca en place dans chaque colonne "si la valeur de la premiere ligne est egale à l'intitulé de ma colonne alors je récupère l'intitulé sinon je reste vide."

Mais si tu prefere utiliser une macro, celle que tu as faites semble être correct^^
16/10/2007, 14h11
nb_fr31

pour ecrir ces fonctions ,directement le menu insert ---->fonction et j'aissaye d'ajouter des fonctions pour chaque colonne c'est sa
je vais essayer merci
16/10/2007, 14h15
Drost

Non directement dans tes cellules sans passez par de la programmation^^
Tu mets ces formules dans tes cellules !
16/10/2007, 15h47
nb_fr31

stp j'arrive pas à exécuter tout ce que tu ma donné , j'ai fais insert---fonction et j'ai ecriver la condition et sa na pas marché en cliquant sur entrer, comment faire our la condition soit sur toutes les ligne de la colonne
16/10/2007, 15h52
Drost

Tu selectionne ta cellule, Tu ecris ta formule, tu valide
Tu clic sur la cellule, et tu doubleclic sur le petit carré noir^^ pour faire descendre jusqu'en bas ta formule.
16/10/2007, 16h03
p_12345

tu as écris

Code:

Sheet1("Feuil1").Select

c'est pas plutôt

Code:

Sheets("Feuil1").Select

En tout ca ton code fonctionne chez moi après cette petite correction
16/10/2007, 17h53
nb_fr31

merci beaucoup le code marche avec la modif que ta fait mais mon but c'est de supprimer ces intitulé , autrement dit couper et pas coupier , mon code tourne mais il me laisse les intitulés dans leurs places avec une copie.

façon brutale : tu rajoute

Code:

Cells(Index, 3).value=""

partout
:D

Code:

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
37
38
39
40
41
42
43
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
Sheets("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)
              Cells(Index, 3).value=""
        ElseIf Cells(Index, 1).Value = 3 Then
              Cells(Index, 5) = Cells(Index, 3)
              Cells(Index, 3).value=""
        ElseIf Cells(Index, 1).Value = 4 Then
              Cells(Index, 6) = Cells(Index, 3)
              Cells(Index, 3).value=""
        ElseIf Cells(Index, 1).Value = 5 Then
              Cells(Index, 7) = Cells(Index, 3)
              Cells(Index, 3).value=""
        ElseIf Cells(Index, 1).Value = 6 Then
              Cells(Index, 8) = Cells(Index, 3)
              Cells(Index, 3).value=""
        ElseIf Cells(Index, 1).Value = 7 Then
              Cells(Index, 9) = Cells(Index, 3)
              Cells(Index, 3).value=""
        Else
              Cells(Index, 3) = Cells(Index, 3)
              Cells(Index, 3).value=""
          End If
    Next
 
 
 
End Sub

16/10/2007, 18h04
nb_fr31

génial , vraiment depuis ce matin je tourne
merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii beaucoup