Valeurs LBx vers feuille

Re à tous,

Vraiment désolé, j'ai beau essayer, ça bug

'************************************************************************
' Création des données dans ListView
'************************************************************************
Sub CreateModif(Lig)
   For C = 2 To 20
      Select Case C
         Case 2, 11, 15 To 20
            If IsDate(Controls("TextBox" & C).Value) Then
               Sh.Cells(Lig, C).Value = CDate(Controls("TextBox" & C).Value)
            End If
         Case Else
            Sh.Cells(Lig, C).Value = Controls("TextBox" & C).Value
'## Exemple code --> Sheets("Feuil1").[U1].Resize(, Me.ListBox1.ListCount) = Application.Transpose(Me.ListBox1.List)
'sabV
  'Sh.Cells(Lig, 21).Resize(Me.ListBox2.ListCount) = Application.Transpose(Me.ListBox2.List)
  'Sh.Cells(Lig, 21).Resize(, Me.ListBox2.ListCount) = Me.ListBox2.List

'thev
  'Sh.Cells(Lig, 21).Resize(Me.ListBox2.ListCount, Me.ListBox2.ColumnCount) = Me.ListBox2.List
  'With Me.ListBox2
  '     Sh.Cells(Lig, 21).Resize(.ListCount, .ColumnCount) = Application.Transpose(.List)
  'End With

      End Select
   Next
End Sub

Je vous joints le fichier à nouveau pour se rendre compte. je vois pas du tout ou cela peu bloquer !!!!

Oups !!

le fichier....

bonjour

si ses pour onglet Lieu Mission

ton case est pas bon mettre

Case 2, 5 To 10

A+

Maurice

Bonjour archer

Merci pour la rectification, en effet je ne l'avais pas vu.

A tout hasard, aurai tu une idée pour ma demande concernant la ListBox2 à enregistrer à partir de colonne U, à la suite des textbox car j'essai de faire depuis un moment mais n'y arrive pas .

je ne vois pas d'où viens l'erreur (je dois certainement oublier quelque chose)

Merci

Bonjour à tous,

pompaero, voici une autre possibilité en attendant de trouver le bug sur Transpose,

Sub CreateModif(Lig)
   For C = 2 To 20
      Select Case C
         Case 2, 11, 15 To 20
            If IsDate(Controls("TextBox" & C).Value) Then
               Sh.Cells(Lig, C).Value = CDate(Controls("TextBox" & C).Value)
            End If
         Case Else
            Sh.Cells(Lig, C).Value = Controls("TextBox" & C).Value

            For I = 0 To ListBox2.ListCount - 1
             Sh.Cells(Lig, 21 + I) = Me.ListBox2.List(I)
            Next I
      End Select

   Next
End Sub

Merci sabV

Tu me redonnes de l'espoir, ça fonctionne.

je vais essayer de trouver maintenant dans la macro "Lecture" de manière à récupérer les valeurs dans LBx2 à l'ouverture du U_CreatModifDispo

Je ne vois pas non plus, pourquoi le Transpose bug

Bonjour

pour écrire dans listbox2 a tester bien sur

Private Sub Lecture()
   For C = 1 To 20
      Select Case C
         Case 5 To 10
            Controls("TextBox" & C).Value = Format(Sh.Cells(Lig, C).Value, "hh:mm")
         Case 12 To 20
            Col = (C - 11)
            If Sh.Cells(Lig, C).Value = "X" Then Controls("CheckBox" & Col).Value = True
         Case Else
            Controls("TextBox" & C).Value = Sh.Cells(Lig, C).Value
      End Select
         If Flag = "S" Then
             Controls("TextBox" & C).Locked = True
             Controls("TextBox" & C).BackColor = &HC0C0FF
'             Else
'             Controls("TextBox" & C).BackColor = &H80000018
         End If
   Next
   For C = 21 To 23
      ListBox2.AddItem Sh.Cells(Lig, C)
   Next
End Sub

et pour CreateModif(Lig) évite de mettre les deux boucle imbriquer il faut les séparer ex:

Sub CreateModif(Lig)
   For C = 2 To 20
      Select Case C
         Case 2, 5 To 10
            If IsDate(Controls("TextBox" & C).Value) Then
               Sh.Cells(Lig, C).Value = CDate(Controls("TextBox" & C).Value)
            End If
         Case Else
            Sh.Cells(Lig, C).Value = Controls("TextBox" & C).Value
      End Select
   Next
For I = 0 To ListBox2.ListCount - 1
   Sh.Cells(Lig, 21 + I) = Me.ListBox2.List(I)
Next I

A+

Maurice

archer,

C'est bien noté pour les For qu'il faut les séparer.

Concernant le For C = 21 To 23 dans macro "Lecture" fonctionne mais le soucis est que ça me rempli la ListBox de ligne vide, je pensai perso plus tot à partir sur cette idée

For = sh.cells(Lig, 21 + I) mais pas trop sur de moi.

bonjour

il faut mettre une condition a tester HI

A voir

   
For C = 21 To 23
      If Sh.Cells(Lig, C) <> "" Then
         ListBox2.AddItem Sh.Cells(Lig, C)
      End If
   Next

A+

Maurice