UserForm

J

JC de Lorient

Guest

• 22 Avril 2005

• #2

re le forum

et voilà moi même je m'exprime mal !!!!!!

rectificatif

la sélection de la colonne R se fait si le valeur est '' (vide)

et avec le bouton de validation faire passer cette valeur a :'ok'

merci encore
JC

 

Vote positif 0 Vote négatif

J

JC de Lorient

Guest

• 23 Avril 2005

• #3

Bonjour a vous tous,

je vais scinder ma demande en plusieurs étapes

je sélectionne des lignes d'une feuille(Récap) de mon classeur
je souhaiterais pouvoir afficher ces lignes dans un textbox comme ceci:
1ère ligne Cellule A1; B1; D1, H1
2ème ligne : Cellule A5, B5, D5, H5
etc etc ....

j'ai juste créer mon UF mais je sé pas du tout comment afficher ces données

merci pour l'aide que vous m'apporterez

JC

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 23 Avril 2005

• #4

Bonjour

JC, tu pourrais pas nous mettre ton USF en pièce jointe, ca serait plus facile pour comprendre.

A plus

Salut

 

Vote positif 0 Vote négatif

J

JC de Lorient

Guest

• 23 Avril 2005

• #5

Bonjour Hervé re le forum

donc voici mon fichier très réduit

mon souci est dans le UserForm1

les explications sont dans le code

Merci bcp

JC [file name=Copie de ProductionV2_20050423130746.zip size=38275]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Copie de ProductionV2_20050423130746.zip[/file]

 

Pièces jointes

• Copie de ProductionV2_20050423130746.zip

  37.4 KB · Affichages: 24

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 23 Avril 2005

• #6

re

Désolé pour la réponse tardive.


Voici le code pour l'initialisation de ton userform :

Private Sub UserForm_Initialize()
Dim c As Range
Dim x As Byte, j As Byte

ListBox1.ColumnCount = 9
x = 0
For Each c In Range('r2:r' & Range('a65536').End(xlUp).Row)
If c = '' Then
a = c.Row
ListBox1.AddItem cells(a, 1)
For j = 1 To 9
ListBox1.List(x, j - 1) = cells(a, j).Text
Next j
x = x + 1
End If
Next c
End Sub

Cliquez pour agrandir...

Par contre, attention, une listbox est limité à 10 colonnes, et toi tu en as 18.

J'ai donc mis les 10 premieres, a toi de voir ce que tu veux faire.

Salut

 

Vote positif 0 Vote négatif

J

JC de Lorient

Guest

• 23 Avril 2005

• #7

Bonsoir Hervé, le forum

merci hervé pour le code
je ne l'ai pas testé mais aucun doute sur le résultat je ne suis pas chez moi

Par contre je pense m'etre mal exprimé
en fait si la colonne R ='' alors je voudrais récupérer les valeurs
A, B, D, F, I, J, M et N de la ligne ou R est vide

est il possible d'adapter ce code ?

merci et pardon si je me suis mal exprimé et peut de vouloir une réponse sans avoir essayé ce 1er code

bonne fin de soirée

JC

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 24 Avril 2005

• #8

Bonsoir


Une proposition, au regard de ton dernier post :

Code:

Private Sub UserForm_Initialize()
Dim c As Range
Dim x As Byte, j As Byte
Dim a As Integer

ListBox1.ColumnCount = 8
ListBox1.ColumnWidths = '60;60;30;30;60;60;60;60'
x = 0
For Each c In Range('r2:r' & Range('a65536').End(xlUp).Row)
    If c = '' Then
        a = c.Row
        ListBox1.AddItem cells(a, 1)
        ListBox1.List(x, 0) = cells(a, 1).Text
        ListBox1.List(x, 1) = cells(a, 2).Text
        ListBox1.List(x, 2) = cells(a, 4).Text
        ListBox1.List(x, 3) = cells(a, 6).Text
        ListBox1.List(x, 4) = cells(a, 9).Text
        ListBox1.List(x, 5) = cells(a, 10).Text
        ListBox1.List(x, 6) = cells(a, 12).Text
        ListBox1.List(x, 7) = cells(a, 13).Text
    x = x + 1
    End If
Next c
End Sub

Salut

 

Vote positif 0 Vote négatif

J

JC de Lorient

Guest

• 24 Avril 2005

• #9

Salut Hervé

je suis tout simplement sur le c.. !!!!!
je suis époustoufflé par les possibilités
et malheuresement je vé pas te lacher en si bon chemin !!!!
Maintenant que j'ai la liste que je voulais, est il possible avec une ligne selectionnée de récupérer les valeurs de la ligne sélectionnée et de les rentrer dans un autre UF ?
Quel code utiliser pour les récupérer ?

100 000 merci !

JC

 

Vote positif 0 Vote négatif

J

JC de Lorient

Guest

• 24 Avril 2005

• #10

Bonjour le forum

donc voilà le code fait par Hervé (merci encore)
Je galère énormement pour récupérer les données d'une ligne sélectionnée et les envoyer dans un nouveau UF donc je passe a une autre étape en attendant une aide en ligne !

J'ai donc opté pour une sélection multiple dans ma listbox
je souhaiterais qu'avec mes lignes sélectionnées pouvoir rajouter 'ok' dans la colonne R ligne a (dans le code ci dessous) sur ma feuille 'Récap'

