Pb avec "Thierry's Demo" USF_ComboBox-Gestion-List avec XL97

[Utna]

Bonjour le Forum

Et oui me v'la de retour.
J'ai vraiment essayé de faire fonctionner cette demo sous Excel 97 mais reguliérement, j'ai des messages d'erreurs.

Alors voila, à bout de force au bout d'une semaine et un peu honteux de ma requête, voici ma question :
Est-ce un pb de ma version d'Excel 97 (SR 2) ou alors faut-il modifier le programme (chose que je n'arrive pas, snifff) ?

Voila, à votre bon coeur Messieurs Dames, genies de l'Excel )

Comme d'hab, merci d'avance pour votre future aide.

Utna.

 

[@+Thierry]

Salut Utna,

Alors on a appelé le SAV !! (lol)

Je ne peux pas dire grand chose car celà fait belle lurette que je n'ai plus de PC en XL 97...

De plus tu ne précise pas les messages d'erreurs que tu as régulièrement...(important à toujours préciser, pour tenter de vous aider)

Tout ce que je sais, c'est qu'il y a un problème avec le SORT dans XL97...

Tu peux essayer de télécharger ce fichier text => USF-TextBox-de-Saisie-V2.zip

Si cette démo ne fonctionne pas sous Excel 97 c'est qu'il a une "indigestion" de la méthode "SORT" car c'est le même style de code que le fichier dont tu parles : Lien supprimé mais en plus simple....

A l'époque nous avions eu le même problème pour le Contact Manager Lien supprimé

Pour tenter de trouver une solution, je pense tout de même qu'Excel 97 est capable de faire un Tri par VBA, mais qu'il faut s'y prendre autrement... Donc si le fichier USF-TextBox-de-Saisie-V2.zip ne marche pas chez toi aussi... STP Utna, sous ton Excel 97, tu enregistres une macro pendant que tu fais un tri.... Et tu posts le code ici.... Je verrai bien ce qu'il faut comme instruction.... (Car l'aide d'Excel 2000 ne parle d'aucune restriction pour les version antérieure avec la méthode Sort)

Voilà, c'est tout ce que je peux faire pour toi, à moins qu'un "Excellien NonanteSeptien" nous refile directement une solution...

Bonne Soirée
@+Thierry

 

[Utna]

Bonjour @+Thierry


Comme d'hab, merci pour cette rapide reponse.
J'essaye de voir tous ces fichiers.

Sinon pour info voici les messages "Erreur d'execution 1004"

Exemple avec suppression : Choix d'un Nom, Click Suppression, click de confirmation de suppression et "BING!" message d'erreur :
"Erreur d'execution 1004 : La methode Delete de la classe Range a echoué"

Exemple avec Validation : TapTap le nouveau Nom, Click Validation, Click confirmation Validation et "BING!" message d'erreur :
"Erreur d'execution 1004 : La methode Sort de la classe Range a échoué"

Cela confirme donc ton idée. Eh oui, une fois de plus bien vue.
Eh hop, un HOURRAAA !!! general pour @+Thierry lol

Pour info :
Même pb avec la demo USF-TextBox-de-Saisie-V2.zip
snifff snifff c'est injuste.


Bon, j'essaye ta demande de tri, j'espère ne pas me tromper et que c'est bien ta demande.
Tri effectué sur la liste des Noms de ta Demo :


Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 25/02/03 par Utna
'

'
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub





Voila, voila.

Que dire si ce n'est merci une fois de plus pour tout ce devoument.

A+
Utna


N.B : Et pourtant j'ai essayé de ne pas crier à l'aide mais à force c'est trop fatiguant, arfff

 

[@+Thierry]

OK, c'est bien

Je pars du bureau, je te répondrai plus tard dans la soirée
@+Thierry

 

[Utna]

Merci c'est gentil.

Pour ma part, je vais quand-même essayer de continuer sur ce pb mais cette aide serait vraiment la bienvenue.

A plus.
Utna ;o)

 

[@+Thierry]

Re Utna

Je suis revenu pour toi, vite fait, j'ai un mal de dent permanent et je vais me coucher...

Essaie le fichier joint, c'est celui de la TextBox plus simple... Il y a ta macro textuelle...... (Macro1) là ce devrait marcher puisque c'est la même...

Ensuite permute sur la macro2, car j'évite le "Select", je pense que ce devrait marcher aussi...

Par contre la méthode delete de la ComBoBox sera plus délicate, mais là je coupe l'ordi... On verra deux mains !!! Entre temps tiens moi au courant

Bonne Nuit
@+Thierry

 

[Utna]

Bonsoir @+Thierry

Surtout repose toi bien et soigne ce pb de dent.

Je ne suis pas sûr de pouvoir effectuer le test demain mercredi.
Cela te laisse donc une journée de repos supplementaire. lol
Mais attention, jeudi je serai de nouveau dispo.

Alors à bientôt et merci pour tout.

Bon retablissement.
Utna.

 

[Utna]

Bonjour le Forum
Bonjour @+Thierry

J'ai pas mal travaillé sur mon pb cette nuit.
Une fois de plus, grace à ton aide, je pense tenir une solution mais je ne pourrais la tester que demain.
Je te propose donc de ne pas t'en occuper en attendant le resultat final (sauf si tu insistes biensur lol ).

Merci et bonne journée.

A+
Utna

 

[Utna]

Bonjour cher Forum
Bonjour @+Thierry

J'ai testé ton fichier corrigé pour Excel 97 (seulement la macro1)
et bravo cela fonctionne bien.

Par contre mon adaptation de fichier c'est pas ca

Mais ce n'est pas grave, je vais continuer
car le combat entre l'Homme et la Machine n'est pas encore terminé

Bonne journée à tous.

A+
Utna

 

[Utna]

Re-coucou

Je viens de tester avec la macro 2.
Le prenom est rajouté à la suite des autres sans classifier par ordre alphabetique.

Voili, voilou.

Merci !!!

@+
Utna.

 

[@+Thierry]

Salut Utna et le Forum

Tu es en train de me dire que Sous XL97 ceci marche :
Sub Macro1()
' Macro1 Macro
' Macro enregistrée le 25/02/03 par Utna
'
Sheets(1).Range("A1").Select
'
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub


ET PAS CECI : (?)

Sub Macro2()

Sheets(1).Range("A1").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Alors là, je conseille vivement de passer au moins à 2000 ! car j'y perds mon latin !

Bon ben bon courage, car moi je suis assez débordé en ce moment et mes dents m'ont mises dedans quant à mon timing, c'est pour çà qu'on ne me voit pas trop cette semaine encore.

Bonne Soirée
@+Thierry