Discussion :

[BENNASR]

Bonjour TLM
J'ai 24 ComboBox dans un userform. 12 pour les montants estimatifs (de: mnt_est1 à mnt_est12) et 12 pour les montant réel (de mnt_r1 à mnt_r12)
j'ai procédé de la manière suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
if mnt_r1<>"" then
x1=mnt_r1
else
x1=mnt_est1
end if
X=x1+x2+.......x12

j'ai fait ca pour les douze ligne
j'espère faire ca avec boucle et que les montants insérés vers Excel soient en format trois chiffres après virgule
merci d'avance pour votre aide

[Invité]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim X As Double
For i = 1 To 12
   X = X + CDbl(Replace(Me.Controls("ComboBox" & i), ".", ","))
Next
Cells(1, 1) = Format(X, "#0.0000")

[Thautheme]

Bonjour Bennasr, bonjour le forum,

J'ai ouvert le fichier que tu as mis en pièce jointe dans l'autre fil que tu as posté. Il n'y a pas 24 comboboxes mais au mois 74 ! Les unes sont par-dessus les autres. Commence par faire du vide en proposant une UserForm cohérente et on verra après pour le code...

[Invité]

Bonjour Thauthème,
tu as joué les détective?

[BENNASR]

c'est le travail d'un débutant...merci bien de votre générosité...et merci pour votre aide...je teste le code ..
MR le défectif :j'ai fait ça mais ça recommence tjrs à multiplier les combobox !! et un coup de pousse de votre part sur tous le projet ça sera un grand plaisir pour moi

[Thautheme]

Bonjour le fil, bonjour le forum,

Bon... J'ai supprimé tous les contrôles en doublon et renommé certains (tu adapteras pour le reste du code). La combobox matière n'est plus alimentée par sa propriété [RowSource] mais une plage dynamique Type1 à l'aide de la formule Décaler (voir le Gestionnaire de Noms), à l'initialisation de l'UserForm. Les contrôles ont leur propriété [TabIndex] ordonnée pour que l'utilisateur passe d'un contrôle à l'autre à l'aide de la touche [Tab]. Les montants ont par défaut une valeur nulle.
Regarde les boucles du bouton Calculer si ça te convient...

@Robert : appelle-moi Hercule Poivrot !

[BENNASR]

Monsieur UN GRAND MERCI
MON RESPECT