Discussion :

[lamina008]

Bonjour à tous,

je suis novice en VBA et je lance un appel à l'aide à la communauté pour m'aider dans mon code sur un userform.

Mon userform2 (cf. image=Multipage1) permet à l'utilisateur de sélectionner des données dans un autre classeur WorkbooK.
Le bouton "Open File" permet à l'utilisateur d'ouvrir le workbook contenant les données qui seront copiées/collées.

Le bouton "Get data" lance une macro GETDATA qui appelle le userform6 (cf.Image) qui contient le refEdit permettant à l'utilisateur de sélectionner la plage de data de son choix dans le workbook choisi par "Open File".

le userform6 est appelé autant de fois qu'il ya d'items dans la liste Box 2.
La première sélection avec RefEdit se passe sans bug :la plage de cellules est bien enregistrée puis copiée/collée dans le classeur de travail, mais
à partir du second appel du userform6, le RefEdit bugue: il n'est plus possible de changer de feuille du classeur actif, et aucune nouvelle plage de cellules ne peut être sélectionnée même dans la feuille active.

est ce que quelqu'un aurait une idée sur le sujet ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub UserForm_Initialize()
 
''Function IsopenW pour savoir si le Workbook dont le nom est contenue dans la variable FullFileName2 est ouvert ou non 
'' UF2getvalue2Lab1 : nom du contrôle Label du userform6 
 
''UF2getvalue2Refedit : nom du contrôle refEdit du Userform6
 
If IsopenW(Dir(FullFileName2)) = False Then
    Workbooks.Open FullFileName2
End If
 
Workbooks(Dir(FullFileName2)).Activate
Set webimport1 = Nothing
UF2getvalue2Lab1 = "In process : " & diseasename1 & " for " & mystrategyselection
UF2getvalue2Refedit.Value = ""
End Sub

Merci beaucoup pour vos réponses par avance