Re: => DEMO UserForm LIstBox Drag N Drop vers Multi ListBoxes pour Planning Auto
Re Bonjour Eric, Bernard, Salim, le Forum
Petite Question Eric, vu que tu écris : "Sinon oui la version initiale fonctionne" il me faudrait alors une confirmation exacte du moment précis où tu as un plantage sur ta machine ?
Car plus haut tu as écrit "Donc le problème est ailleurs car lorsque j'appuie sur le Bouton de lancement du USF, une boîte de dialogue m'avise que l'application va se fermer ????"
Quelque chose me chiffonne là car voici les Deux Procédures d'Intialisation :
VERSION : USF_Drag_N_Drop_Planning.xls Qui Fonctionne Pour Eric
=> Private Module de Feuille "Home"
Option Explicit
Private Sub CommandButton1_Click()
Me.Range("B17:I33").ClearContents
With UserForm1
.StartUpPosition = 3
.Show
End With
End Sub
=> Private Module du UserForm1
Option Explicit
'Thierry's Macro Démo sur Excel-Downloads.com, July 2003
Private Sub UserForm_Initialize()
Dim i As Integer, y As Integer
Me.Caption = X
For i = 2 To Sheets("Base").Range("A1").End(xlDown).Row
y = i - 2
With ListBox1
.AddItem Sheets("base").Range("A" & i).Value
End With
Next i
End Sub
VERSION : USF_Drag_N_Drop_Planning-V01.00.xls : Qui ne Fonctionne Pas Pour Eric[/b]
=> Private Module de Feuille "Home"
Option Explicit
Private Sub CommandButton1_Click()
Me.Range("B17:I33").ClearContents
With UserForm1
.StartUpPosition = 3
.Show
End With
End Sub
=> Private Module du UserForm1
Option Explicit
'Thierry's Macro Démo sur Excel-Downloads.com, July 2003
Private LbxNum As Byte
Private Sub UserForm_Initialize()
Dim i As Integer, y As Integer
Me.Caption = X
For i = 2 To Sheets("Base").Range("A1").End(xlDown).Row
y = i - 2
With Lbx1
.AddItem Sheets("base").Range("A" & i).Value
End With
Next i
End Sub
Mis à part Cette Variable LbxNum Publique Niveau Private Module (qui ne risque pas de faire planter même une pomme de terre), il n'y a strictement aucune différence et par conséquent quelque chose m'échappe sérieusement si ce plantage à lieu au moment du Click sur le CommandButton1 de la Feuille "Home"...
Pour l'instant j'attends de voir si d'autres Intervenants/Intervenantes du Forum peuvent tester cette version Lien supprimé car c'est impossible de te répondre.
Par avance merci à ceux et celles qui voudront bien essayer et nous informer des résultats en indiquant Version d'Excel et Windows.
Bonne Journée
@+Thierry