Sélection list Colonnes C, D, et c...OK mais pas B ? Etrange!

[IFFIC]

Bonjour à tous

Au diable la honte de me planter pour si peu!
Mais que voulez-vous, j'aimerais préserver mes derniers cheveux.....

Voici l'objet du souci: Cf. Zip joint

Dim QTE As Integer
Dim LARG As Integer
Dim HAUT As Integer
Dim GENRE As String
Dim NOTARIF As Integer

Private Sub UserForm_Initialize()

Dim Derligne As Integer, Ling As Integer
Derligne = Sheets("Feuil1").Range("A65536").End(xlUp).Row
For Ling = 2 To Derligne

QTE = Worksheets("Feuil1").Cells(Ling, 2).Value
LARG = Worksheets("Feuil1").Cells(Ling, 3).Value
HAUT = Worksheets("Feuil1").Cells(Ling, 4).Value

If QTE > 9 Then
Worksheets("Feuil1").Cells(Ling, 5).Value =
QTE & " Chassis de " & LARG & " " & " x " & " " & HAUT
ElseIf QTE < 10 Then
Worksheets("Feuil1").Cells(Ling, 5).Value =
" " & QTE & " Chassis de " & LARG & " " & " x " & " " & HAUT
End If
Next Ling

Me.mesure.RowSource =
"Feuil1!E2:E" & Sheets("Feuil1").Cells(2, 1).End(xlDown).Row

End Sub

Private Sub FA1_Click()
NOTARIF = 2
'GENRE = ExecuteExcel4Macro("'C:\[ESSAI]TARIF" & NOTARIF & "'!R4C3")
GENRE = "à la française"
Sheets("Feuil1").Cells(2, 6).Value = QTE & " Chassis " & GENRE & " de " & Right(Me.mesure.Value, 13)

DET.Show (USF avec la listbox du résultat)

End Sub


J'ai tout tenté, même les menaces d'abandon, quand je valide le bouton "FA1":
en Cells 2,6, j'ai le bon résultat, mais toujours la dernière ligne de "QTE" ?

Un p'tit coup de main, s'il vous plait m'Sieurs Dames, je craque!

Ma calvitie et moi vous remercions par avance

Et bon Dimanche à vous


IFFIC

 

[brigitte]

Bonjour ami breton,


Alors quelles nouvelles, toujours dans tes formules abracadabresques !!
Je peux chatter sur le t'chat d'XLD maintenant, si tu y viens, nous pourrons papoter (si t'as le temps car là je vois que t'es très occupé).

 

[omicron]

Bonjour IFFIC

Le problème que tu rencontres est sans doute lié au fait que la propiriété Value est de type Variant alors que la fonction Right ne travaille que sur des variables de type String.

Il suffit donc dans ton code de faire la conversion et de mettre
Right(CStr(Me.mesure.Value), 13)
en remplacement de
Right(Me.mesure.Value, 13)

Private Sub FA1_Click()
NOTARIF = 2
'GENRE = ExecuteExcel4Macro("'C:\[ESSAI]TARIF" & NOTARIF & "'!R4C3")
GENRE = "à la française"
Sheets("Feuil1").Cells(2, 6).Value = QTE & " Chassis " & GENRE & " de " & Right(CStr(Me.mesure.Value), 13)
DET.Show
End Sub

Cordialement ...

 

[IFFIC]

Je suis comblé

De l'aide de omicrom et un "Coucou" sympa de Brigitte.

Pas beau l'Forum ???

Merci beaucoup à toi omicron, je vais réparer mon charabia

A bientôt Brigitte.

Bonne fin de "Fin de semaine" à tous

IFFIC

 

[IFFIC]

Omicron, c'est encore moi!

J'ai toujours le même souci....

Aurais-je loupé un truc ?

Désolé d'abuser de ta gentillesse....

IFFIC

 

[omicron]

Rebonjour IFFIC

