Discussion :

[kikim78]

Bonjour Forum

Je n'arrive pas à localiser l'erreur sur la macro suivante:


Pourquoi les lettres autres que P, T, M, O sont prisent en considération
Crdt

[Pierre Fauconnier]

Bonjour

C'est plus productif de placer le code de la macro sur le forum, plutôt que de placer ton fichier en pièce jointe.

Il faudrait détailler ce que tu souhaites réaliser. Voici ta macro:

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
Sub copie()
Dim plage As Range, cel As Range
Dim dlg As Integer
Set plage = Range("C2:C" & Range("C65536").End(xlUp).Row)
For Each cel In plage
Select Case cel.value
Case Is = "T": course = "Trot"
Case Is = "O": course = "Obstacle"
Case Is = "P": course = "Plat"
Case Is = "M": course = "Monte"
End Select
dlg = Worksheets(course).Range("A65536").End(xlUp).Row + 1
Range(Cells(cel.Row, 1), Cells(cel.Row, 7)).Copy Worksheets(course).Range("A" & dlg)
Next
Sheets("Courses").Range("A2:G" & Range("A65536").End(xlUp).Row).ClearContents
End Sub

Je suppose que tu souhaites que

Code :

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

1
2
dlg = Worksheets(course).Range("A65536").End(xlUp).Row + 1
Range(Cells(cel.Row, 1), Cells(cel.Row, 7)).Copy Worksheets(course).Range("A" & dlg)

ne soit réalisé que pour les lettres T, O, P, M

Dès lors, si c'est cela, tu peux utiliser ceci

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
Sub copie()
Dim plage As Range, cel As Range
Dim dlg As Integer
Set plage = Range("C2:C" & Range("C65536").End(xlUp).Row)
For Each cel In plage
Select Case cel
    Case "T": course = "Trot"
    Case "O": course = "Obstacle"
    Case "P": course = "Plat"
    Case "M": course = "Monte"
    Case Else: course = ""
End Select
if course<>"" then
    dlg = Worksheets(course).Range("A65536").End(xlUp).Row + 1
    Range(Cells(cel.Row, 1), Cells(cel.Row, 7)).Copy
    Worksheets(course).Range("A" & dlg)
end if
Next
Sheets("Courses").Range("A2:G" & Range("A65536").End(xlUp).Row).ClearContents
End Sub

Tu peux aussi te passer de is = dans le case, ce n'est pas nécessaire.

Note que je n'ai pas vu la déclaration de Course. Si tu travailles sans la déclaration explicite de tes variables, tu devras affronter pas mal de problèmes de débogage un jour ou l'autre.

[kikim78]

Re
Merci Pierre Fauconnier, mais ya un probleme,
quand je clique sur sauver c'est la premiere ligne qui est simplement selectionnée! est un message d'erreur s'affiche:

Erreur d'execution '438'
Proprieté ou methode non gérée par cet objet

Voir la ligne soulignée qui est en jaune en debogage:

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
Sub copie()
Dim plage As Range, cel As Range
Dim dlg As Integer
Set plage = Range("C2:C" & Range("C65536").End(xlUp).Row)
For Each cel In plage
Select Case cel
    Case "T": course = "Trot"
    Case "O": course = "Obstacle"
    Case "P": course = "Plat"
    Case "M": course = "Monte"
    Case Else: course = ""
End Select
If course <> "" Then
    dlg = Worksheets(course).Range("A65536").End(xlUp).Row + 1
    Range(Cells(cel.Row, 1), Cells(cel.Row, 7)).Copy
    Worksheets(course).Range ("A" & dlg)
End If
Next
Sheets("Course").Range("A2:G" & Range("A65536").End(xlUp).Row).ClearContents
End Sub

J'ai changé le nom de la feuille courses vers course
Crdt

[Pierre Fauconnier]

Désolé. Il y a un _ qui s'est perdu en route.

Les bonnes lignes sont

Code :

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

1
2
Range(Cells(cel.Row, 1), Cells(cel.Row, 7)).Copy _
Worksheets(Course).Range ("A" & dlg)

[kikim78]

Re

Merci Pierre

C'est réglé le probleme, sauf que!
Si je voulais que les lignes autres que PTMO ne disparaissent pas mais restent dans la feuille course?

Possible?

[Pierre Fauconnier]

Tu as une ligne avec ClearContents en dehors de la boucle. Il faudrait la placer à l'intérieur de For... Next, juste avant le Next et l'adapter pour qu'elle ne nettoie que les lignes qui contiennent T,O, P ou M...

Attention que ClearContents vide les lignes, mais ne les supprime pas...