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

[guenfood]

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]

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]