petite question supp : peut on aligner certaine cellules a droite dans une ListBox?
ai regardé l'aide mé rien trouvé sur le sujet

merci bcp et bon dimanche ensoleillé

JC


Private Sub UserForm_Initialize()
Dim c As Range
Dim x As Byte ', j As Byte
Dim a As Integer
'Sheets('Menu').Select
Sheets('Récap').Activate
ListBox1.ColumnCount = 10
ListBox1.ColumnWidths = '50;50;50;50;50;50;60;50;50;50'
x = 0
For Each c In Range('r2:r' & Range('a65536').End(xlUp).Row)
If c = '' Then
a = c.Row
ListBox1.AddItem cells(a, 1)
ListBox1.List(x, 0) = cells(a, 1).Text
ListBox1.List(x, 1) = cells(a, 2).Text
ListBox1.List(x, 2) = cells(a, 3).Text
ListBox1.List(x, 3) = cells(a, 10).Text
ListBox1.List(x, 4) = cells(a, 11).Text
ListBox1.List(x, 5) = cells(a, 13).Text
ListBox1.List(x, 6) = cells(a, 14).Text
ListBox1.List(x, 7) = cells(a, 15).Text
ListBox1.List(x, 8) = cells(a, 16).Text
ListBox1.List(x, 9) = a
x = x + 1
End If
Next c
End Sub

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 24 Avril 2005

• #11

Bonjour

Je répond à ton avant dernier post : le renvoi d'une ligne sélectionnée de la listbox vers des textboxs.

Je pense qu'il ne faut pas multiplier les userforms, en effet la manipulation de ceux-ci est parfois aléatoire.

Donc dans le meme userform, en réduisant ta listbox, et en ajoutant 8 textbox, si tu rajoutes le code suivant dans l'userform tu ne devrais pas avoir de problème.

Textbox nommés de textbox1 à textbox8 :

Private Sub ListBox1_Click()
Dim i As Byte
For i = 1 To 8
Controls('TextBox' & i).Value = ListBox1.List(ListBox1.ListIndex, i - 1)
Next i
End Sub

Cliquez pour agrandir...

par contre ce code interdit la sélection multiple, on peut faire ce que tu demandes (renvoi de Ok dans les cellules) sans passer par un userform.

Enfin, pour l'alignement des données dans une colonne, va voir du coté de textalign, par contre l'alignement de ces données se fait sur l'ensemble des colonnes. Impossible d'aligner individuellement les colonnes?

 

Vote positif 0 Vote négatif

J

JC de Lorient

Guest

• 24 Avril 2005

• #12

Bonjour Hervé re le forum

merci bcp pour le code et bien évidemment j'ai pas du le mettre ou il fallait !!!

je te joins un bout de fichier très épuré
le UserForm concerné est US_Modif_Paiements

pour ce qui est du 'ok' oui ça se fera en deux étapes

la 1ère modif eventuelle des infos sur une seule ligne
la 2ème enregistrement du ok sur multiligne


merci pour tout ce que tu fais 🙂

JC [file name=Copie de ProductionV2_20050424142957.zip size=42148]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Copie de ProductionV2_20050424142957.zip[/file]

 

Pièces jointes

• Copie de ProductionV2_20050424142957.zip

  41.2 KB · Affichages: 24

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 24 Avril 2005

• #13

Salut JC de Lorient
bonjour Hervé
je pense qu'il te faut Utiliser la procèdure Double Click de ta listBox1
car il est en multiSelect
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Byte
For i = 1 To 8
Controls('TextBox' & i).Value = ListBox1.List(ListBox1.ListIndex, i - 1)
Next i
End Sub
Amicalement
Jean marie

Message édité par: ChTi160, à: 24/04/2005 14:48

 

Vote positif 0 Vote négatif

J

JC de Lorient

Guest

• 24 Avril 2005

• #14

Bonjour ChTi160 re le forum

merci bcp en effet la ça fonctionne !!!!

un pas de plus d'accompli

là je vé essayer d'avancer tout seul
je fé appel au besoin
merci encore
JC

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 24 Avril 2005

• #15

re

en pièce jointe, tu trouveras ton fichier modifié, j'ai :

*ajouter une sous-routine pour l'initialisation de la listbox
* ajouter une macro pour le renvoi des données depuis les textbox ves la ligne adéquate.
* ajouter une macro pour la confirmation des paiements, le principe est simple:

lorsque ton userform s'ouvre, ta listbox est en sélection simple afin de modifier tes valeurs (via les textbox).

Puis quand tu clique sur paiement, tu bascules en modifications des paiments, donc ta listbox devient multiselect, le caption du bouton devient confirmation....

Il te suffit de sélectionner les lignes désirée pour que le OK s'ajoute en colonne 18.

Si tu veux annuler le mode de confirmation de paiement (en cas d'erreur), il te suffit de ne sélectionner aucune ligne et de valider par le bouton (confirmation.....) pour rebasculer en mode single pour la listbox.

Je suis pas sur d'etre clair, mais à l'usage tu va vite comprendre.

Salut


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

 

Pièces jointes

• ProductionV3.zip

  36.4 KB · Affichages: 36

Vote positif 0 Vote négatif