Userform utile lié au tableur

Bonjour à tous,

Voici le userform que j'ai créé,

Pièce jointe 217763

Etant débutant VBA j'aimerais savoir comment pouvoir le coder.

Afin de pouvoir selectionner sur mon tableur excel la cellule correspondante à la date et
l'heure choisi dans mon userform.

Pièce jointe 217764

Et enfin de pouvoir y écrire la valeur : 4500 .

Merci d'avance si vous voulez bien me donner un petit coup de main :)

Bonjour,

Je n'arrive pas à télécharger votre fichier .xlsm
Ne mettez aucun espace dans le nom de votre fichier car je crois que cela gêne le serveur. ;)
Dans le lien de téléchargement on dirait que "sim deb.xlsm" a été transformé en "sim-deb.xlsm".

CCMJoe

Bonjour,
Au vu des images publiées (je ne télécharge pas les classeurs)
Il faut réorganiser ton tableau.
Colonne A : Il faut placer une clé qui sera l'addition de la colonne B (Date) et C (Heure) soit

Code:

---

=B2 + C2

---

La colonne D étant la colonne où l'on écrira la valeur 4500
Attention, aucune cellule ne peut être fusionnée (ce qui semble être ton cas pour la colonne contenant les dates)
Dans le UserForm, le contrôle TextBox1 contient la Date et TextBox2 contient l'heure
Voici le code de la procédure événementielle

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub CommandButton1_Click() Dim Key As Double, fn As WorksheetFunction, rng As Range Dim nRow As Long Set rng = ThisWorkbook.Worksheets("Feuil1").Range("A1").CurrentRegion Set fn = Application.WorksheetFunction Key = CDate(Me.TextBox1) + CDate(Me.TextBox2) On Error Resume Next nRow = fn.Match(Key, rng.Resize(columnsize:=1), 0) On Error GoTo 0 If nRow = 0 Then MsgBox "Valeur non trouvée" Else rng.Cells(nRow, 4) = 4500 End If End Sub

---

Cette procédure cne ontrôle pas si TextBox1 et TextBox2 ont bien été encodées