Bonjour à tous,
en cette milieu de nuit (03:20 du mat), je ne trouve rien de mieux que d'essayer de simplifier le code d'une de mes macros sans succès, donc je vais vous expliquer mon problème et donner mon code de base.
J'ai actuellement un Userform avec une 12zaine de textbox qui cible des cellules précises en fonction d'une combobox avec les mois de l'année.
seulement quand je vois le code que j'ai fait pour 1 textbox, c'est un peu lourd de devoir le répéter pour toutes.
Je précise que les colonnes et les lignes seront toujours les mêmes (normalement), seul le feuillet peut changer grâce à une autre combobox.
Comment je remplis ma combobox avec les mois :
Comment je rempli mes cellules avec les textbox :
Bref, je peux me contenter de refaire cette partie de code 12 fois mais je dois changer une ligne ou une colonne, j'aimerais m'éviter de faire potentiellement 144 modifications dans le code (12 mois x 12 textbox).
Donc si vous avez des pistes pour simplifier ça, je suis preneur et vous en remercie d'avance.
en cette milieu de nuit (03:20 du mat), je ne trouve rien de mieux que d'essayer de simplifier le code d'une de mes macros sans succès, donc je vais vous expliquer mon problème et donner mon code de base.
J'ai actuellement un Userform avec une 12zaine de textbox qui cible des cellules précises en fonction d'une combobox avec les mois de l'année.
seulement quand je vois le code que j'ai fait pour 1 textbox, c'est un peu lourd de devoir le répéter pour toutes.
Je précise que les colonnes et les lignes seront toujours les mêmes (normalement), seul le feuillet peut changer grâce à une autre combobox.
Comment je remplis ma combobox avec les mois :
Code:
Me.mois_choix.AddItem "Janvier"
Me.mois_choix.AddItem "Février"
Me.mois_choix.AddItem "Mars"
Me.mois_choix.AddItem "Avril"
Me.mois_choix.AddItem "Mai"
Me.mois_choix.AddItem "Juin"
Me.mois_choix.AddItem "Juillet"
Me.mois_choix.AddItem "Août"
Me.mois_choix.AddItem "Septembre"
Me.mois_choix.AddItem "Octobre"
Me.mois_choix.AddItem "Novembre"
Me.mois_choix.AddItem "Décembre"
Comment je rempli mes cellules avec les textbox :
Code:
Private Sub save_Click()
'code pour Textbox app1, encore 11 à faire
If mois_choix.Value = "Janvier" Then
Range("D22") = app1_valeur.Value
Else
If mois_choix.Value = "Février" Then
Range("E22") = app1_valeur.Value
Else
If mois_choix.Value = "Mars" Then
Range("F22") = app1_valeur.Value
Else
If mois_choix.Value = "Avril" Then
Range("G22") = app1_valeur.Value
Else
If mois_choix.Value = "Mai" Then
Range("H22") = app1_valeur.Value
Else
If mois_choix.Value = "Juin" Then
Range("I22") = app1_valeur.Value
Else
If mois_choix.Value = "Juillet" Then
Range("J22") = app1_valeur.Value
Else
If mois_choix.Value = "Août" Then
Range("K22") = app1_valeur.Value
Else
If mois_choix.Value = "Septembre" Then
Range("L22") = app1_valeur.Value
Else
If mois_choix.Value = "Octobre" Then
Range("M22") = app1_valeur.Value
Else
If mois_choix.Value = "Novembre" Then
Range("N22") = app1_valeur.Value
Else
If mois_choix.Value = "Décembre" Then
Range("O22") = app1_valeur.Value
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
Bref, je peux me contenter de refaire cette partie de code 12 fois mais je dois changer une ligne ou une colonne, j'aimerais m'éviter de faire potentiellement 144 modifications dans le code (12 mois x 12 textbox).
Donc si vous avez des pistes pour simplifier ça, je suis preneur et vous en remercie d'avance.