Modification de données impossible
p
Bonjour
Je me permets de faire appel de nouveau a vos aides
j'essaie de me créer un fichier afin de gérer le contenu de ma cave. Dans la page Accueil j'ai un onglet "Modification". Ce dernier me permet de changer soit l'emplacement de mes vins , la quantité restante et d'autres informations j'ai un problème avec le bouton valider modification, en effet seule la textbox quantite (TxtQuantité) est modifiable, je ne peux pas modifier les autres je ne comprends pas pourquoi. Merci par avance de votre aide Cordialement
Je me permets de faire appel de nouveau a vos aides
j'essaie de me créer un fichier afin de gérer le contenu de ma cave. Dans la page Accueil j'ai un onglet "Modification". Ce dernier me permet de changer soit l'emplacement de mes vins , la quantité restante et d'autres informations j'ai un problème avec le bouton valider modification, en effet seule la textbox quantite (TxtQuantité) est modifiable, je ne peux pas modifier les autres je ne comprends pas pourquoi. Merci par avance de votre aide Cordialement
E
Bonjour,
Ci-joint un test mais il faut cliquer sur une des texts box après selection de la combobox :
Private Sub BtnModification_Click()
' valider les modifications
Dim no_ligne As Integer
Application.EnableEvents = False
With Worksheets("LaCave")
no_ligne = ComboBox1.ListIndex + 6
If IsEmpty(Me.ComboBox1) Then
MsgBox ("Veuillez remplir le champs de la recherche")
Else
' modification donnée Vin
EMP = Me.TxtEmplacement
.Cells(no_ligne, 7) = Me.TxtQuantite
.Cells(no_ligne, 8) = Me.TxtEmplacement
.Cells(no_ligne, 15) = Me.TxtFixe
.Cells(no_ligne, 14) = Me.TxtPortable
.Cells(no_ligne, 16) = Me.TxtMail
.Cells(no_ligne, 17) = Me.TxtInternet
.Cells(no_ligne, 19) = Me.TxtInformation
End If
End With
Application.EnableEvents = True
End Sub
Private Sub ComboBox1_AfterUpdate()
'RECHERCHE D'un vin
Sheets("LaCave").Activate
Dim no_ligne As Integer
no_ligne = ComboBox1.ListIndex + 6
TxtQuantite = Cells(no_ligne, 7).Value
TxtEmplacement = Cells(no_ligne, 8).Value
TxtFixe = Cells(no_ligne, 15).Value
TxtPortable = Cells(no_ligne, 14).Value
TxtMail = Cells(no_ligne, 16).Value
TxtInternet = Cells(no_ligne, 17).Value
TxtInformation = Cells(no_ligne, 19).Value
End SubJ'ai compris qu'après la mise à jour de la première textbox sur la feuille LaCave cela redéclenche la macro Combobox1_Change mais je n'ai pas l'explication ... Si quelqu'un l'a je suis aussi preneur. Même avec un Application.EnableEvents cela ne change rien .. Je sèche ..
Cdlt,