Discussion :

[lachappe]

Bonsoir

Dans un tableau situé dans une feuille appelée "classe" je veux remplir un tableau où seront notés les 3 meilleurs de toutes les classes. Les résultats sont dans une autre feuille nommé "toutes"

J'ai donc crée le code suivant pour un niveau et le sexe F. Problème dans le tableau seule la deuxième fonctionne, pour la première et la troisième rien ne s'écrit

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Sub class_niveau()
 
Application.ScreenUpdating = False
Sheets("toutes").Select
Range("A1").Select
 
Do
 
ActiveCell.Offset(1, 0).Select
num_classement = ActiveCell.Value
 
If ActiveCell.Value = "" Then
Sheets("Classe").Select
Application.ScreenUpdating = True
Exit Sub
End If
 
If num_classement = 1 Then ActiveCell.Offset(0, 4).Select
    sexe = ActiveCell.Value
    If sexe = "F" Then ActiveCell.Offset(0, 1).Select
        n_classe = ActiveCell.Value
        If n_classe = "3EMEA" Or n_classe = "3EMEB" Or n_classe = "3EMEC" Or n_classe = "3EMED" Then
        ActiveCell.Offset(0, -3).Select
        nom = ActiveCell.Value
        ActiveCell.Offset(0, 1).Select
        prenom = ActiveCell.Value
        Range("Classe!R13").Value = nom & "     " & prenom
 
End If
If num_classement = 2 Then ActiveCell.Offset(0, 4).Select
    sexe = ActiveCell.Value
    If sexe = "F" Then ActiveCell.Offset(0, 1).Select
        n_classe = ActiveCell.Value
        If n_classe = "3EMEA" Or n_classe = "3EMEB" Or n_classe = "3EMEC" Or n_classe = "3EMED" Then
        ActiveCell.Offset(0, -3).Select
        nom = ActiveCell.Value
        ActiveCell.Offset(0, 1).Select
        prenom = ActiveCell.Value
        Range("Classe!R14").Value = nom & "     " & prenom
End If
If num_classement = 3 Then ActiveCell.Offset(0, 4).Select
    sexe = ActiveCell.Value
    If sexe = "F" Then ActiveCell.Offset(0, 1).Select
        n_classe = ActiveCell.Value
        If n_classe = "3EMEA" Or n_classe = "3EMEB" Or n_classe = "3EMEC" Or n_classe = "3EMED" Then
        ActiveCell.Offset(0, -3).Select
        nom = ActiveCell.Value
        ActiveCell.Offset(0, 1).Select
        prenom = ActiveCell.Value
        Range("Classe!R15").Value = nom & "     " & prenom
End If
 
Loop
 
End Sub

petite précision si j'enlève les deux dernières conditions la première s'exécute.
De même si j'enlève les deux premières, la troisième s’exécute

[Philippe Tulliez]

Bonjour,
Difficile de déchiffrer tes lignes de codes sans savoir comment sont organisées tes données.
Il serait intéressant que tu détailles la manière dont sont structurées les feuilles [Classe] et [Toutes] (Etiquettes de colonnes etc ...)

[gFZT82]

Bonjour,

Ton problème vient de l’utilisation des Select et autres Activecell pour effectuer le traitement des données. Dans ta boucle, tu ne te repositionnes pas correctement après chaque itération.
Voici ton code après correction de ce positionnement

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Sub class_niveau()
Dim CelDeb As Range
    Application.ScreenUpdating = False
    Set CelDeb = Sheets("toutes").Range("A1")
    Sheets("toutes").Activate
    CelDeb.Select
    Do
        CelDeb.Offset(1, 0).Select
        num_classement = ActiveCell.Value
 
        If ActiveCell.Value = "" Then
            Sheets("Classe").Select
            Application.ScreenUpdating = True
            Exit Sub
        End If
 
        If num_classement = 1 Then ActiveCell.Offset(0, 4).Select
        sexe = ActiveCell.Value
        If sexe = "F" Then ActiveCell.Offset(0, 1).Select
        n_classe = ActiveCell.Value
        If n_classe = "3EMEA" Or n_classe = "3EMEB" Or n_classe = "3EMEC" Or n_classe = "3EMED" Then
            ActiveCell.Offset(0, -3).Select
            nom = ActiveCell.Value
            ActiveCell.Offset(0, 1).Select
            prenom = ActiveCell.Value
            Range("Classe!R13").Value = nom & "     " & prenom
        End If
 
        If num_classement = 2 Then ActiveCell.Offset(0, 4).Select
        sexe = ActiveCell.Value
        If sexe = "F" Then ActiveCell.Offset(0, 1).Select
        n_classe = ActiveCell.Value
        If n_classe = "3EMEA" Or n_classe = "3EMEB" Or n_classe = "3EMEC" Or n_classe = "3EMED" Then
            ActiveCell.Offset(0, -3).Select
            nom = ActiveCell.Value
            ActiveCell.Offset(0, 1).Select
            prenom = ActiveCell.Value
            Range("Classe!R14").Value = nom & "     " & prenom
        End If
 
        If num_classement = 3 Then ActiveCell.Offset(0, 4).Select
        sexe = ActiveCell.Value
        If sexe = "F" Then ActiveCell.Offset(0, 1).Select
        n_classe = ActiveCell.Value
        If n_classe = "3EMEA" Or n_classe = "3EMEB" Or n_classe = "3EMEC" Or n_classe = "3EMED" Then
            ActiveCell.Offset(0, -3).Select
            nom = ActiveCell.Value
            ActiveCell.Offset(0, 1).Select
            prenom = ActiveCell.Value
            Range("Classe!R15").Value = nom & "     " & prenom
        End If
        Set CelDeb = CelDeb.Offset(1, 0)
    Loop
