Encore besoin d'aide !!!

[inesis member]

Re bonjour à tout le forum,

Mes connaissances en VBA étant limitées, ej vous sollicite de nouveau pour aboutir mon fichier.

J'ai réussi à piocher plein d'infos sur les différents posts mais je n'ai pas trouver le moyen de terminer ce que je cherche à faire.

Dans un USF, je souhaite envoyer les saisies de 2 textbox dans une feuille sélectionnée (ça j'ai trouvé sur le forum)
Ce que je n'ai pas trouvé, c'est que je souhaite choisir la feuille de destination grâce à une listbox se trouvant dans l'USF.

Et dernier point, je souhaite que les données saisies (2 colonnes) soient triées par ordre croissant dans la 1ère colonne

Voici le fichier, j'espère que vous pourrez m'aider

Merci encore

 

[ChTi160]

Re : Encore besoin d'aide !!!

Salut inesis member
Bonjour le fil
Bonjour le Forum

en pièce jointe une première approche

Le Fichier :Regarde la pièce jointe test ref 4.zip

Bonne journée

 

[shimon810]

Re : Encore besoin d'aide !!!

Bonjour,

Vois si celà fonctionne.

Simon

 

[inesis member]

Re : Encore besoin d'aide !!!

Bonjour à tous les 2,

Etant au boulot, je ne peux télécharger de fichiers .zip
Je regarde ce soir et vous tiens informer.
En tout cas, merci de vos réponses rapides

 

[inesis member]

Re : Encore besoin d'aide !!!

Salut inesis member
Bonjour le fil
Bonjour le Forum

en pièce jointe une première approche

Le Fichier :Regarde la pièce jointe 90750

Bonne journée

Merci Chti 160, l'approche est effectivement très bonne mais la version de notre ami Shimon 810 se rapproche plus de ce que je souhaite.
Il y a cependant un point sur lequel vous êtes encore tous les 2 en callenge, c'est sur le tri croissant automatique des données de la feuille contenant les nouvelles références... si tu as des idées...
En tout cas, merci encore de ton aide

IM

Bonjour,

Vois si celà fonctionne.

Simon

C'est Nickel comme je veux, j'ai copié le code pour le bouton "suivant" et c'est exactement ce que je voulais.
Comme je l'ai dis à Chti160, il ne manque que le tri automatique à la fin de la saisie, si tu as des idées!
Merci encore à vous 2 !

IM

 

[ChTi160]

Re : Encore besoin d'aide !!!

Salut inesis member
Bonsoir le Fil
Bonsoir le Forum

vite fait
dans ma version on supprime une feuille (Pas forcé)
je ne comprends pas ta demande ,dans cette version voir ci dessous

Function miseajour(ByVal sht As String)

With Sheets(sht)
[COLOR=Green]'ici on détermine la dernière la ligne vide [/COLOR]
DerLgn = .Range("A65536").End(xlUp).Row + 1
         .Cells(DerLgn, 1) = newref.prix.Value[COLOR=Green] 'ici on colle le Prix[/COLOR]
         .Cells(DerLgn, 2) = newref.référence.Value [COLOR=Green]'ici la référence[/COLOR]
[COLOR=Green]'et la je trie la plage en fonction de la collonne 1[/COLOR]
         .Range(.Cells(2, 1), .Cells(DerLgn, 2)).Sort Key1:=.Range("A2") 
End With

End Function

Bonne fin de Soirée

 

[inesis member]

Re : Encore besoin d'aide !!!

Salut inesis member
Bonsoir le Fil
Bonsoir le Forum

vite fait
dans ma version on supprime une feuille (Pas forcé)
je ne comprends pas ta demande ,dans cette version voir ci dessous

Function miseajour(ByVal sht As String)

With Sheets(sht)
[COLOR=Green]'ici on détermine la dernière la ligne vide [/COLOR]
DerLgn = .Range("A65536").End(xlUp).Row + 1
         .Cells(DerLgn, 1) = newref.prix.Value[COLOR=Green] 'ici on colle le Prix[/COLOR]
         .Cells(DerLgn, 2) = newref.référence.Value [COLOR=Green]'ici la référence[/COLOR]
[COLOR=Green]'et la je trie la plage en fonction de la collonne 1[/COLOR]
         .Range(.Cells(2, 1), .Cells(DerLgn, 2)).Sort Key1:=.Range("A2") 
End With

End Function

Bonne fin de Soirée

C nickel, exactement ce que je voulais.
Merci encore !