Bonjour le forum, je suis désolés de remettre mon post mais l'ancien est partie dans les meandres de cet enorme forum d'aide.
Ce programme est fait a partir d'ungénéreux morceaux de programme donné par BEBERE
Mais, modifié, il ne veut plus marcher, pourriez vous m'aider s'il vous plait :
Private Sub ListBox1_DblClick(ByVal Cancel As
Workbooks.Open ('c:\\fichier.xls')
Dim classeurDestination As Workbook
Dim feuilleDestination As Worksheet
Set classeurDestination = Workbooks('fichier.xls')
Set feuilleDestination = classeurDestination.Worksheets('DEMANDES')
MSForms.ReturnBoolean)
Dim Plg As Variant, I As Integer, L As Integer
With ListBox1
For I = à To .ListCount - 1
If .Selected(I) = True Then
L = I + 2
Exit For
End If
Next I
End With
With Worksheets('DEMANDES')
Plg = .Range('A' & L & ':O' & L)
End With
rem ----------------------
rem c'est a partir d'ici que cela ne fonctionne plus.
rem En fait, je souhaiterai qu'il rappel toutes les infos presnetes dans la ligne selectionnée dans la listbox de la façon suivante :
nom.Text = cellule 1
prenom.Text = cellule 2
date.Text = cellule 3
statut.Text = cellule 4
combobox1.Text = cellule 5
etc...
fin du rappel des cellules
rem ----------------------
end sub
MERCI de votre temps a lire mon post
Ce programme est fait a partir d'ungénéreux morceaux de programme donné par BEBERE
Mais, modifié, il ne veut plus marcher, pourriez vous m'aider s'il vous plait :
Private Sub ListBox1_DblClick(ByVal Cancel As
Workbooks.Open ('c:\\fichier.xls')
Dim classeurDestination As Workbook
Dim feuilleDestination As Worksheet
Set classeurDestination = Workbooks('fichier.xls')
Set feuilleDestination = classeurDestination.Worksheets('DEMANDES')
MSForms.ReturnBoolean)
Dim Plg As Variant, I As Integer, L As Integer
With ListBox1
For I = à To .ListCount - 1
If .Selected(I) = True Then
L = I + 2
Exit For
End If
Next I
End With
With Worksheets('DEMANDES')
Plg = .Range('A' & L & ':O' & L)
End With
rem ----------------------
rem c'est a partir d'ici que cela ne fonctionne plus.
rem En fait, je souhaiterai qu'il rappel toutes les infos presnetes dans la ligne selectionnée dans la listbox de la façon suivante :
nom.Text = cellule 1
prenom.Text = cellule 2
date.Text = cellule 3
statut.Text = cellule 4
combobox1.Text = cellule 5
etc...
fin du rappel des cellules
rem ----------------------
end sub
MERCI de votre temps a lire mon post