Discussion :

[dmoluc]

Bonjour à tous

Je ne comprend rien à mon problème qui devrait pourtant être simple. A l'aide d'un UserForm, j'inscris des valeur dans un tableau qui me sert de base données.

Code :

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

1
2
3
4
5
6
7
 
'incrémentation de la désignation et du fournisseur dans la base de données
Sheets("Feuil3").Range("a500").End(xlUp).Offset(1, 0) = Me.Text2.Text
Sheets("Feuil3").Range("a500").End(xlUp).Offset(1, 1) = Me.Text1.Text
'incrémentation du Prix dans la BD
Sheets("Feuil3").Range("a500").End(xlUp).Offset(1, 2) = Me.Text3.Text
Sheets("Feuil3").Range("a500").End(xlUp).Offset(1, 3) = Me.List1.Text

Jusque là pas de problème, les valeurs sont inscrites sur la dernière ligne vide du tableau, mais quand je veux trier par ordre alphabétique, seul la valeur de la colonne A est déplacée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
ActiveWorkbook.Worksheets("Feuil3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil3").Sort.SortFields.Add Key:=Range("A2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil3").Sort
        .SetRange Range("A2:D500")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

J'utilise exactement le même code sur la Feuil2 avec d'autre données et cela fonctionne impeccable !

Je n'arrive pas à trouver mon erreur

Merci pour votre aide

Cordialement

[jijie]

ce n'est pas là? :

Code :

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

1
2
3
4
5
6
7
8
9
  Dim Der_Ligne As Integer
        Der_Ligne = Sheets("feuil3").Range("A65956").End(xlUp).Row + 1
 
 
 
   Sheets("feuil3").Cells(Der_Ligne, 1) = Me.Text2.Text
   Sheets("feuil3").Cells(Der_Ligne, 2) = Me.Text1.Text
   Sheets("feuil3").Cells(Der_Ligne, 3) = Me.Text3.Text
   Sheets("feuil3").Cells(Der_Ligne, 4) = Me.List1.Text

Cordialement,

[dmoluc]

Merci, le code fonctionne
Je ne comprend toujours pas pourquoi mon code ne fonctionnait pas ; bien sur en repartant à chaque fois du bas du tableau pour inscrire les valeurs, en plus avec des "offset", j'aurais pu faire plus simple, mais les valeurs étaient bien inscrites sur la même ligne sans pour autant être triées

Pour la feuil2 j'ai ce code tout aussi bancale puisque c'est le même , mise à part qu'il fonctionne

la seule différence est que je ne fait que des offset sur la ligne, mais pour la feuil3 j'avais fait pareille au début sans résultat

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
 
'incrémentation du nom et du matricule dans la base de données
Sheets("Feuil2").Range("A150").End(xlUp).Offset(1, 0) = Me.Text2.Text
Sheets("Feuil2").Range("B150").End(xlUp).Offset(1, 0) = Me.Text1.Text
'incrémentation du tarif horaire dans la BD
Sheets("Feuil2").Range("c150").End(xlUp).Offset(1, 0) = Me.Text3.Text
 
 
ActiveWorkbook.Worksheets("Feuil2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil2").Sort.SortFields.Add Key:=Range("A2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil2").Sort
        .SetRange Range("A2:C150")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Les mystères de l'informatique ?

Enfin encore merci pour ton aide

[Philippe Tulliez]

Bonjour,
Lorsque l'on programme des procédures pratiquement identiques (ici un tri sur une feuille), on a intérêt pour éviter les problèmes et surtout pour une maintenance aisée de créer une procédure (Sub ou Function) avec un ou plusieurs arguments comme par exemple Procédure de tri - Excel 2003-2010 .

[dmoluc]

Merci pour le conseil,
c'est vrai que j'ai la même procédure qui ce répète 2 fois, seule La plage de cellule et la feuille change. Comme le code avait l'air simple et pas trop long, je n'ai pas jugé utile de créer une fonction, mais maintenant je vois bien que ça m'aurait éviter des erreurs

merci encore à tous

[jijie]

Bonjour,

Dans ce code:

Code :

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

1
2
3
4
5
6
7
 
'incrémentation de la désignation et du fournisseur dans la base de données
Sheets("Feuil3").Range("a500").End(xlUp).Offset(1, 0) = Me.Text2.Text
Sheets("Feuil3").Range("a500").End(xlUp).Offset(1, 1) = Me.Text1.Text
'incrémentation du Prix dans la BD
Sheets("Feuil3").Range("a500").End(xlUp).Offset(1, 2) = Me.Text3.Text
Sheets("Feuil3").Range("a500").End(xlUp).Offset(1, 3) = Me.List1.Text

Tu vas chercher la dernière ligne vide de la colonne A !? Donc au défilement de ton code si on imagine que tu te situe sur la ligne 20 te text2 va s'inscrire sur la A21 et le text1 sur la B22 puisque à cet endroit la dernière ligne vide de la colonne A est bien la 22!!!

Sinon je suis d'accord avec Philippe!

Cordialement,