Voir tout le temps une image, (avec scroll)Résolu

Question

Re bonjour! :)

Voila un petit truc que j'aimerai bien réalisé. Le but est de pouvoir scroller (ça ce dit comme ça non?)  vers le bas de la feuille est de voir toujours sur la gauche un menu.
Ce n'est pas l'option "Ne pas déplacer ou redimensionner... etc." qu'il me faut,
J'ai essayé aussi avec figer les volet mais je ne peux pas puisque j'ai les titres des colonnes, ce qui me fige uniquement l'image "Menu" qui est au même niveau que les titres de colonnes!

Voici une image pour expliquer un peu mieux :



Quand je scroll j'aimerais que "le menu" en entier soit tout le temps visible même quand on est en bas du tableau!

ucfoutu · Accepted Answer

>Bon.
Pour que je sois bien certain d'avoir compris, dis-moi si c'est bien ceci que tu veux (mets ce code sur une feuille neuve) :
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

'les fonctions sui suivent ne sont là que si l'on veut supprimer la barre de titre
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long


Private F As Object

 
Private Sub Worksheet_Activate()
With ActiveWindow
    .SplitColumn = 2
    .SplitRow = 2
    .Panes(1).ScrollRow = 1
    .Panes(1).ScrollColumn = 1
    ActiveWindow.FreezePanes = True
End With
   Set F UserForm1 '>> mets ici le nom de TON userform (celui à afficher sur la feuille Excel)
   coucou
End Sub

Private Sub Worksheet_Deactivate()
On Error Resume Next
  F.Hide
End Sub

Private Sub coucou()
   Dim bordv As Integer, bordh As Integer
   Range("A1").Activate
   cacher_barre_titre  '=====>>>> uniquement si l'on veut cacher la barre de titre
   bordv = GetSystemMetrics(15) - (GetSystemMetrics(5) * 5)
   bordh = GetSystemMetrics(5) * 3
   If ActiveWindow.DisplayHeadings = False Then
     bordv = GetSystemMetrics(5) * -4
     bordh = GetSystemMetrics(15)
   End If
   With F
     .Show
     .Top = ActiveWindow.Panes(1).VisibleRange.Top + Application.Top + Application.Height - Application.UsableHeight - bordh
     .Left = ActiveWindow.Panes(1).VisibleRange.Left + Application.Left + Application.Width - Application.UsableWidth + bordv 'Columns(ActiveWindow.ScrollColumn).Left + Range("A1").Left + bordv
   End With
End Sub

Private Sub cacher_barre_titre()
   Dim hWnd As Long, Style As Long
   hWnd = FindWindow(vbNullString, F.Caption)
   Style = GetWindowLong(hWnd, -16) And Not &HC00000
   SetWindowLong hWnd, -16, Style
   DrawMenuBar hWnd
   DoEvents
End Sub




________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

BIOoOAG123 · Answer

Image
En plus grand!
Dsl :s

ucfoutu · Answer

Bonjour,
Ouvre ton aide VBA à la rubrique Window.Split, propriété
fais des petits tests
Intéresse-toi ensuite à toutes les rubriques concernant les objets Panes, ainsi qu'à la rubrique FreezePanes
Rien de complexe.

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

BIOoOAG123 · Answer

ucfoutu j'ai essayé ce que tu m'as dit, mais en fait je veux ni fractionner, ni figer les volets (donc ni split ni panes) :) je veux faire ça :



With Worksheets("Database")
.Database.Visible = True
.Database.Left = .Columns(Windows(1).VisibleRange.Column).Left + 30 'modifie la position
.Database.Top = .Rows(Windows(1).VisibleRange.Row).Top + 2
End with

Mais non pas avec un bouton ici Database mais avec une image. Impossible de trouver la solution.

ucfoutu · Answer

Je ne comprends pas alors vraiment ce que tu veux faire !
Te reste la possibilité d'afficher en permanence un userform avec ce que tu veux dedans !

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

BIOoOAG123 · Answer

Ce que je veux faire c'est que les image reste en haut a gauche peut importe ou va l'utilisateur dans la feuille. qu'il puisse toujours y accéder.

ucfoutu · Answer

