Macro Basic Calc: problème de boucle

Résolu
Mycrobe -  
 Mycrobe -
Bonjour,
Voilà; j'essaye de faire une fonction de tri avec des boucle, il recherche un valeur, et me copie toute la ligne dans ma seconde feuille.. et il ne me copie toujours que la 1ere ligne.... Même si j'enlève la recherche de le valeur 4 (valeur de ma 1ere ligne), ma boucle intermediaire qui me permet de copier la ligne du début à la fin marche, mais pas celle verticale de la recherche.

voila ma macro... si quelqu'un a une suggestion: (c est le nombre de lignes écrites et donc a tester)

Sub Exploitation

dim compteur as integer, CptCol as integer
dim z as integer, x as integer, b as integer, c as integer

c= Cellf("Feuille1",12,1).value
b=c+4

cptCol=5
compteur=4

For compteur= 4 To b

If Cellf("Feuille1",24,compteur).value=5 then
x=Cellf("feuille2",1,100).value +1
For cptCol=5 to 32
z= cptCol-3
Cellf("Feuille2",z,x).string=Cellf("Feuille1",CptCol,compteur).string
next
endif
Next


cptCol=5
compteur=4

For compteur=4 to b

If Cellf("Feuille1",24,compteur).value=4 then
x=Cellf("feuille2",1,100).value +1
For cptCol=5 to 32
z= cptCol-3
Cellf("Feuille2",z,x).string=Cellf("Feuille1",CptCol,compteur).string
next
endif
next

cptCol=5
compteur=4

For compteur= 4 to b

If Cellf("Feuille1",24,compteur).value=3 then
x=Cellf("feuille2",1,100).value +1
For cptCol=5 to 32
z= cptCol-3
Cellf("Feuille2",z,x).string=Cellf("Feuille1",CptCol,compteur).string
next
endif
next

cptCol=5
compteur=4

For compteur= 4 to b

If Cellf("Feuille1",24,compteur).value=2.5 then
x=Cellf("feuille2",1,100).value +1
For cptCol=5 to 32
z= cptCol-3
Cellf("Feuille2",z,x).string=Cellf("Feuille1",CptCol,compteur).string
next
endif
next

cptCol=5
compteur=4

For compteur= 4 to b

If Cellf("Feuille1",24,compteur).value=2 then
x=Cellf("feuille2",1,100).value +1
For cptCol=5 to 32
z= cptCol-3
Cellf("Feuille2",z,x).string=Cellf("Feuille1",CptCol,compteur).string
next
endif
next

cptCol=5
compteur=4

For compteur= 4 to b

If Cellf("Feuille1",24,compteur).value=1 then
x=Cellf("feuille2",1,100).value +1
For cptCol=5 to 32
z= cptCol-3
Cellf("Feuille2",z,x).string=Cellf("Feuille1",CptCol,compteur).string
next
endif
next
cptCol=5
compteur=4

For compteur= 4 to b

If Cellf("Feuille1",24,compteur).value=0 then
x=Cellf("feuille2",1,100).value +1
For cptCol=5 to 32
z= cptCol-3
Cellf("Feuille2",z,x).string=Cellf("Feuille1",CptCol,compteur).string
next
endif
next

End Sub
A voir également:

2 réponses

Réponse 1 / 2
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bon, j'ai pas ton classeur mais d'après ce que je comprend de ta macro je pense que je suis pas loin. 
Sub Copie()
Dim Depart As Worksheet
Dim Arrivee As Worksheet
Dim Lig As Long, FinLig As Long
Dim LigDest As Long
Dim Cherche As Variant
Dim TB,e as byte, Critere
    Set Depart = Sheets("Feuil1")
    Set arrivée = Sheets("Feuil2")
    TB = Array(5, 4, 3, 2.5, 2, 1, 0)
    FinLig = Depart.Range("X65536").End(xlUp).Row 'Colonne 24
    LigDest = 2 '1ère ligne où copier
    For e = 0 To 6
        Critere =TB(e)
        For i = 4 To FinLig 'va jusque la fin du fichier
            'Vérifie si la colonne 24 (X) = critere
            If Depart.Cells(Lig, 24) = Critere Then
                Depart.Range(Cells(Lig, 3), Cells(Lig, 29)).Copy Arrivee.Cells(LigDest, 5)
                LigDest = LigDest + 1
            End If
        Next i
    Next e
End Sub

Le tout en une seule boucle !
Tu dis
EDIT: CORECTION DU Critere
1
Mycrobe
 
Ah, oui en m'inspirant de ca, je peux simplifier largement ma macro...
En tout cas, merci beaucoup de ton aide :-)
0
Réponse 2 / 2
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour,
sans aller plus loin !!!
c= Cellf("Feuille1",12,1).value C'est quoi ça ?
tu voudrais pas plutôt dire
c = Sheets("Feuill1").cells(12,1)
Voir déjà ça .
A+
0
Mycrobe
 
Euh c'est la même formule (qui a été simplifié en écriture par mes profs d'IUT)... Dsl (j'aurais du préciser)...
Non, en fait à force de galerer, j'ai compris que j'avais fait une très stupide erreur de ligne ce qui fait qu'il prenait c=1
(ouais je sais, jsuis pas cré cré maline)
0

Discussions similaires

Formule "SI" avec conditions multiples sous Libre Office
JeanBartassant -
JeanBartassant -

12 réponses
Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses