Discussion :

[Cha'Mallow]

Bonjour à tous,

J'essaie tout de même malgré une première question toujours sans réponse après plusieurs jours

Je rencontre un problème avec mon userform comme indiqué dans le titre je vais essayer d'être claire dans mon explication :

J'ai un fichier Excel avec un code VBA et un userform qui s'ouvre lorsque je clique sur certaine cellule (c'est pour rentrer une date je ne sais pas si cela vous aide...)
Au début du tableau tout se passe nickel mais plus je descend dans le tableau et plus la fenêtre de l'userform s'ouvre en bas de mon écran et je suis obliger de le remonter pour pouvoir sélectionner ma date...
Seulement voila arriver à certaine ligne du tableau je ne vois plus du tout l'userform mais je sais qu'il s'ouvre car si je fais entre sa m'entre la date d'aujourd'hui et impossible de faire descendre puisque la fenêtre est ouverte...

Je voulais savoir s'il existait une solution pour que la fenêtre s'ouvre à un endroit précis (à côté de la cellule sélectionner)

Voila j'espère avoir été claire et que cette fois ci j'obtiendrais (au moins) une réponse

Merci à tous bonne journée

[joe.levrai]

Bonjour,

je soupçonne un (mauvais) mécanisme qui positionne l'userform en fonction de la cellule qui est cliquée

peux-tu nous montrer la procédure évènementielle qui appelle le Userform + la procédure Initialize/Load/Activate dudit Userform ?

[Cha'Mallow]

Bonjour et merci de votre réponse

peux-tu nous montrer la procédure évènementielle qui appelle le Userform + la procédure Initialize/Load/Activate dudit Userform ?

Code pour appeler le Userform

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
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Worksheet_selectionChange(ByVal Target As Range)
 
    Dim UnJour As Date
    If Target.Column = 4 Then
        Application.EnableEvents = False
        Cancel = True
            UnJour = FormCal.Calendrier
            If UnJour <> 0 Then
                Target = Format(UnJour, "mm/dd/yyyy")
            Else
                Target = ""
            End If
        Selection.Offset(0, 0).Select
        Application.EnableEvents = True
    End If
 
    If Target.Column = 6 Then
        Application.EnableEvents = False
        Cancel = True
            UnJour = FormCal.Calendrier
            If UnJour <> 0 Then
                Target = Format(UnJour, "mm/dd/yyyy")
            Else
                Target = ""
            End If
        Selection.Offset(0, 0).Select
        Application.EnableEvents = True
    End If
End Sub

Code initialize Userform

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Initialize()
    Dim i As Integer
    Dim m As String
    'remplit la liste des mois
    For i = 1 To 12
        m = Format("01/" & i, "mmmm")
        Mois.AddItem UCase(Left(m, 1)) & Right(m, Len(m) - 1)
    Next i
    'remplit la liste des années
    For i = 1900 To 2100
        Annee.AddItem i
    Next i
    Call UserFormAlign
End Sub

Code Activate Userform

Code :

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

1
2
3
Private Sub UserForm_Activate()
 
End Sub

Par contre je n'ai pas trouver le Load dont vous parlez ...

Bien à vous

[joe.levrai]

Tiens voilà, je parie que c'est dans cette procédure

Code :

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

Call UserFormAlign

tu peux nous la montrer ? D'ailleurs, met cette ligne en commentaire, et constate que ton problème a disparu

[Cha'Mallow]

Code :

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

Call UserFormAlign

tu peux nous la montrer ? D'ailleurs, met cette ligne en commentaire, et constate que ton problème a disparu

Je m'excuse mais je n'ai pas très bien compris votre demande

[joe.levrai]

J'en déduis que tu n'as pas développé cette application !

Tu as, dans un module Standard, une procédure qui s'appelle UserFormAlign

cette procédure est appelée par la procédure qui initialise ton Userform, et vu son nom, c'est elle qui de façon maladroite positionne ton userform

Devant cette ligne de code, met une apostrophe pour passer la ligne en commentaire, et tu verras que le comportement qui te pose problème va disparaître