Avec un userform, ta difficulté sera de le placer exactement où tu veux sur ta feuille de calcul.
Il te faudra alors inévitablement passer par au moins une fonction de l'Api de Windows (GetSystemMetrics). Et d'autre encore si tu veux cacher la barre de titre de ce userform. Il te faudra par ailleurs bûcher d'autres propriétés VBA, dont UsableHeight et UsableWidth et faire des calculs conditionnels suyr la base de ActiveWindow.DisplayHeadings (selon que True ou False)
On sait faire tout cela, bien sûr (je l'ai mis en oeuvre au moins deux fois dans mes applis)
Rien de cela ne me parait à la portée réelle d'un débutant. 

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

ucfoutu · Answer

Ce que je veux faire c'est que les image reste en haut a gauche peut importe ou va l'utilisateur dans la feuille. qu'il puisse toujours y accéder.
Je l'avais bien compris !
Et ce que tu appelles "une image" n'en est pas une (puisque des boutons sont là) !

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

BIOoOAG123 · Answer

Si c'est une image que j'ai créé, c'est juste qu'il y a une macro associé, quand je dis bouton je parle de l'objet "bouton" d'excel.
Je vais essayer avec l'userform, mais ça me parait beaucoup de travail pour peu de chose :(

BIOoOAG123 · Answer

Bon bé j'ai trouvé mais c'était relativement dur! Je vous met le code, peut être que ça vous sera utile un jour ou l'autre. A mettre dans la feuille concernée :


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Dim cell As Range

Application.ScreenUpdating = False
With Worksheets(2)
.Shapes("Image 5").Visible = True
.Shapes("Image 5").Top = .Rows(Windows(1).VisibleRange.Row).Top + 2
.Shapes("Image 5").Left = .Columns(Windows(1).VisibleRange.Column).Left + 30
End With
Application.ScreenUpdating = True

End Sub


Comme ça les boutons sont toujours à la portée de l'utilisateur!

cs_MPi · Answer

Quand tu dis "Les boutons", est-ce que ça veut dire que tu as plusieurs images qui servent chacune à activer une macro ou c'est une seule image avec plusieurs boutons dans cette même image ?


MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

BIOoOAG123 · Answer

nop des images avec chacune une seule macro dessus

ucfoutu · Answer

Finalement ce que tu appelais UNE "image" s'avère être PLUSIEURS images Excel insérées sur ta feuille et auxquelles tu as affecté une macro par image.
Ouais... Tu gagnerais alors vraiment à utiliser plutôt, comme je l'ai dit plus haut, un userform. Les avantages seraient nombreux, à commencer par celui de ne pas mobiliser toute une colonne inutilement.
Tu pourrais alors : soit toujours afficher ce userform au même endroit (le moins gênant) de ta feuille de calcul, soit même carrément juste à côté de la cellule que tu sélectionnes (Target, dans ton évènement Selection_Change !)

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

cs_MPi · Answer

Ou encore créer des menus sur click droit, ce qui n'empêche jamais de voir tout ce qu'il y a sur la feuille...


MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

BIOoOAG123 · Answer

ça me parait un peu compliqué avec l'UserForm et comme je suis tout sauf informaticien! à moins que tu ais un tuto ou quelque chose, forum autres? qui l'explique un minimum comment faire? 
Et pour le clique droit j'y ai pensé, mais ça n'enlève pas justement le menu déjà présent (de base), ou l'on peut rajouter dans celui déjà présent des lignes etc..? ps: j'ai trouvé un totu, je l'ai au travail, mais lui ça enlevé tout ce qui été déjà présent dans le "menu" du clique droit.

cs_MPi · Answer

Dans le click droit, tu peux soit tout enlever soit ajouter tes menus.

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

BIOoOAG123 · Answer

Je regarderai un peu plus sur le click droit demain matin au boulot! :) Et pour l'UserForm ucfoutu?

Bonne soirée ! :)

ucfoutu · Answer

Et pour l'UserForm ucfoutu?

Je veux bien t'écrire cela, mais tu risqueras de ne pas y comprendre grand-chose (il va y avoir des "petits"  calculs conditionnels)

Bon. Il va me falloir environ 20 minutes pour écrire cette chose.

