Affichage d'un userform

[missaudrey]

Bonsoir tout le monde,

J'ai créé un userform que j'ai rempli avec des informations d'une feuille appelée feuille 2. j'ai crée sur une autre feuille "feuille 1" , un bouton pour afficher le userform. Quand je fais un userform.show,il s'affciche toujours dans "feuille 2". J'aimerai qu'il s'affiche en "feuille 1". j'ai essayé les feuil1.select, ou encore activate mais ca s'affiche toujours en feuil2. quelqu'un aurait-il une idée?

Merci d'avance et bonne soirée!

 

[Robert]

Re : Affichage d'un userform

Bonsoir MissAudrey, bonsoir le forum,

Il doit y avoir dans le code de ton UserForm un Sheets("Feuil2").Select (ou Activate) quelque part. Mais sans ton fichier exemple impossible de t'aider d'avantage...

 

[missaudrey]

Re : Affichage d'un userform

Bonsoir Robert,bonsoir le forum

voici un fichier example

Merci d'avance

 

[YANN-56]

Re : Affichage d'un userform

Bonsoir à tous,

As-tu essayé avec: UserForm1.Show vbModeless ?

Juste pour voir.

Amicalement.

Yann

 

[missaudrey]

Re : Affichage d'un userform

Salut yann, bonsoir à tous,

J'ai essayé ( j'ai meme mis modal à false) mais ca ne marche toujours pas.

Merci pour l'idée

 

[Robert]

Re : Affichage d'un userform

Bonsoir MissAudrey, bonsoir le forum,

J'avoue que j'ai du mal à comprendre le code car je n'ai toujours pas assimilé les fonctions en VBA... Mais une chose est sûre, à l'initialisation de ton Userform tu renvoies sur la fonction Initialiser (1) avec comme argument 1 qui est le numéro d'index d'onglet :

Private Sub UserForm_Initialize()
Initialiser (1)
End Sub

Dans la fonction Initialiser() il y a :

Private Sub Initialiser([COLOR=red]indexFeuille As Integer[/COLOR])
    'Déclaration de variables
    Dim lot As Variant
    Dim i As Integer
    Dim bool As Boolean
    Dim prendremodofEncompte As Boolean
 
 
    bool = False
 
    prendremodifEncompte = False
    ' Rend actif la feuille dont l'index est donné en argument
    [COLOR=red]ThisWorkbook.Worksheets.Item(indexFeuille).Activate[/COLOR]
[COLOR=black]'...[/COLOR]

Donc il est normal que quand tu cliques sur le bouton ça active toujours ThisWorkbook.Worksheets.Item(1) qui a pour nom OST EEL.

je te propose de rajouter la dernière ligne en rouge dans le code :

'Initialisé toutes les valeurs selon la feuille de volume
Private Sub Initialiser(indexFeuille As Integer)
    'Déclaration de variables
    Dim lot As Variant
    Dim i As Integer
    Dim bool As Boolean
    Dim prendremodofEncompte As Boolean
 
 
    bool = False
 
    prendremodifEncompte = False
    ' Rend actif la feuille dont l'index est donné en argument
    ThisWorkbook.Worksheets.Item(indexFeuille).Activate
 
 
    'ToutEffacer
    'initialise la liste des Lignes
    finLigne = getFinLigne
    index = 8
    debutLigne = index
 
    lot = Range("J" & debutLigne).Value
    CmbLot.AddItem (lot)
    index = debutLigne + 1
 
    While index <> finLigne + 1
 
        If lot <> Range("J" & index).Value Then
            lot = Range("J" & index).Value
            For i = 0 To CmbLot.ListCount - 1
                If CmbLot.List(i) = lot Then
                    bool = True
                    Exit For
                End If
            Next
            If bool = False Then
                CmbLot.AddItem (lot)
            End If
            bool = False
        End If
        index = index + 1
    Wend
 
    nbLigne = finLigne - debutLigne
 
    prendremodifEncompte = True
    CmbLot.ListIndex = 0
    'frmScrollGestion.ScrollTop = 0
[COLOR=red]Sheets("Sheet1").Activate[/COLOR]
End Sub

Oui je sais, c'est un peu confus car d'un coté il y a les items et de l'autre les noms et ton Item 3 s'appele "Sheet1"... C'est pas des plus malins...

 

[missaudrey]

Re : Affichage d'un userform

Bonsoir Robert,

Merci Robert ca marche comme çà!

Bonne soirée!