Salut le forum
J'ai ce code pour modifier des données dans une feuille, mais cela me donne une erreur, je pense que cela viens du fait que j'utilise un combobox et que les données du combobox peu être amené a être modifiées.
Erreur définie par l'pplication ou par l'objet.
With Sheets("Base_tache")
.Range("B" & LigneModification) = cbxTache
.Range("C" & LigneModification) = txtModiSuppTarifTache
.Range("D" & LigneModification) = cbxunite
End With
'Trie de la Base_tache
Sheets("Base_tache").Range("B6").Sort Key1:=Sheets("Base_tache").Range("B6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'Sauve la Base de donnée "BddTache"
SauvegardeBddTache
'Message d'information modification des données et sauvegarde de la base de données
Msg4
'Initialise le ComboBox cbxTache
InitialiseCombobox
Je vous joint le fichier.
Merci et bon week end, G'Claire
J'ai ce code pour modifier des données dans une feuille, mais cela me donne une erreur, je pense que cela viens du fait que j'utilise un combobox et que les données du combobox peu être amené a être modifiées.
Erreur définie par l'pplication ou par l'objet.
With Sheets("Base_tache")
.Range("B" & LigneModification) = cbxTache
.Range("C" & LigneModification) = txtModiSuppTarifTache
.Range("D" & LigneModification) = cbxunite
End With
'Trie de la Base_tache
Sheets("Base_tache").Range("B6").Sort Key1:=Sheets("Base_tache").Range("B6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'Sauve la Base de donnée "BddTache"
SauvegardeBddTache
'Message d'information modification des données et sauvegarde de la base de données
Msg4
'Initialise le ComboBox cbxTache
InitialiseCombobox
Je vous joint le fichier.
Merci et bon week end, G'Claire