End Sub

Voici un autre code après suppression des Select et Activecell

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
Sub class_niveau2()
Dim Cel As Range, MaPlage As Range
Dim WsS As Worksheet, WsC As Worksheet
Dim num_classement As Integer
Dim Sexe As String, nom As String, prenom As String, n_classe As String
    Set WsS = Worksheets("toutes")
    Set WsC = Worksheets("Classe")
    Application.ScreenUpdating = False
    Set MaPlage = WsS.Range("A2:A" & WsS.Range("A" & Rows.Count).End(xlUp).Row)
    For Each Cel In MaPlage
        num_classement = Cel.Value
        Sexe = Cel.Offset(0, 4)
        If Sexe = "F" Then
            n_classe = Cel.Offset(0, 5)
            If n_classe = "3EMEA" Or n_classe = "3EMEB" Or n_classe = "3EMEC" Or n_classe = "3EMED" Then
                nom = Cel.Offset(0, 2)
                prenom = Cel.Offset(0, 3)
                WsC.Range("R" & num_classement + 12).Value = nom & "     " & prenom
            End If
        End If
    Next Cel
End Sub

Cordialement.

[lachappe]

Bonjour gFZT82

j'ai essayé tes deux codes. Le premier fonctionne parfaitement et le deuxième me donne tout le classement alors que je veux que les trois premiers.

A propos de ta première version :
- j'avais cru lire sur internet qu'il ne fallait pas mélanger le .activate avec le .select : qu'en est il réellement ?

- A la fin de la boucle tu rajoutes

Code :

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

Set CelDeb = CelDeb.Offset(1, 0)

or au début de la boucle il y a

Code :

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

CelDeb.Offset(1, 0).Select

. Et là j'ai du mal à comprendre car pour moi il doit descendre au total de 2 lignes au lieu de 1

- Pour le reste du code je ne me suis pas trompé même si cela fait beaucoup de ligne de commande, il va falloir que je trouve de bonne référence pour assimiler tout ce langage

[gFZT82]

Bonjour,

A propos de ta première version :
- j'avais cru lire sur internet qu'il ne fallait pas mélanger le .activate avec le .select : qu'en est il réellement ?

Tu as dû surtout lire qu’il fallait éviter de les utiliser (autant que faire se peut).

j'ai du mal à comprendre car pour moi il doit descendre au total de 2 lignes au lieu de 1

Avant de rentrer dans la boucle, on déclare que CelDeb va représenter la position initiale, soit A1.
On se positionne sur la cellule initiale avec CelDeb.Select.
Ensuite, on rentre dans la boucle et avec CelDeb.Offset(1, 0).Select , on se positionne donc sur la cellule A2.
On effectue le traitement et après avoir butiné de cellule en cellule, on se trouve positionné à un endroit quelconque de la feuille.
Pour se repositionner correctement avant une nouvelle itération, on utilise Set CelDeb = CelDeb.Offset(1, 0) qui permet de déclarer que la position initiale est modifiée et décalée d’une ligne par rapport à la précédente. Cette position initiale devient donc A2.
Le traitement suivant va alors concerner CelDeb.Offset(1, 0), c'est-à-dire A3.

Le deuxième code me donne tout le classement alors que je veux que les trois premiers.

Tu peux limiter le nombre de classement en ajoutant une condition. Par exemple :

Code :

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

If Sexe = "F" And num_classement <= 3 Then

Tu auras compris que je te conseilles vivement de privilégier ce second code.

Cordialement.

[lachappe]

Avant de rentrer dans la boucle, on déclare que CelDeb va représenter la position initiale, soit A1.
On se positionne sur la cellule initiale avec CelDeb.Select.
Ensuite, on rentre dans la boucle et avec CelDeb.Offset(1, 0).Select , on se positionne donc sur la cellule A2.
On effectue le traitement et après avoir butiné de cellule en cellule, on se trouve positionné à un endroit quelconque de la feuille.
Pour se repositionner correctement avant une nouvelle itération, on utilise Set CelDeb = CelDeb.Offset(1, 0) qui permet de déclarer que la position initiale est modifiée et décalée d’une ligne par rapport à la précédente. Cette position initiale devient donc A2.
Le traitement suivant va alors concerner CelDeb.Offset(1, 0), c'est-à-dire A3

Ok là c'est clair

Tu auras compris que je te conseilles vivement de privilégier ce second code.

oui puisse que le code est plus court. Je vais essayer de comprendre la commande

Code :

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

MaPlage = WsS.Range("A2:A" & WsS.Range("A" & Rows.Count).End(xlUp).Row)

et tenter de le modifier pour appliquer çà au sexe masculin et pour 4 niveaux différents.

Une fois fait mon classeur serait près pour le cross de mon établissement

Si je patauge je viendrai vous solliciter à nouveau

cordialement