Pendant ce temps : ajoute à ton appli un userform avec sa propriété showmodal =  false et mets-lui dedans des boutons (peu importe lesquels. Juste pour que tu constates le placement).

A dans  environ 25 minutes , donc 


________________________
Réponse exacte ?  => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

ucfoutu · Answer

Cà y est ? Tu es prêt (tu as fait ce userform, comme demandé ?)

Alors voilà :

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

'les fonctions sui suivent ne sont là que si l'on veut supprimer la barre de titre
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long


Private F As Object

 
Private Sub Worksheet_Activate()
   Set F UserForm1 '>> mets ici le nom de TON userform (celui à afficher sur la feuille Excel)
   coucou
End Sub

Private Sub Worksheet_Deactivate()
  F.Hide
End Sub

Private Sub coucou()
   Dim bordv As Integer, bordh As Integer
   Range("A1").Activate
   cacher_barre_titre  '=====>>>> uniquement si l'on veut cacher la barre de titre
   bordv = GetSystemMetrics(15) - (GetSystemMetrics(5) * 5)
   bordh = GetSystemMetrics(5) * 3
   If ActiveWindow.DisplayHeadings = False Then
     bordv = GetSystemMetrics(5) * -4
     bordh = GetSystemMetrics(15)
   End If
   With F
     .Show
     .Top = Application.Top + Application.Height - Application.UsableHeight - Rows(ActiveWindow.ScrollRow).Top + Range("A1").Top - bordh
     .Left = Application.Left + Application.Width - Application.UsableWidth - Columns(ActiveWindow.ScrollColumn).Left + Range("A1").Left + bordv
   End With
End Sub

Private Sub cacher_barre_titre()
   Dim hWnd As Long, Style As Long
   hWnd = FindWindow(vbNullString, F.Caption)
   Style =  GetWindowLong(hWnd, -16) And Not &HC00000
   SetWindowLong hWnd, -16, Style
   DrawMenuBar hWnd
   DoEvents
End Sub

Ce code  un peu bâclé  est à mettre sur la feuille sur laquelle tu veux afficher ton userform en haut et à gauche et d'où il ne bougera pas en "scrollant". 





________________________
Réponse exacte ?  => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

BIOoOAG123 · Answer

Trop fort ucfoutu! :)

Alors plusieurs truc,

Private Sub Worksheet_Deactivate()
  F.Hide
End Sub

Il me dit que F n'est pas une variable déclarée, donc je lui met P4_Menu (le nom de mon UserForm, pour qu'il ne m'embête plus!


Bon du coup ça marche, mais l'UserForm se met en plein milieu (Ps : J'ai deux volet donc ma 1ere cellule de active window est C3)

J'essayerai de modifier 
.Top = Application.Top + Application.Height - Application.UsableHeight - Rows(ActiveWindow.ScrollRow).Top + Range("A1").Top - bordh
.Left = Application.Left + Application.Width - Application.UsableWidth - Columns(ActiveWindow.ScrollColumn).Left + Range("A1").Left + bordv

En le mettant comme ça je pense que ça devrait fonctionner non?
.Top = Application.Top + Application.Height - Application.UsableHeight - Rows(ActiveWindow.ScrollRow).Top + Range("A1").Top - bordh
.Left = Application.Left + Application.Width - Application.UsableWidth - Columns("A:A").Left + Range("A1").Left + bordv


Par contre le plus gros problème est que ça freeze le classeur et que rien n'est accessible sur le classeur à part l'UserForm.


Enfin en tout cas chapeau l'artiste! :)

ucfoutu · Answer

1) Par contre le plus gros problème est que ça freeze le classeur et que rien n'est accessible sur le classeur à part l'UserForm. 
cela veut dire que tu as lu en diagonale mon message de 07:19:53 (relis-le donc ! j'y ai même SOULIGNE quelque-chose ! )
2) Il me dit que F n'est pas une variable déclarée, donc je lui met P4_Menu (le nom de mon UserForm, pour qu'il ne m'embête plus! 
cela veut dire que :
- soit tu n'as pas copié mon code complètement
- soit tu n'as pas mis le nom de TON userform à toi, à cette ligne :
Set F UserForm1 '>> mets ici le nom de TON userform (celui à afficher sur la feuille Excel)
3)mais l'UserForm se met en plein milieu
Je ne vois pas pourquoi ! ===>>> montre donc ton code 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

