problème de tri

**arthur83fr** · 01/10/2011, 18h05

bonjour,
apres deux jours de recherche sur les forums et une nuit blanche a essayer de comprendre, je sèche.

apres un test de presence du champ NomPrenom, si présence je passe la routine sinon j'ecris les données dans la feuille clients

quelqu'un peut il m'expliquer pourquoi le code joint fonctionne mais que si je fait appel a sub TriAlpha cela ne marche pas

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
' test pour eviter les doublons dans onglet "Clients"
 
 
Dim Cellule As Range
Dim TestNomPrenom As String
 
TestNomPrenom = TextBox2Nom.Value + TextBox3Prenom.Value
 
With Worksheets("Clients").Range("K3:K65536")
    Set Cellule = .Find(TestNomPrenom, Lookat:=xlWhole)
    If Cellule Is Nothing Then
        'MsgBox ("pas trouvé")
        Call EntreeClient
        Range("B3:K3000").Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("C3"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
 
    End If
End With
 
'Fermeture de la UserForm  les choix et les diffrentes saisies sont perdues effacées
Unload UserForm1
 
' appel procedure de tri de la feuille "Clients"
'Call TriAlpha
 
' affichage onglet Acceuil
Worksheets("Acceuil").Select
 
End Sub
Sub TriAlpha()
 
With Worksheets("Clients")
 
    Range("B3:K3000").Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("C3"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
 
End With
 
End Sub

merci pour vos eclaircissements

**SfJ5Rpw8** · 01/10/2011, 18h14

j'ai pas relu tout le code mais lorsque tu utilise with ..:

Code :

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

With Worksheets("Clients")

ensuite toutes les variables qui doivent avoir ce "with" comme racine doit commencer par un point .
donc tous les range de ton tri :

Code :

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

.Range("B3:K3000").Sort Ke.....

**arthur83fr** · 01/10/2011, 18h35

bonjour et merci pour la reponse
mais cela ne fonctionne toujours pas quand je fais appel a la Sub TriAlpha
je continu a chercher de mon coté
merci pour vos futures réponses

**SfJ5Rpw8** · 01/10/2011, 18h37

Envoyé par arthur83fr

...mais cela ne fonctionne toujours pas quand je fais appel a la Sub TriAlpha...

et "cela" veut dire quoi ?

**arthur83fr** · 01/10/2011, 19h05

bonjour,

alors la ligne 14 je la passe en commentaire
j'active le call TriAlpha
je lance le masque de saisie, je le valide et la cela m'inscrit les données dans la feuilles "Clients" mais sans les trier en alphabetique

si ligne 14 active et call TriAlpha en commetaire cela fonctionne : il y a bien tri alphabetique dans feuille "clients" apres ajout des données.

j'ajoute que j'ai bien mis des . devant chaque Range

**SfJ5Rpw8** · 01/10/2011, 19h11

désolé je comprends toujours pas

pour ta ligne 14 tu as oublié de préciser sur quel classeur et sur quelle feuille devait agir ton tri ... Pour éviter les erreurs il faut toujours préfixer les "range.." par le classeur et la feuille concernée... (un with peu aider à faire cela ..)