Calcul automatique

[PetitClaude]

Bonjour à tous,

Je vous joint mon fichier qui vous donneras toutes les explications à mon problème.

Je vous en remercie d'avance.

PetitClaude [file name=Classeur1_20050919192309.zip size=15301]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050919192309.zip[/file]

 

[Robert]

Bonjour PetitClaude, bonjour le forum,

je te propose d'actualiser T1 à chaque changement dans une ComboBox. Il te faudra rajouter la ligne à toutes les Comboboxes :

Private Sub ComboBox13_Change()
With Sheets('base')
.Range('C1').Value = ComboBox13.Value
USF.Label9 = .Range('T1')
Exit Sub
End With
End Sub

Par ailleurs le Exit Sub n'est pas vraiment nécessaire puisqu'il arrive en fin de code. Moi je le supprimerai...

 

[PetitClaude]

Bonjour Robert et le forum,

Superbe Robert , je te remercie beaucoup.

J'ai supprimer aussi Exit Sub.

Tout fonctionne correctement.

Bonne fin de journée à toi et au forum

PetitClaude