BIOoOAG123 · Answer

Oui autant pour moi, j'avais pas mis showmodal en false.

2) Si si, j'ai fais tout ce que tu as dit il me sort toujours cette erreur.


3) avec 
.Top = Application.Top + Application.Height - Application.UsableHeight - Rows(ActiveWindow.ScrollRow).Top + Range("A1").Top - bordh
     .Left = Application.Left + Application.Width - Application.UsableWidth - Columns(ActiveWindow.ScrollColumn).Left + Range("A1").Left + bordv
l'UserForm n'apparait pas, enfin du moins s'il appariait, je sais pas ou.


Je remplace par ça :

.Top = Application.Top + Application.Height - Application.UsableHeight - Rows(ActiveWindow.ScrollRow).Top + 80 - bordh
.Left = Application.Left + Application.Width - Application.UsableWidth - Columns("A:A").Left + Range("A1").Left + bordv

Mais du coup il apparait pas forcément tout le temps? 
Et pas forcément au même endroit?

cs_MPi · Answer

BIOoOAG123, est-ce que tu travailles avec 1 ou 2 écrans ?
Dans le 2e cas, ça complique les choses...

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

BIOoOAG123 · Answer

Non non avec un seul! ^^ c'est déjà compliqué avec un alors avec deux!

cs_MPi · Answer

Avant de jouer avec .Top, .Left et compagnie, mets
.StartUpPosition = 0
pour mettre en mode "Manuel"

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

ucfoutu · Answer

Je voudrais bien voir la totalité de ce que tu as écrit !
Car je viens de tester et retester plusieurs fois ===W>> aucune faille chez moi !


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

BIOoOAG123 · Answer

Je pense que c'est les volets qui mettent le bazar!





Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

'les fonctions sui suivent ne sont là que si l'on veut supprimer la barre de titre
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long


Private F As Object

 
Private Sub Worksheet_Activate()
   Set F P4Menu '>> mets ici le nom de TON userform (celui à afficher sur la feuille Excel)
   coucou
End Sub

Private Sub Worksheet_Deactivate()
  P4Menu.Hide
End Sub

Private Sub coucou()
   Dim bordv As Integer, bordh As Integer
   Range("A1").Activate
   cacher_barre_titre  '=====>>>> uniquement si l'on veut cacher la barre de titre
   bordv = GetSystemMetrics(15) - (GetSystemMetrics(5) * 5)
   bordh = GetSystemMetrics(5) * 3
   If ActiveWindow.DisplayHeadings = False Then
     bordv = GetSystemMetrics(5) * -4
     bordh = GetSystemMetrics(15)
   End If
   With F
     .Show
     .StartUpPosition = 0
     .Top = Application.Top + Application.Height - Application.UsableHeight - Rows(ActiveWindow.ScrollRow).Top + Range("A1").Top - bordh
     .Left = Application.Left + Application.Width - Application.UsableWidth - Columns(ActiveWindow.ScrollColumn).Left + Range("A1").Left + bordv
   End With
End Sub

Private Sub cacher_barre_titre()
   Dim hWnd As Long, Style As Long
   hWnd = FindWindow(vbNullString, F.Caption)
   Style = GetWindowLong(hWnd, -16) And Not &HC00000
   SetWindowLong hWnd, -16, Style
   DrawMenuBar hWnd
   DoEvents
End Sub


Sans volet le code est parfait :), avec ça met l'UserForm un peu n'importe ou..

ucfoutu · Answer

Ah ! Je préfère cela ! 
Bon !
as-tu vraiment besoin de tes volets ?
Si non : supprime-les
Si oui : 
- comment-sont-ils disposés ? (Code ?)
- sur quel volet veux-tu l'Userform ?
Et j'essaierais alors sur ces nouvelles bases, mais uniquement si volets vraiment nécessaires (car d'autres calculs à faire !)


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

BIOoOAG123 · Answer

Oui j'en ai absolument besoin.. Vu que c'est des tableau assez grand et j'ai besoin d'avoir le titre des colonne en haut et le nom du client à gauche(sur les lignes)

