Passer un argument a Sub UserForm_Initialize(position As Integer)

Version imprimable

Bonjour ,

je veux passer a la fonction UserForm_Initialize un argument de type Integer qui permet a un formulaire de se positionner a la ligne choisie par l'utilisateur

mon code est :

Code:

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
30
31
32
33
Private Sub UserForm_Initialize(position As Integer)
    
  Const GWL_STYLE = (-16)
  Const GWL_EXSTYLE = (-20)
  Const WS_SIZEBOX = &H40000
  Const WS_EX_APPWINDOW = &H40000
  Dim hwnd As Long, wLong As Long

 
    Initialisation = True
    'ci-dessous : renseigner le nom de la feuille ou se trouve la base de données
    Set fl = Worksheets("FichierCentrale")
    fl.Cells(1, 1).Select 'Aucune incidence sur les procédure
    'Nombre de colonnes possédant une entête
    NbreColonnes = fl.Range("B1").SpecialCells(xlCellTypeLastCell).Column
    If NbreColonnes > 69 Then NbreColonnes = 69 'Limité du Nbre de Textbox
    NoLigne = 2 'initiation de la prémière ligne
    Call ScrollBarMax 'Détermine la dernière ligne accessible
    Me.ScrollBar1.Value = position 
    Me.ScrollBar1.Min = 2 'L'entête est sur la ligne 1
    Call NomDesLabels 'lit les entêtes de colonnes pour les afficher
     DoEvents
     wForm = Me.Width: hForm = Me.Height
     hwnd = FindWindow(vbNullString, Me.Caption)
     wLong = GetWindowLongA(hwnd, GWL_EXSTYLE)
     wLong = wLong Or WS_EX_APPWINDOW
     SetWindowLong hwnd, GWL_EXSTYLE, wLong
     wLong = GetWindowLongA(hwnd, GWL_STYLE)
     wLong = wLong Or WS_SIZEBOX
     SetWindowLong hwnd, GWL_STYLE, wLong
     Call lblResize
     Call SaveControlsProperties
End Sub

mon souci est que je ne sais pas quel est la fonction qui fait apel a UserForm_Initialize car je veux créer un formulaire qui propose a l'utilisateur de donner la ligne de positionnement et ce formulaire fait apel a un autre formulaire qui affiche les renseignements d'une feuille

Merci de m'indiquer le chemin

Tu as deux solutions : Ou tu mets ton code dans le module standard d'ouverture de l'userform
Code:

1 2 3 4 5 6 7 8 Sub ouvrir() Dim adresse as range, TopUsf as single Set adresse = Application.InputBox("Sélectionner une cellule / une ligne", "Titre", Type:=8) TopUsf = adresse.Top Load UserForm1 UserForm1.Top = TopUsf UserForm1.Show End Sub
ou tu déclares une variable Public et tu mets ton code dans Userform_Initialize
'Dans un module standard
Code:

1 2 3 4 5 6 7 Public TopUsf as single Sub ouvrir() Dim adresse as range Set adresse = Application.InputBox("Sélectionner une cellule / une ligne", "Titre", Type:=8) TopUsf = adresse.Top End Sub
Dans la feuille de code de l'USF
Code:

1 2 3 Private Sub UserForm_Initialize() Me.Top = TopUsf End Sub
Tu testes ;)

Edit
Corrige mon erreur, j'ai déclaré ToUsf à la place de TopUsf

Merci ouskel'n'or ,

j'ai pas bien compris la soulution que tu ma proposé, peut être j'étais pas clair dans ma question , en fait je veux passer en argument un Integer a un Userform qui me permet de visuliser toutes les lignes de ma table et les mettre à jour , cet argument indique a mon formulaire la ligne ou il va se positionner en premier ( entre ligne 1 et Ligne 500) , la procedure est la suivante :
_ j'ouvre un formulaire ou je saisie un chiffre (par exemple :30)
ce formulaire fait apel a un autre formulaire et lui passe en argument le chiffre 30 , donc ce dérnier fomulaire s'ouvre et et on voi aparaitre le contenu de toutes les cellules de la ligne 30 ,

et dans le formulaire qui m'affiche ces donnée j'ai

Code:

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
30
31
32
33
34
35

Private Sub UserForm_Initialize( )
    
  Const GWL_STYLE = (-16)
  Const GWL_EXSTYLE = (-20)
  Const WS_SIZEBOX = &H40000
  Const WS_EX_APPWINDOW = &H40000
  Dim hwnd As Long, wLong As Long

 
    Initialisation = True
    'ci-dessous : renseigner le nom de la feuille ou se trouve la base de données
    Set fl = Worksheets("FichierCentrale")
    fl.Cells(1, 1).Select 'Aucune incidence sur les procédure
    'Nombre de colonnes possédant une entête
    NbreColonnes = fl.Range("B1").SpecialCells(xlCellTypeLastCell).Column
    If NbreColonnes > 69 Then NbreColonnes = 69 'Limité du Nbre de Textbox
    NoLigne = 2 'initiation de la prémière ligne
    Call ScrollBarMax 'Détermine la dernière ligne accessible
    Me.ScrollBar1.Value =   2 ' il se position sur la ligne 2
    Me.ScrollBar1.Min = 2 'L'entête est sur la ligne 1
    Call NomDesLabels 'lit les entêtes de colonnes pour les afficher
     DoEvents
     wForm = Me.Width: hForm = Me.Height
     hwnd = FindWindow(vbNullString, Me.Caption)
     wLong = GetWindowLongA(hwnd, GWL_EXSTYLE)
     wLong = wLong Or WS_EX_APPWINDOW
     SetWindowLong hwnd, GWL_EXSTYLE, wLong
     wLong = GetWindowLongA(hwnd, GWL_STYLE)
     wLong = wLong Or WS_SIZEBOX
     SetWindowLong hwnd, GWL_STYLE, wLong
     Call lblResize
     Call SaveControlsProperties
