Selectionner la ligne en fonction de la listbox

[Ice]

Hello le forum

ci joint mon fichier avec quelque erreur il va de soit

J aimerai savoir comment faire pour selectionner la ligne correspondant a ma listbox afin de mettre dans mes textbox les differentes valeur.


Fabrice [file name=gestion_20050512173844.zip size=18840]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/gestion_20050512173844.zip[/file]

 

[Ice]

Hello tout le monde

Apres quelque heure derecherche , j ai reussi a faire fonctionner mon USF
Seul petit HIC hmy:

MOn usf et vba fonctionne seulement si dans la colone A je me met en Standard

Or j aimerai affiche dans cette colone des dates !


Quelqu un pourrai t il m aider atrouver unesolution


Merci


Fabrice


P.S ci joint mon fichier modifier [file name=gestion_20050512203224.zip size=18810]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/gestion_20050512203224.zip[/file]

 

[excalibur]

bonjour le forum;ice j ai modifie ton code regarde si cela te convient salutations [file name=gestion_20050512221416.zip size=19378]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/gestion_20050512221416.zip[/file]

 

[myDearFriend!]

Bonsoir Ice, excalibur,

En complément, ci-dessous une autre façon de faire (en remplacement de ta procédure initiale) :

Private Sub ListBox1_Click()
Dim L As Long
L = ListBox1.ListIndex + 5
      TextBoxDateDeSortie = Cells(L, 1)
      TextBoxReference = Cells(L, 2)
      TextBoxVersion = Cells(L, 3)
      TextBoxIndice = Cells(L, 4)
      TextBoxSup = Cells(L, 5)
      TextBoxDesignationProduit = Cells(L, 6)
      TextBoxCasier = Cells(L, 7)
      TextBoxDateEnregistrement = Cells(L, 8)
      TextBoxEnregistrePar = Cells(L, 9)
      TextBoxMatriculeEnregistrement = Cells(L, 10)
End Sub

Et si tu tiens absolument à sélectionner la ligne correspondante, tu peux rajouter à la fin :

Cells(L, 1).EntireRow.Select

Cordialement,

 

[Thomas®]

Bonsoir, le forum

j'ai une question myDearFriend!

pourquoi +5??

et qu'entends tu par :

Et si tu tiens absolument à sélectionner la ligne correspondante, tu peux rajouter à la fin :
Cells(L, 1).EntireRow.Select


sinon il risque de ne pas toujours pointer sur la bonne ligne??

ou c'est juste pour selectionner la ligne?

je suis curieux

D'avance merci
Thomas®

 

[myDearFriend!]

Bonsoir Thomas,

La curiosité est loin d'être un vilain défaut, c'est même une qualité pour qui veut avancer...

Grâce à l'indice de l'élément sélectionné (ListIndex), on retrouve le numéro de ligne (L) correspondant dans la feuille excel :

L = ListBox1.ListIndex + 5

'+ 5' c'est tout simplement parce que le premier élément de la ListBox porte le 'ListIndex' numéro 0 (zéro) et qu'il y a 4 lignes d'entête dans la feuille source.
Il faut donc ajouter 1 (pour compenser l'indice qui commence à zéro et non à un) et 4 pour tenir compte des lignes d'entête de la feuille excel.

Par ailleurs,

Cells(L, 1).EntireRow.Select

C'est effectivement juste pour sélectionner la ligne si on le souhaite par souci d'esthétique car la sélection de cellules n'est pas indipensable pour ce genre de problème...

J'espère avoir été compréhensible...

Cordialement,

 

[Thomas®]

Re,

Merci pour ta reponse, cela est tres claire.

Merci à tout le forum (qui nous permet d'evoluer)
Thomas®

 

[Ice]

hello le forum, myDearFriend, excalibur

Merci pour le travail accompli.

c est exactement ce que je recherchai.
Juste encore une petite chose ! :whistle:
est il possible de selectionner uune plage a partir de la selellule active ou de la ligne
Je m explique , j aimerai selectionner les 5 lignes qui suivent, afin de les copier /coller dans une autre feuille .


Encore merci pour tout



Fabrice

 

[excalibur]

bonjour tu peus faire une selection tres selective du style a caser dans ton code Application.ScreenUpdating = False
With ActiveSheet.Range('A5:A43')
Set c = .Find(data, LookIn:=xlValues)
Range((ActiveCell.Address) & ':' & (ActiveCell.Offset(5, 7).Address)).Copy
Sheets('Feuil2').Select
ActiveSheet.Paste
Range('A1').Select
Application.CutCopyMode = False
Sheets('Feuil1').Select

'ect...fait varier offset pour voir la select exffset(-5,7) salutations

 

[Ice]

Bonjour excalibur et le forum

Merci pour ton aide si precieuse , j ai reussi a adapter suivant mon projet.

je voudrai savoir s il existe une command pour selectionner TOUTES les textbox d un USf afin de les rendre non visible

je connais bien la formule textbox.visible = false
mais etant donner que j ai environ 60 textbox , ca fait beaucoup a ecrire.



merci a tous de votre aide

Fabrice

 

[ChTi160]

Salut Ice
bonjour le fil tu as la possibilité de faire une boucle sur tes 'TextBox' du genre

Dim ctrl as control

for each ctrl in me.Controls
if TypeName(ctrl)='TextBox' then
ctrl.visible=False
End if
next

 

[Ice]

Salut ChTi160 le forum

merci pour ta solution qui me convient

Fabrice