Bonjour le Forum
Toujours sur la même application je cherche a simplifiez un morceau de code .que voici
je pense qu’on peut faire une boucle sur sa car se n'est qu'un exemple de une colonne sachant que je doit remplir 15 colonne ainsi
merci de m'aidez
MacMac....
Toujours sur la même application je cherche a simplifiez un morceau de code .que voici
Code:
Sheets("Cumul Mois").Range("C3") = Sheets("Cumul Mois").Range("C3") + Val(ComboBox_J22.Value)
Sheets("Cumul Mois").Range("C4") = Sheets("Cumul Mois").Range("C4") + Val(ComboBox_J23.Value)
Sheets("Cumul Mois").Range("C5") = Sheets("Cumul Mois").Range("C5") + Val(ComboBox_J24.Value)
Sheets("Cumul Mois").Range("C6") = Sheets("Cumul Mois").Range("C6") + Val(ComboBox_J25.Value)
Sheets("Cumul Mois").Range("C7") = Sheets("Cumul Mois").Range("C7") + Val(ComboBox_J26.Value)
Sheets("Cumul Mois").Range("C8") = Sheets("Cumul Mois").Range("C8") + Val(ComboBox_J27.Value)
Sheets("Cumul Mois").Range("C9") = Sheets("Cumul Mois").Range("C9") + Val(ComboBox_J28.Value)
Sheets("Cumul Mois").Range("C10") = Sheets("Cumul Mois").Range("C10") + Val(ComboBox_J29.Value)
Sheets("Cumul Mois").Range("C11") = Sheets("Cumul Mois").Range("C11") + Val(ComboBox_J30.Value)
Sheets("Cumul Mois").Range("C12") = Sheets("Cumul Mois").Range("C12") + Val(ComboBox_J31.Value)
Sheets("Cumul Mois").Range("C13") = Sheets("Cumul Mois").Range("C13") + Val(ComboBox_J32.Value)
Sheets("Cumul Mois").Range("C14") = Sheets("Cumul Mois").Range("C14") + Val(ComboBox_J33.Value)
Sheets("Cumul Mois").Range("C15") = Sheets("Cumul Mois").Range("C15") + Val(ComboBox_J34.Value)
Sheets("Cumul Mois").Range("C16") = Sheets("Cumul Mois").Range("C16") + Val(ComboBox_J35.Value)
Sheets("Cumul Mois").Range("C17") = Sheets("Cumul Mois").Range("C17") + Val(ComboBox_J36.Value)
Sheets("Cumul Mois").Range("C18") = Sheets("Cumul Mois").Range("C18") + Val(ComboBox_J37.Value)
Sheets("Cumul Mois").Range("C19") = Sheets("Cumul Mois").Range("C19") + Val(ComboBox_J38.Value)
Sheets("Cumul Mois").Range("C20") = Sheets("Cumul Mois").Range("C20") + Val(ComboBox_J39.Value)
Sheets("Cumul Mois").Range("C21") = Sheets("Cumul Mois").Range("C21") + Val(ComboBox_J40.Value)
je pense qu’on peut faire une boucle sur sa car se n'est qu'un exemple de une colonne sachant que je doit remplir 15 colonne ainsi
merci de m'aidez
MacMac....