Ton programme a un comportement normal (même si ce n'est pas celui que tu veux obtenir).

En effet la variable QTE est positionnée pour la dernière fois dans la séquence userform-initialize dans laquelle tu charges 1 à 1 les lignes de ta listbox. Quand tu quittes cette séquences (initialize) elle a la dernière valeur affectée c'est à dire 22.

Quand tu la réutilises dans la séquence FAI, elle est donc toujours à 22.
Pour aller plus loin il faudrait savoir ce que tu cherches à représenter par QTE :
- Le nombre de fenêtres de la commande correspondant à une certaine dimension indépendemment du type ?
- Le nombre de fenêtres de la commande correspondant à une certaine dimension et à un certain type ?
- Autre chose ?

En deux mots il faudrait dire à quelle moment tu choisis QTE et tu souhaites le mettre à jour.

Voilà ce que je peux faire pour l'instant.

A bientôt peut-être ....

 

[IFFIC]

He bien ami omicron,nous sommes bien plus près du Bonsoir que tu Bonjour. Je te présente donc les deux.

Dans FA1, je souhaite visualiser le choix fait dans la listBox:
c à d : la quantité inscrite dans la colonne 2 correspondant de la ligne
sur laquelle est correctement récupéré la Largeur (LARG) ainsi que la Hauteur (HAUT).

Il doit peut-être y avoir un peu de désordre dans mon processus
He! Pardon: Excellus. j'vais regarder...

Il s'agit de gérer un par un les chassis d'une liste.

Par la suite je me réfère à des tableaux où j'en récupère le prix.

Mon but était d'inscrire le choix dans une cellule pour pouvoir
l'exploiter, et de le visualiser (Comme dans "FA1") pour
m'assurer qu'il soit bon.

Ne te faches pas, j'suis pas doué, j'fais c'q peux!

Merci encore à toi, et bonne soirée

IFFIC

 

[Myta]

Salut IFFIC, Brigitte , Omicron et le Forum

Pour régler le probleme de la Quantité

Utilise :

Sheets("Feuil1").Cells(2, 6).Value = Left(CStr(Me.mesure.Value), 2) & " Chassis " & GENRE & " de " & Right(CStr(Me.mesure.Value), Len(Me.mesure.Value) - 3)

Mytå

 

[IFFIC]

Vingt Dieux, v'là qu'ils s'y mettent à trois.
(Faut au moins ça!!!)

Une adorable Brigitte pour le moral,
et deux pros pour m'empêcher de couler!

Finalement, dans Excel, ne serait-ce pas un peu comme dans la vie?

La façon de dire les choses est trèsimportante!

Bonsoir à Brigitte et Omicron s'ils suivent le fil.

Merci beaucoup à toi Myta, je vais reformuler.

Je ne manquerai pas de vous tenir au courant.

Bon début de nuit à tous, et que bonne semaine s'en suive.

IFFIC

 

[IFFIC]

Vous allez rire!!!

J'ai maintenant le bon texte dans ListBox, mais plus les quantités dans ma cellule "F2". Pffff!

Je sais que j'ai fait le bon choix, mais quand je vais multiplier mon prix par un "trou", cela ne va pas faire trop cher! (Même avec le meilleur "STXT")

Je vais faire la synthèse de tout ce vous venez de m'apprendre.
A moi de gérer la syntaxe.....!

Pépé avait du mal à monter les premières marches; vous m'avez aidé. Promis, je vais gambader jusqu'au prochain palier.

Amicalement et reconnaissant.

Encore merci à vous tous.

IFFIC

 

[IFFIC]

Je suis navré de ma bêtise Myta.

Ce n'était que l'alignement de ma cellule "F2" qui était centré
et qui m'interdisait d'avoir le texte entier !!!

Si ce n'est une caisse de "Chassis" que je vais devoir trier....

Tout est OK, Dors bien cher ami, et bon p'tit dèj. à toi.

IFFIC

 

[Myta]

Re IFFIC

Pour le déjeuner je vais attendre un peut

il n'est que 17 hres 25 de l'autre cote de l'atlantique

Myta(Du Quebec)

 

[brigitte]

Hello,


Un ti cadeau pour toi Iffic, rien que pour toi, un début d'image :



La semaine prochaine on t'en fera un animé, promis.... Mais le couteau suisse pour un breton, j'ai pensé que (j'ai vécu près de la Suisse, un clin d'oeil...)

 

[IFFIC]

Brigitte tu m'énerves !!!!!!!!!!!!!

J'ai l'air malin en libellule en panne de pilote automatique!

Non, mais!

J'fais comment maintenant pour ouvrir les huitres ???