Discussion :

[Didi13170]

Bonjour à tous,

Voici le userform que j'ai créé,



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.



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

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

[pythonjoe]

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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