Private Sub TextBox1_Change()
If ComboBox1 <> "" Then
Cells(ComboBox1.ListIndex + 2, 12) = TextBox1 * 1
End If
End Sub
Private Sub TextBox1_Change()
If ComboBox1 <> "" And TextBox1 <> "" Then
Cells(ComboBox1.ListIndex + 7, 13) = TextBox1 * 1
End If
End Sub
REMODIFIE ou saboté ???REVOICI NOTRE FICHIER REMODIFIE.
je me doutais bien que les TBox 2 & 3 qui alimentaient les cellules fusionnées ne servaient absolument à rienil y a une List view sous les sélections LIBELLES/ MONTANTS
on les déprotège avant pardi ........... et on les reprotège aprèscomment faire pour que les macros contournent l'erreur d'execution 1004 c'est a dire lorsque les cellules sont protégés.
lorsqu'on veut se lancer dans un grand projet, il faut commencer par avoir une idée précise du fonctionnement de l'ensembleune seule feuille jusqu'à l'instant: comment procéder si nous avions plusieurs dizaines voire plus d'une centaine de feuilles dans un seul et unique classeur