Discussion :

[flear]

Salut a tous et a toutes,voila mon pb je dois remplir 744 cellules d un tableau excel en faisant plusieurs tri d affile....mais le pb c est que mon code est bcp bcp trop long...


Voila une des parties que je dois copie 744 fois

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Worksheets("requete_ticket_horaire").Activate
nomb = 0
 
For i = 2 To 65000
    If Cells(i, 8).Value Like "SLI8T1" And _
       Cells(i, 15).Value Like "7" And _
       Cells(i, 16).Value Like "1" Then
 
        nomb = nomb + 1
 
    End If
Next
Worksheets("SLI8T1").Activate
Range("C12") = nomb

c un tri pour savoir le nombre de "ticket"(pour mon cas) par jour et par heure...avez vous une simplification pour une la repetition?

[Invité]

Salut

Déjà, tu dis que tu dois remplir 744 cellules et tu boucle jusqu'à la 65000 lignes, il faut arréter avant pour cela voir la propiété End de l'objet Range pour t'arrêter avant

Starec

[ouskel'n'or]

Dans le même esprit que Starec, tu peux aussi tester la dernière ligne renseignée de ta feuille

Code :

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

1
2
    DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
    For i = 2 to DerniereLigne

[ouskel'n'or]

Tiens, ça ne simplifie pas le code mais c'est plus rapide

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub SimplifierPourRépéter()
    Dim LaPlage As Range, nomb As Integer, LaCell As Range
    Set LaPlage = Range(Cells(2, 1), Cells(Range("A1").SpecialCells(xlCellTypeLastCell).Row, 1))
    For Each LaCell In LaPlage
        nomb = nomb + (Cells(LaCell.Row, 8).Value Like "SLI8T1" And _
            Cells(LaCell.Row, 15).Value Like "7" And _
            Cells(LaCell.Row, 16).Value Like "1") * -1
    Next
    Worksheets("SLI8T1").Range("C12") = nomb
End Sub

Plus simple, j'ai pas
Tu dis
A+

[flear]

...ben ca simplifie pas vraiment mais c vrai que c utile^^

sinon voila une partie de ce que je dois remplir pour mieu vous montre

Pièce jointe 9382

en fait on m as dit(et je voulais avoir une confirmation^^)de declare une variable H pour heure,J pour jour,et de les incremente a chaque fois pour simplifie mùon code....mais j ai pas vraiment compris ce qu il voulait dire.....

[ouskel'n'or]

Si mon code n'est pas "simpliste", il fait ce que tu demandes mais est efficace. C'est en général ce qu'on demande au code. En outre, il t'évite les déclarations de variables H I J K L...
Quand je parlais de simplicité, je parlais pour la compréhension, pas de complexité du code.

en fait on m as dit(et je voulais avoir une confirmation^^)de declare une variable H pour heure,J pour jour,et de les incremente a chaque fois pour simplifie mùon code....mais j ai pas vraiment compris ce qu il voulait dire.....

Moi non plus.

NB - Si tu veux lier un fichier ou une image, fais-le ici. Pour un fichier, tu le Zip, pour une image, envoie-le en jpg. Ton fichier est inaccessible