Sélection dans listbox

[ixelo]

Bonjour à tous.

Encore un pb de débutant.

Dans le fichier joint , j'active le userform2 par le bouton 'passer en commande' dans la combo1 je choisi un nom ( Bienaimé pour l'exemple)qui me renvoit une division en listbox1 et une liste de devis en listbox2.

La liste 2 ne me satisfait pas , car elle ne renvoit que la 1ère colonne , alors que je pesais avoir sélectionné toute une plage.

OU est l'erreur ???

En fait je voulais avoir la plage (5 colonnes) sans les lignes comprenant une date dans la colonne 4.

Je sèche lamentablement.

Mais vous , non , j'en suis sur....

Merci d'avance [file name=devcomtec1.zip size=30669]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/devcomtec1.zip[/file]

 

[jp14]

Bonsoir

Dans les propriétés de la ListBox modifier la valeur de RowSource pour avoir le nombre de colonne désirée.

 

[Bebere]

bonsoir Ixelo,Jp

ton code complété

à bientôt [file name=devcomtec1_20060223204229.zip size=30669]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/devcomtec1_20060223204229.zip[/file]

 

[ixelo]

Merci JP14

J'ai modifié la propriété qui va bien et c'est bon.

Désolé Bebere , mais je n'ai pas vu la différence, peut être as tu oublié d'enregistrer.

Parcontre peut être pourras tu m'aider pour la suite de ma question :

En fait je voulais avoir la plage (5 colonnes) sans les lignes comprenant une date dans la colonne 4.

Merci d' avance

 

[ixelo]

Merci JP14

J'ai modifié la propriété qui va bien et c'est bon.

Désolé Bebere , mais je n'ai pas vu la différence, peut être as tu oublié d'enregistrer.

Parcontre peut être pourras tu m'aider pour la suite de ma question :

En fait je voulais avoir la plage (5 colonnes) sans les lignes comprenant une date dans la colonne 4.

Merci d' avance

 

[Bebere]

rebonsoir
oups voilà le bon
à bientôt :S [file name=devcomtec1V1.zip size=26076]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/devcomtec1V1.zip[/file]

 

[Bebere]

bonsoir
réponse à ta demande
à bientôt

 

[Bebere]

excuse my,sir mais le fichier dépasse les 50k
voilà le code
Private Sub ComboBox1_Change()
Dim cel As Range
Dim Nomfeuil As String
Dim Nomtech As String
Dim Tablo As Variant
Dim L As Integer
Nomtech = ComboBox1.Value

For Each cel In p
If cel = Nomtech Then TextBox1.Value = cel.Offset(0, 1).Value
Exit For
Next cel

Nomfeuil = TextBox1.Value

With Sheets(Nomfeuil)
Tablo = Range(Nomtech).Offset(2, 0).CurrentRegion
End With
ListBox1.Clear
ListBox1.ColumnCount = 4 'nbre de colonnes
ListBox1.ColumnWidths = '40;40;80;40' 'largeur colonnes
For L = 1 To UBound(Tablo, 1)
With ListBox1
.AddItem Tablo(L, 1)
.List(L - 1, 1) = Tablo(L, 2)
.List(L - 1, 2) = Tablo(L, 3)
.List(L - 1, 3) = Tablo(L, 5)
End With
Next L
End Sub
y a des jours ou tout va mal...bla...bla..bla
bonsoir

 

[ixelo]

Bonsoir à tous
Bonsoir Bebere

J' ai un pb avec ton code.
Erreur d'exécution 9 .
A 1ère vue , on ne rentre plus rien dans le textbox1.
Donc on ne trouve plus la feuille.

je ne comprend pas.

 

[Bebere]

bonjour Ixelo,le Forum

Private Sub ComboBox1_Change()
Dim Cel As Range
Dim Nomfeuil As String
Dim Nomtech As String
Dim Tablo As Variant
Dim L As Integer
Nomtech = ComboBox1.Value

For Each Cel In Sheets('Menu').Range('A1:B' & Range('A65536').End(xlUp).Row)
'faute dans ligne suivante if... end if
If Cel = Nomtech Then
TextBox1.Value = Cel.Offset(0, 1).Value
Exit For
End If
Next Cel



Nomfeuil = TextBox1.Value


With Sheets(Nomfeuil)
'faute range doit avoir un. devant
Tablo = .Range(Nomtech).Offset(2, 0).CurrentRegion
End With

ListBox1.Clear
ListBox1.ColumnCount = 4 'nbre de colonnes
ListBox1.ColumnWidths = '40;40;80;40' 'largeur colonnes
For L = 1 To UBound(Tablo, 1)
With ListBox1
.AddItem Tablo(L, 1)
.List(L - 1, 1) = Tablo(L, 2)
.List(L - 1, 2) = Tablo(L, 3)
.List(L - 1, 3) = Tablo(L, 5)
End With
Next L
End Sub

à bientôt

 

[baigneur67]

Re : Sélection dans listbox

Bonjour, Bebere
Le fichier pour les devis et super mais ou je doit mettre le code car pour valider le devis avec le bouton OK il y a rien.
merci de votre aide

 

[Pierrot93]

Re : Sélection dans listbox

Bonjour Baigneur, Bebere, Ixelo

A priori, sauf erreur de ma part, si tu parles du dernier code, il doit s'intégrer dans le module de l'USF.

Bonne soirée
@+

 

[baigneur67]

Re : Sélection dans listbox

bonsoir Bebere, Ixelo, Pierrot93


il y a pas de module de l'USF
mais ou !
merci

 

[Pierrot93]

Re : Sélection dans listbox

Bonjour Baigneur,

Dans l'éditeur visual basic, ALT F11, pour l'ouvrir => fenêtre projet VBA, tu double cliques sur VBAProject de ton classeur pour developper l'arborescence => double cliques dans feuille pour afficher les USF => click droit sur l'USF en question => Code => et tu colles ton code.

Bonne journée
@+