classement

[mathieu]

bonjour les exceliennes et exceliens

voilà, mon petit problème , sinon, je ne vous derangerais pas .
j'ai ajouté une feuille supplémentaire , j'ai une macro qui pete les plombs , sur la première feuille classement general, bouton vert , quand on click dessus , erreur 1004 , et quand je débogue ,il ajoute deux pages que je n'ai pas besoin .
Alors , si , une personne peut résoudre ce problème , ça serait sympa de votre part .
amitiés
au plaisir de vous lire .

 

[Zon]

Salut,

Il y a rien dans ton module 111 si je ne me trompe pas ???

A+++

 

[mathieu]

bonjour ZON

je te remercie d'avoir regarder mon fichier , mais , la macro s'appelle classement module 1

 

[Zon]

Salut,

Excuses moi mais je n'avais pas fait attention tu as de boutons de couleur verte, tu as la réponse dans ta question "J'ai rajouté une feuille"=> tu as cette boucle à changer

For j = 4 To ThisWorkbook.Sheets.Count 'il faut démarrer à 5


A+++

 

[hervé]

bonjour le forum
bonjour mathieu,

j'ai rapidement regardé l'endroit ou cela bug...
J'ai pas tout suivi, mais j'ai l'impression que tu essaye de trier une seule case...

as tu vérifié que tu selectionne bien une plage de plusieurs lignes pour la trier??

Esperant t'avoir aidé,

Hervé

 

[Zon]

Re salut Hervé,

Hervé tu me fais penser pour éviter des bugs avec le find

tu peux faire un test Matthieu du genre

Set indice = .Find("BENJAMIN", LookIn:=xlValues)

if not indice is nothing then
'balabla

Tant qu'on y est tu peux éviter des boucles de trop en rajoutant une gestion d'erreur
dim L as Long
'...
end select
On Error Resume Next
Set F = Sheets(CStr(val))
If Err <> 0 Then
Set F = Sheets.Add(, Sheets(Sheets.Count))
With F
.Name = val
.Range("A1:H1") = F1.Range("A3:H3").Value
.Range("I1") = "CATEGORIE"
End With
End If
On Error GoTo 0
With F
L = .Range("C65536").End(xlUp).Row + 1 'Recup de la 1 ere ligne vide
.Range("A" & L, "H" & L).Value = Sheets(1).Range("A" & val.Row, "H" & val.Row).Value
.Range("I" & L).Value = Cat
End With


A+++

 

[Zon]

Re,

Oups

Rajoutes
dim F as worksheet,F1 as worksheet

set F1=sheets("classement general")

 

[mathieu]

re-

je remercie Hervé et Zon pour l'aide que tu m'as apporté pour faire ce porgramme que j'attends depuis un certain temps , j'a iessayé de comprendre votre systeme , mais cela ne fonctionne pas encore , je penses qu'il faudrait me le rectifier directement sur le fichier mère pour voir que celà fonctionne correctement , j'ai vu que vous deux n vous vous êtes compris , mais un gars comme moi, je recopie sur cetains programmes et j'essayes que celà colle , mais quelques fois je ne sui pas assez doué pour resoudre les problèmes .

merçi de votre aide et me renvoyer si possible avec le fichier .
ça serait tres gentils de votre part , sans pousser le bouchon trop loin .;-))
mathieu