Création d'un USF de saisie complémentaire

guenfood · 22 Avril 2006

Bonjour,

J'ai un fichier excel avec des données dans plusieurs colonnes.

La colonne A contenant les numéros de dossiers.

Je souhaiterai créer un USF pour lequel en entrant le numéro du dossier dans une Textbox, et en saisissant des données dans 4 autres Textbox (Date de prise en charge, date de réponse, collaborateur et commentaire), la ligne de mon dossier sélectionné soit incrémenté dans les colonnes respectives des données saisies(ex: date de prise en charge dans colonne 15, date de réponse dans colonne 17, commentaire dans colonne 18, et collaborateur dans colonne 20).

Comment faire ?

Merci par avance.

_Thierry · 22 Avril 2006

Bonjour GuenFood, le Forum

Ici une Démo de base :

Lien supprimé

On pourra assez facilement l'adapter à ton cas pour des Colonnes différentes !

Il suffit de changer les Codes suivants :

Dans la Macro 'ComboBox1_Click'

Private Sub ComboBox1_Click()
If Me.ComboBox1.ListIndex = -1 Then Exit Sub 'ON sort si pas de sélection

TextBox1 = WS.Range('O' & Me.ComboBox1.ListIndex + 2)
TextBox2 = WS.Range('Q' & Me.ComboBox1.ListIndex + 2)
ComboBox2 = WS.Range('R' & Me.ComboBox1.ListIndex + 2)

Puis dans la Macro 'CmdAjouter_Click'

'ici avec la Feuille on va faire :
With WS
.Range('A' & L) = ComboBox1 ' On écrit dans chaque colonne les valeurs des différents controls
.Range('O' & L) = TextBox1 ' Idem
.Range('Q' & L) = TextBox2 ' Idem
.Range('R' & L) = ComboBox2 ' Idem
End With

Puis dans 'CmdModif_Click' :

'ici avec la Feuille on va faire :
With WS
.Range('A' & Me.ComboBox1.ListIndex + 2) = ComboBox1
.Range('O' & Me.ComboBox1.ListIndex + 2) = TextBox1
.Range('Q' & Me.ComboBox1.ListIndex + 2) = TextBox2
.Range('R' & Me.ComboBox1.ListIndex + 2) = ComboBox2
End With

Bonne Soirée et bon courage
[ol]@+Thierry[/ol]

Création d'un USF de saisie complémentaire

guenfood

XLDnaute Occasionnel

_Thierry

XLDnaute Barbatruc

Discussions similaires