Discussion :

[NEC14]

Bonjour à tous,

J'ai un formulaire nommé (UF2) qui me permet d'ajouter des références dans une feuille Excel (A2:A250).

La TextBox dans laquelle je rentre ces données se nomme TxtCat.

Dans un autre formulaire (UF1), il y a une combobox nommée CmbCat dans laquelle je récupére les données de la feuille Excel active (A2:A250)

Dans le formulaire UF1 j'ai un bouton de commande (Ajouter) qui me permet d'ouvrir le formulaire UF2. Dans le formulaire UF2, je rentre donc la nouvelle donnée (TxtCat = le code, TxtFs = un prix unitaire, etc...). Dans ce même formulaire un bouton (Valider) qui permet d'ajouter cette nouvelle saisie à la liste déjà présente dans ma feuille (A2:A250).

Le formulaire UF2 se ferme et le formulaire UF1 est de nouveau affiché.

Une fois cela exécuté, je souhaiterai que lorsque le formulaire est affiché, il le soit avec le dernier code saisi, plus ses prix unitaires (TxtFS et TxtHF). Ces données se trouvent dans la colonne A de la feuille active et les colonnes A B C.

En fait, à le réouverture du formulaire la combo s'est chargée avec la dernière saisie faite, mais uniquement si je suis passé par le formulaire UF2.

Je sais alimenter une combo avec les données déjà saisies, mais je n'y arrive pas pour ce cas.

J'espère que je suis assez clair dans mes explications.

Merci par avance pour votre aide

[patricktoulon]

re
bonjour rené
et oui c'est la encore un problème de conception tu envisage tes actions pas a pas alors que tu dois te poser et te faire une maquette

alors allez un patch (et je ne peux faire que ca n'ayant pas ton fichier )

l'ors de la réouverture du usf1 prendre la dernière saisie en colonne A et récupérer la ligne par la même occasion
et avec ca retranscrire les données de chaque colonne dans les textboxs( je suppose)

mais a concevoir ton fichier comme ca ,tu va droit dans le mur et "bien bien" même

perso je mettrais une variable public dans un de tes modules standards
du genre
public mesdonnées as variant

et l'ors de la transcriptions sur sheets peut etre avec l'évènement beforeclose de l'usf1
faire une chose du genre au hasard

Code :

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

mesdonnées = array("",txt1,tx2,tx3 combobox2,listbox4)' (je met pas les .value je suis un gros fainéant)

et lors de la réouverture de l'usf1 peut être aussi dans l'évènement beforeclose de l'usf2 cette fois ci

Code :

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

1
2
3
4
5
userform1. txt1=mesdonnées(1)
userform1.txt2=mesdonnées(2)
'etc.....
userform1.combobox2=mesdonnées(5)
'etc...

bref ce sont des choses que tu dois prévoir avant

[NEC14]

Bonjour Patrick,

Oui j'aurai du prévoir cela, mais le soucis est que je ne l'utilise pas moi-même. Les modifications sont demandées au fur et à mesure de l'utilisation.
Je vais me pencher sur ta réponse.
Merci pour ton aide toujours si judicieuse

[patricktoulon]

re
il vaudrait mieux demander alors a tes demandeurs ce qu'ils veulent du début a la fin
a force d'ajouter des patchs tu va plus t y retrouver et même toi tu ne sera plus comment corriger le moindre bogs si tant est que ce soit possible sans refonte total de l'app
alors un coup de gueule précisant ta pensée a ses demandeurs "dites tout ou rien" ca c'est ce que je ferait perso mais ca s'arrête a moi
car a ce stade tu en est qu'au début du développement j'ose mémé pas imaginer si il y a refonte de l'organisation voir des system (PCs) ( tout a la poubelle et tu recommence )
et dieux sait que je l'ai vu plusieurs fois

[NEC14]

Oui tu as raison. Normalement j'en suis aux dernières modifications, il y a eu des mises au point de faites à ce sujet.

[NEC14]

Bonsoir à tous,

J'ai fait ceci qui fonctionne, est-ce que cela vous parait correct :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub UserForm_Activate()
Dim DerniereCelluleRemplie
 
    DerniereCelluleRemplie = Columns("A:A").Find("*", Range("A1"), , , xlByRows, xlPrevious).Row 'on va chercher la dernière cellule non vide de la colonne A
 
    Range("A" & DerniereCelluleRemplie).Select 'La dernière cellule est sélectionnée
    Me.Cmb1.Value = Range("A" & DerniereCelluleRemplie) ' la combo est alimentée par le contenu de cette dernière cellule
End Sub

Merci par avance