Alors j'ai 2 volets, créés à la main.
Vertical : qui bloque les colonnes A et B. (nom client sur la B et emplacement du menu sur la A)
Et horizontal : qui bloque les 2 premières lignes. (Nom des colonne 2 et rien sur la 1, pour aérer un peu le tableau)

Je veux l'UserForm en haut à gauche donc en gros à la cellule "A1", donc c'est à la fois sur le volet horizontal et vertical :/

ucfoutu · Answer

pas certain d'avoir compris ta configuration.
Est-ce celle-ci ? (sur un classeur neuf)
Private Sub Worksheet_Activate()
  With ActiveWindow
    .SplitColumn = 2
    .SplitRow = 2
  End With
End Sub

si oui : tu as 4 volets. Dans lequel souhaites-tu l'userform ?



________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

BIOoOAG123 · Answer

C'est pas fractionné, mais avec des volets 

Private Sub Worksheet_Activate()
  With ActiveWindow
    .SplitColumn = 2
    .SplitRow = 2
    ActiveWindow.FreezePanes = True
  End With
End Sub

ucfoutu · Answer

et la réponse à :
si oui : tu as 4 volets. Dans lequel souhaites-tu l'userform ? 

?
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

BIOoOAG123 · Answer

Celui en haut à gauche, (mais il dépassera sur celui en bas à gauche, car celui en haut à gauche est trop petit pour contenir l'userform)

BIOoOAG123 · Answer

Oui c'est exactement ça, un grand merci, je vais l'essayer sur mon classeur, faut juste que je finisse un truc avant. :)

Juste une petite question, ça veut dire quoi ces 2 lignes :


.Panes(1).ScrollRow = 1
.Panes(1).ScrollColumn = 1

Tu pourras m'expliquer un tout ptit peu après? que je puisse savoir à quoi les éléments de cette macro correspondent, mais aussi pouvoir la refaire un jour ou l'autre! 

Je sais que user32 c'est un "élément" de windows qui permet d&#8217;interagir avec plein de chose( J'ai commencé rapidement le C++ et ils en parlaient) , mais après je ne comprend pas grand chose..

ucfoutu · Answer

Je t'expliquerai plus tard. Je dois préparer une ligne légère pour mon petit-fils que je vais emmener avec moi à la pêche.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

BIOoOAG123 · Answer

Sur mon classeur de test ça marche parfaitement! :)
Donc un grand merci pour ton aide, sinon jamais je n'y serai arrivé!

ucfoutu · Answer

Content pour toi.
clos alors le sujet (tag réponse acceptée là où est la solution).


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

ucfoutu · Answer

Bon. Je réponds maintenant à :
Tu pourras m'expliquer un tout ptit peu après? que je puisse savoir à quoi les éléments de cette macro correspondent, mais aussi pouvoir la refaire un jour ou l'autre!

Je sais que user32 c'est un "élément" de windows qui permet d&#8217;interagir avec plein de chose( J'ai commencé rapidement le C++ et ils en parlaient) , mais après je ne comprend pas grand chose.

Je n'ai utilisé ScrollRow et ScrollColumn que dans le but d'être certain d'afficher tout en hut du 1er volet la plage A1.
Pourquoi ? Parce qu'il était toujours possible qu'en mode création des gestes aient été accomplis avant de figer. Il ne s'agit donc là que d'une protection (d'un "garde-fou", quoi. Rien de plus).

User32 n'est pas un "élément" de Windows, mais une des librairies de l'Api de Windows. Cette librairie contient plusieurs fonctions qui, déclarées depuis VB, y deviennent utilisables.
Il serait par contre vain de tenter de t'y initier en quelques mots. Chaque fonction de l'Api de Windows a ses finalités, ses paramètres, ses structures, etc ... dont la connaissance est nécessaire (si on veut les utiliser valablement).
Il est absolument normal que l'utilisation des fonctions de l'Api de Windows t' "échappe". Ce ne sont pas des connaissance VBA, qui sont là nécessaires, mais d'autres (l'API de Windows).
Bon week-end


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Voir tout le temps une image, (avec scroll)

38 réponses

Votre réponse

Discussions similaires