Modif de donnée via USERFORM...SOS..SOS

[Yochma]

Bonjour à Toutes et à tous!!

Voila les Z"amis j'ai un petit "souchi" avec un formulaire!!!

J'aimerai que dans mon fichier joint à ce message (alim.zip), quand je change les valeurs des données qui apparaissent pour l'age et la couleur ça change automatiquement les valeurs de ma base mais je n'y arrive pas......snif :-[!!!

Y aurai t'il un VBAtien ou une VBAtienne pour me venir en aide et me montrer dans mon fichier comment faire.

Merci plein et aussi beaucoup.


Bonne journée à toute la tribu!!!!!



Yochma le VBAtien sauvage!!

 

[Ti]

remplace toutes les macros de ton formulaire par celles-ci et ça ira. Et un conseil, donne des noms caractéristiques à tes contrôles, sinon tu t'y perdras vite.

Option Explicit
'Ti

Dim Ws As Worksheet, Plage As Range
Dim ListeCoul, ListeNotes

Private Sub CommandButton1_Click()
With Plage
.Offset(0, 1) = ListeNotes
.Offset(0, 2) = ListeCoul
End With
Unload Me
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub Liste_Click()
Dim Index As Long
Index = Liste.ListIndex
If Index >= 0 Then
TextBox1.Text = ListeNotes(Index + 1, 1)
TextBox2.Text = ListeCoul(Index + 1, 1)
End If
End Sub

Private Sub TextBox1_Change()
Dim Index As Long
Index = Liste.ListIndex
If Index >= 0 Then ListeNotes(Index + 1, 1) = TextBox1.Text
End Sub

Private Sub TextBox2_Change()
Dim Index As Long
Index = Liste.ListIndex
If Index >= 0 Then ListeCoul(Index + 1, 1) = TextBox2.Text
End Sub

Private Sub UserForm_initialize()
Set Ws = ThisWorkbook.Sheets("feuil1")
With Ws
Set Plage = .Range("A2", .Range("A2").End(xlDown))
ListeNotes = Plage.Offset(0, 1).Value
ListeCoul = Plage.Offset(0, 2).Value
Liste.List = Plage.Value
Liste.ListIndex = 0
End With
End Sub

 

[Yochma]

Merci Monsieur l'artiste TI Chapeau bas çà fonctionne terrible