End Sub

et je veux remplacer ce code par

Code:

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
30
31
32
33
34
35
 
 
Private Sub UserForm_Initialize(position As Integer)
 
  Const GWL_STYLE = (-16)
  Const GWL_EXSTYLE = (-20)
  Const WS_SIZEBOX = &H40000
  Const WS_EX_APPWINDOW = &H40000
  Dim hwnd As Long, wLong As Long
 
 
    Initialisation = True
    'ci-dessous : renseigner le nom de la feuille ou se trouve la base de données
    Set fl = Worksheets("FichierCentrale")
    fl.Cells(1, 1).Select 'Aucune incidence sur les procédure
    'Nombre de colonnes possédant une entête
    NbreColonnes = fl.Range("B1").SpecialCells(xlCellTypeLastCell).Column
    If NbreColonnes > 69 Then NbreColonnes = 69 'Limité du Nbre de Textbox
    NoLigne = 2 'initiation de la prémière ligne
    Call ScrollBarMax 'Détermine la dernière ligne accessible
    Me.ScrollBar1.Value = position 
    Me.ScrollBar1.Min = 2 'L'entête est sur la ligne 1
    Call NomDesLabels 'lit les entêtes de colonnes pour les afficher
     DoEvents
     wForm = Me.Width: hForm = Me.Height
     hwnd = FindWindow(vbNullString, Me.Caption)
     wLong = GetWindowLongA(hwnd, GWL_EXSTYLE)
     wLong = wLong Or WS_EX_APPWINDOW
     SetWindowLong hwnd, GWL_EXSTYLE, wLong
     wLong = GetWindowLongA(hwnd, GWL_STYLE)
     wLong = wLong Or WS_SIZEBOX
     SetWindowLong hwnd, GWL_STYLE, wLong
     Call lblResize
     Call SaveControlsProperties
End Sub

je suis désolé peut être je comprend pas vite mais je sais que avec votre aide je vais arriver

j'ai fait

Code:

1
2
3
4
5
6
7
8
9
 
Private Sub CommandButton6_Click()
Dim adresse As Range, TopUsf  As Single
Set adresse = Application.InputBox("Sélectionner une cellule / une ligne", "Titre", Type:=8)
    TopUsf = adresse.Top
    Load UserForm1
    UserForm1.Top = TopUsf
    UserForm1.Show
End Sub

mais sa na rien changé car mon formulaire se positione toujours sur la 2ème ligne

Merci ouskel'n'or ,
je ne sait pas si tu a fait expré , mais j'ai reussi a touver la soulution avec la TOUCHE "F1"

et j'ai le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 Dim adresse As Integer, TopUsf As Single Dim valeur As Integer adresse = Application.InputBox("Sélectionner une cellule / une ligne", "Titre", Type:=1) valeur = adresse Load UserForm1 UserForm1.ScrollBar1 = valeur UserForm1.Show 'UserForm1.Show End Sub
Par contre j'ai un autre souci qui est le suivant :

quand le je veux annuler l'affichage du formulaire j'ai un message d'erreur

et dans toutes mes application et cahque fois que je clic sur Annuler ou fermer j'ai un message d'erreur ,
peut tu me dire pourquoi ? merci

Autant pour moi. :oops:
Le Top des cellules dépend de la feuille de calculs et commence à 0 pour la ligne 1
Le Top de l'userform dépend de l'application. Selon le nombre de barres d'outils affichées, la hauteur de la 1ère ligne de la feuille de calculs est donc variable.
Pour connaître le top application de la ligne 1, tu dois connaître la hauteur de la première ligne sur l'écran. J'ai "bricolé" quelque chose qui fonctionne pour mon écran. Consiste à connaître le Top de la barre d'outils affichée la plus basse.
Nécessite un clic sur l'userform pour le positionner.
Je ne comprends toujours pas pourquoi ce top ne s'initialise pas dans Userform_initialize. Ça a fonctionné une fois mais plus jamais par la suite (???)
Pour que ça fonctionne, utilise la déclaration Public de TopUsf dans un module standard

Code:

Public TopUsf As Single ' en tête d'un module standard

Dans le clic de ton bouton :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub CommandButton6_Click() Dim BarreTop, LaBarre Dim adresse As Range For Each LaBarre In Application.CommandBars If LaBarre.Visible = True Then If LaBarre.Top > BarreTop Then 'And LaBarre.Top < 400 Then BarreTop = LaBarre.Top End If End If Next BarreTop = BarreTop + 47 ' empirique -> Hauteur d'une barre + ? Set adresse = Application.InputBox("Sélectionner une cellule / une ligne", "Titre", Type:=8) Set Ad = Range(adresse.Address) TopUsf = Ad.Top + BarreTop Load UserForm1 UserForm1.Show End Sub
Enfin, dans le click de l'userform
Code:

1 2 3 Private Sub UserForm_Click() Me.Top = TopUsf End Sub
Pour le moment je n'ai pas mieux à t'offrir :(
(jamais eu ce pb, avec VBA 97, pourtant :( )