Comment rationaliser code et pblm calcul

[Alguiche]

Bonjour à tous,

Dans le fichier ci-joint je voudrais savoir s'il est possible de rationaliser mon code avec des boucles, et comment, sachant que j’ai deux groupes de 8 lignes dans mon userform.

Pour le calcul en relation avec l’unité de mesure je ne vois pas comment soit utiliser un tableau comme référence soit alors passer par une procédure select case. Serait-ce une solution et comment la mettre en œuvre ?

Enfin dans la macro lancée par le bouton 'Valider' je n'arrive pas à ce qu'elle mette dans ma cellule mon nombre en format numérique avec toutes les décimales; CDec et autres CTruc me renvoient soit des erreurs ou me tronquent les décimales….

Merci d'avance aux Exceliens qui pourront m'aider
A+
Al [file name=CalQuant_060506114003.zip size=13615]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CalQuant_060506114003.zip[/file]

 

[AeroPlanneur]

bonjour Alguiche,

Private Sub UserForm_Initialize()
With ComboBox1
.RowSource = 'Feuil1!D1😀6'
End With

With ComboBox2
.RowSource = 'Feuil1!D1😀6'
End With
End Sub


Sub CalQt1()
TextBox3.Value = Val(TextBox1) * Val(TextBox2) * Range('E' & (IIf(ComboBox1.ListIndex > 0, ComboBox1.ListIndex + 1, 1)))
End Sub

CalQt2() peut être construit de la même façon.
D'autres contributeurs simplifieront encore certainement ces macros

Cordialement

 

[CBernardT]

Bonjour Alguiche et AeroPlanneur,

Joint le fichier avec quelques modifications.

Cordialement

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

 

[porcinet82]

Salut AeroPlanneur, re CBernardT,

Comme j'etais egalement en train de preparer un petit quelque chose, je le post egalement, d'autant que nos modifications sont différentes.


@+ [file name=CalQuant.zip size=14897]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CalQuant.zip[/file]

 

[Alguiche]

Salut AeroPlanneur,

Merci pour ton code, il fonctionne bien et j'en ai profiter pour rendre la liste dynamique car cela pourra m'être utile.

Merci encore et bon week-end
Al

 

[Alguiche]

Salut Porcinet et Bernard,

Merci pour votre aide. Il va falloir que j'étudie vos codes pour bien les comprendre et pouvoir les transposer dans mon projet final, mais à première vue ça va m'être très utile.

Cependant avec vos deux codes ça plante quand je valide mes données à cause de CDbl, comme j'ai eu les mêmes problèmes je me demande si je n'est pas un problème particulier avec mon Excel. Est-ce que l'un de vous aurait une explication ou du moins déjà entendu qqchose à ce sujet.

Merci encore pour votre aide
Al

 

[Alguiche]

Bonjour à tous,

En fait il me met erreur 13
Incompatibilité de type ??????

Je ne comprends pas
A l'aide
Al

 

[CBernardT]

Re,

J'ai testé sur Excel 2000 et 2003 et les deux version accepte Cdbl.

Incompatibilité de type veut dire généralement qu'une variable est mal déclarée.

Cordialement

Bernard