[XL-2013] Problème copie données calulées dans tableau en VBA

1 pièce(s) jointe(s)

Problème copie données calulées dans tableau en VBA

Bonjour à tous

Piètre bricoleur, je bloque sur un code qui me permette de récupérer des données calculée à partit d'un tableau, alimenté et modifié à partir de 2 Userform (Merci à ceux qui m'ont bien aidé sur le précédent post) et les collé en valeur fixe en dernière colonne de ce même tableau.
Ci-joint fichier exemple
Joël

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub CmdModifier_Click()
 
    ' Modifier
    Dim Ctrl As Control
    Dim Colonne As Integer
    Dim Ligne As Long
 
     If Me.CboDate.ListIndex = -1 Then Exit Sub
     Ligne = Me.CboDate.ListIndex + 4
     With Sheets("Données")
         For Each Ctrl In Me.Controls
             Colonne = Val(Ctrl.Tag)
             If Colonne > 0 Then
                   .Cells(Ligne, Colonne) = TrouveType(Ctrl)
                 End If
                      Next Ctrl
             .Cells(Ligne, Sheets("Données").UsedRange.Columns.Count) = Sheets("Feuil1").Range("C24")
     End With
   Unload Me
 
End Sub

1 pièce(s) jointe(s)

Re
Merci
Le code fonctionne impeccable et réponds à la question posée .
Par contre à l'usage je m'aperçois que la combobox "CboDate " me provoque des erreurs dans mes données. Pour y remédiez je souhaiterais remplacer la combobox pour une textbox, mais je ne parviens pas à modifier le code.
Il faudrai que la textbox se charge de la date de la cellule feuil1 F7 afin de pouvoir modifier le lignes corespondante de la feuille Données.
ci-dessous le code qui fonctionne bien avec la combobox mais que je parviens pas à modifier en textbox et le classeur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
 
Option Explicit
Dim Ligne As Long
 
 
Private Sub UserForm_Initialize()
'CboDate = Date_Visite
Dim J As Long
 
  With Sheets("Données")
    For J = 4 To .Range("A" & Rows.Count).End(xlUp).Row
      Me.CboDate.AddItem .Range("A" & J)
    Next J
  End With
 
CboDate.Value = Format(CboDate.Value, "dd/mm/yy")
End Sub
 
Private Sub CboDate_Change()
Dim Ctrl As Control
Dim Colonne As Integer
 
  If Me.CboDate.ListIndex = -1 Then Exit Sub
  With Sheets("Données")
    Ligne = Me.CboDate.ListIndex + 4
    For Each Ctrl In Me.Controls
      Colonne = CInt("0" & Ctrl.Tag)
      If Colonne > 0 Then Ctrl = .Cells(Ligne, Colonne)
    Next Ctrl
  End With
End Sub
Function TrouveType(V)
TrouveType = V
If IsDate(TrouveType) = True And InStr(TrouveType, "/") <> 0 And InStr(TrouveType, ":") <> 0 Then TrouveType = Format(TrouveType, "yyyy-mm-dd hh:mm"): Exit Function
If IsDate(TrouveType) = True And InStr(TrouveType, "/") <> 0 Then TrouveType = Format(TrouveType, "yyyy-mm-dd"): Exit Function
If IsNumeric(Replace(TrouveType, ".", ",")) = True Then TrouveType = Replace(TrouveType, ",", "."): Exit Function
End Function
 
 
Private Sub CmdModifier_Click()
 
    ' Modifier
    Dim Ctrl As Control
    Dim Colonne As Integer
    Dim Ligne As Long
 
     If Me.CboDate.ListIndex = -1 Then Exit Sub
     Ligne = Me.CboDate.ListIndex + 4
     With Sheets("Données")
         For Each Ctrl In Me.Controls
             Colonne = Val(Ctrl.Tag)
             If Colonne > 0 Then
                   .Cells(Ligne, Colonne) = TrouveType(Ctrl)
                 End If
                      Next Ctrl
             .Cells(Ligne, Sheets("Données").UsedRange.Columns.Count) = Sheets("Feuil1").Range("C24")
     End With
   Unload Me
 
End Sub
 
 
Private Sub CmdAnnuler_Click()
Unload Me
End Sub

Cdt
Joël

Bonjour
La question posée initialement étant réglée, Je clos le sujet.
Je vais récréer un post pour la seconde partie de remplacement combobox.
Merci de votre aide.
Joël