gestion de la derniere ligne avec une feuille

[bobjazz]

Bonsoir le Forum

Voila, j'ai bien essayé, mais dur dur, je bute sur une ligne de commande.
Mon souhait est
en fonction de la feuille choisi avec le combobox1, je remplie mon USF et je les remplie au fur à mesure, et si possible en fonction du combobox2.

Merci de votre aide

Je joint mon fichier, mieux explicide
[file name=habiliV1.zip size=49211]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/habiliV1.zip[/file]

Bobjazz

 

[MichelXld]

bonjour Bobjazz

tu peux tester cette adaptation

par contre je n'ai pas bien compris ce que tu entends par 'en fonction du combobox2'


bon apres midi
MichelXld
[file name=habiliv2.zip size=39376]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/habiliv2.zip[/file]

 

[bobjazz]

Bonjour MichelXLD

Super, va falloir que je me note dans un coin, ce code.

J'ai juste changerla ligne
With Sheets(CStr(ComboBox1))
.Range('A' & L).Value = ComboBox2
je range la comboBox2.

Pour ta question sur la combo2, je demandais si il etait possible que lorsque je range mes données, comme c'est la combo2 qui revient et que je peux avoir plusieurs noms sur une meme entree de combo2

Pour exemple
je peux avoir 3 Lyon, 2 Moulins et pendant le rangement, cela se fasse automatiquement

+ precis dans mon exemple

Merci encore

Bobjazz [file name=habiliV2.zip size=37576]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/habiliV2.zip[/file]

 

[MichelXld]

bonsoir Bojazz

je n'ai pas bien compris ton explication : j'ai interprété que tu souhaites trier les valeurs insérées dans les feuilles


Private Sub CmdSave_Click()
Dim L As Integer
Dim Cell As Range
Dim Feuille As Worksheet

If ComboBox1.Value = '' Then
MsgBox 'Veuillez renseigner le Nom!', vbCritical, T
Exit Sub
End If

Set Feuille = ThisWorkbook.Worksheets(CStr(ComboBox1))
L = Feuille.Range('A65536').End(xlUp).Row + 1

If TextBox1 = '' Then
MsgBox 'Veuillez renseigner le Nom!', vbCritical, T
Exit Sub
End If
If TextBox2 = '' Then
MsgBox 'Veuillez renseigner le prenom!', vbCritical, T
TextBox2.SetFocus
Exit Sub
End If
If TextBox3 = '' Then
MsgBox 'Veuillez renseigner le Matricule!', vbCritical, T
TextBox3.SetFocus
Exit Sub
End If

With Feuille
.Range('A' & L).Value = ComboBox2
.Range('B' & L).Value = TextBox1.Value
.Range('C' & L).Value = TextBox2.Value
.Range('D' & L).Value = TextBox3.Value

End With

Feuille.Range('A1').Sort Feuille.Range('A1'), xlAscending
End Sub


bonne soiree
MichelXld

 

[bobjazz]

Merci en plein dans le mille malgres mes explications
Une derniere, si on veut classer la colonne B par ordre alphabetique en fct de la commande que tu as creé
Feuille.Range('A1').Sort Feuille.Range('A1'), xlAscending
Est ce que c'est possible?
En tout cas Merci

Bobjazz