/source/5794-combobox-et-textbox
Voici une facon plus clair ... et probablement plus rapide Private Sub Combo1_Click () Select Case (Combo1.text) Case "Paul" Text1.text = "100" Case "....." Text1.text = "......." End Select End Sub
/source/1510-bouger-une-form-a-partir-d-un-label-sans-cadre
voila : Dim drag As Boolean Dim lX As Long Dim lY As Long Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) drag = True lX = X lY = Y End Sub Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Not drag Then Exit Sub F...
/source/89-tester-la-presence-d-un-fichier-autre-methode
Tu peux essayer avec un file system object ... Public Function bPuGetIsFileExist(ByVal sFile As String) As Boolean On Error GoTo bPuErGetIsFileExist Dim fs As Object Set fs = CreateObject("Scripting.FileSystemObject") bPuGetIsFileExist = fs.FileExists(sFile) Exit Function bPuErGetIsFileExist: bPuGetIsFileExist = False ...