listbox

[CHRIS54]

BONJOUR à toutes et à tous
j'ai un petit souci de textbox par rapport à l'ajout d'item avec celulle fusionée
:S
si quelqu'un à un peu de temps
merci d'avance
[file name=listbox & item_20050322072723.zip size=11593]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/listbox & item_20050322072723.zip[/file]

 

[PascalXLD]

Bonjour

Je te propose quelque chose mais en partant de l'idée que tu as toujours la même présentation c'est-à-dire 2 lignes acteurs pour 1 ligne 'à produire'

Bon courage [file name=listbox.zip size=11403]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/listbox.zip[/file]

 

[_Thierry]

Bonjour Chris, Pascal

J'ai regardé vite fait ton fichier Pascal, dans le cas présent, le IIf est très utile...

Private Sub ComboBox1_Change()
Dim cel As Range
Dim i As Integer, x As Integer

ListBox1.Clear
For i = 5 To Sheets('feuil1').Range('a500').End(xlUp).Row
    If Sheets('feuil1').Range('A' & i).Value = ComboBox1.Value Then
            x = IIf(i Mod 2 = 0, i - 1, i)
            ListBox1.AddItem Sheets('feuil1').Range('b' & x).Value
    End If
Next i
End Sub

Bonne Journée
@+Thierry

 

[Nickytchao]

Salut Thierry, Chris, Pascal, le forum,
juste pour info Thierry, peux-tu m'expliquer le fonctionnement de IIF et du Mod dans:
x = IIf(i Mod 2 = 0, i - 1, i)?
Merci
@bi1tô!

 

[PascalXLD]

Bonjour

Thierry doit être sur le chemin du boulot je m'y colle si tu veux

Tout d'abord Mod que j'avais utilisé dans le fichier joint : Permet de diviser deux nombres en ne renvoyant que le reste

Donc i Mod 2 renvoie 0 si le i est pair et 1 si i est impair

Donc on sait s'il s'agit d'une ligne paire ou impaire

Ensuite le Iif permet d'attribuer une valeur à x suivant si le test et vrai ou faux

X= (i mod 2, valeur si vrai, valeur si faux)

cela permet donc, si ta ligne est paire on regarde dans la ligne i-1 de la colonne B(x=i-1) et si c'est impair on regarde sur la même ligne de la colonne B(x=i)

Le Iif permet d'éviter le else que j'avais mis dans mon fichier et donc de gagner un peu de ligne de code

Message édité par: Pascal76, à: 22/03/2005 08:53

 

[_Thierry]

Tout à fait Thierry.......... oups Pascal !!!

Le IIf permet surtout dans ce cas de figure d'éviter de mettre deux lignes différentes pour l'incrémentation de la ListBox, on passe directement par une seule avec une variable 'x' qui réagit 'intelligemment'...

Je file maintenant au bureau !!! lol

@+Thierry

EDITION PS Pour le Mod, ça équivaut à écrire ceci :
            x = IIf((Int(i / 2)) - Cdbl((i / 2)) = 0, i - 1, i)
Mais puisque la Function toute prête existe...

Message édité par: _Thierry, à: 22/03/2005 08:57

 

[CHRIS54]

🙂
bonjour pascal et thierry
merci pour vos solutions
c'est impec
et toujours aussi dispo et rapide
quelle efficacité
bonne journée

 

[ChTi160]

Salut 'CHRIS54'
bonjour le fil
j'avais ce matin fait celà mais je ne retrouvais plus le post
donc je joins le fichier
c'est une autre possibilité
[file name=listbox & itemV1_20050322145508.zip size=13233]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/listbox & itemV1_20050322145508.zip[/file]

 

[ChTi160]

Salut 'CHRIS54'
bonjour le fil
j'avais ce matin fait celà mais je ne retrouvais plus le post
donc je joins le fichier
c'est une autre possibilité
[file name=listbox & itemV1_20050322150041.zip size=13233]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/listbox & itemV1_20050322150041.zip[/file]