Discussion :

[ramine123]

Bonjour
je veux réaliser les boutons de commandes comme ci-dessus sur un formulaire afin de bouger les contrôles d'un Etat précis en une fois (zones de textes) soit a gauche, droite, haut ou bas
y a t'il une truc pour faire cela?
Merci

[ClaudeLELOUP]

Bonjour,

Avec un peu de VBA, ça doit y faire !

Comment déterminer l'état ?
Est-il déjà ouvert au moment où tu veux intervenir ?
Déplacer de combien de twips ?

[ramine123]

----
Merci de votre intervention
* non il n'est pas ouvert au moment où je veux intervenir
* pour la deuxième question quand je clique sur bouton droit par exemple les contrôles se déplacent d'un twips à droite et si je reclique une autre fois il se déplacent encore d'un autre twips a droite, et ainsi de suite et de même pour tous les boutons de direction.
et si possible j'aimerai avoir un autre bouton de commande qui sera nommé "par défaut" et qui permet de retourner tous le contrôles a son position initiale

[ClaudeLELOUP]

J'ignore dans quel contexte tu veux faire cela.

Si tu veux pouvoir revenir à la situation initiale, il serait peut-être préférable de prendre d'abord une copie de l'état.

Comment réagir lorsque le déplacement d'un contrôle n'est plus possible, alors que d'autres ont déjà pu être déplacés ?

[ramine123]

J'ignore dans quel contexte tu veux faire cela.

Si tu veux pouvoir revenir à la situation initiale, il serait peut-être préférable de prendre d'abord une copie de l'état.

Comment réagir lorsque le déplacement d'un contrôle n'est plus possible, alors que d'autres ont déjà pu être déplacés ?

---

Merci encore de votre intervention
et voila quelques éclaircissement a propos de vos interrogations
dans quel contexte, ça veut dire quel est mon but?
j'ai des formulaires papiers que j’insère à l'imprimante pour remplir les zones vides via un Etat relié à un formulaire dont je taperai les renseignements,
chaque mois je reçois des paquets de ces formulaires qui sont conçu par un magasin de rizographie, le problème c'est que les formulaires ne sont pas toujours identiques, et donc pour faire bien imprimer les champs d’État sur les zones vides du formulaire papier, il faut entrer à l'Etat concerne et faire mover les champs soit en haut ou en bas...
Moi je sais faire cela, mais l'agent qui travaille sur l'application veut lui faciliter la tache, et faire mover les champs directement sur la fenetre d'application formulaire de saisie


je souhaite que mes propos soit compréhensible par vous, malgré mon bas niveau en français
et pour la question "Comment réagir lorsque le déplacement d'un contrôle n'est plus possible, alors que d'autres ont déjà pu être déplacés ?" en faite j'ai pas compris cette question.

[ClaudeLELOUP]

je souhaite que mes propos soient compréhensibles par vous, malgré mon bas niveau en français

Pas de souci, ton niveau en français est très bon !

Comment réagir lorsque le déplacement d'un contrôle n'est plus possible, alors que d'autres ont déjà pu être déplacés ?

Imagine qu'il faut tout déplacer vers la droite.
Le programme auquel je pense consiste à considérer chaque contrôle, l'un après l'autre, et à le déplacer vers la droite.
Il se pourrait qu'en traitant le énième, on constate qu'il est déjà contre le bord droit, Access va alors signaler une erreur et s'arrêter si on ne prévoit rien.

Ai-je bien compris ce que tu veux faire :

- l'opérateur fait un essai avec un seul formulaire ;
- il constate qu'il faudrait décaler vers la droite ;
- il estime le décalage nécessaire à 5 pixels ;
- il clique 5 X sur la flèche vers droite ;
- il refait une tentative avec le programme modifié ;
- il constate alors que c'est maintenant un peu trop à droite ;
- il clique 1 X sur la flèche vers gauche ;
- il refait une tentative avec le programme modifié ;
- c'est OK ;
- il lance le processus d'impression.

[ramine123]

----
Merci de vos interventions,
vous avez bien compris quasiment tous ce que je cible
la question : "Comment réagir lorsque le déplacement d'un contrôle n'est plus possible, alors que d'autres ont déjà pu être déplacés ?"
maintenant j' l'ai compris bien
alors quand j'appui sur le bouton droite et un contrôle de l'Etat atteint la limite de bord de la page, alors là j'aimerai que tous s’arrête là, ou bien un Msgbox apparaît et signale que le bord limite droite et atteint
et bien évidement, quand j'appui sur un bouton de direction j'aimerai que tous les contrôles de l’État se déplacent en un tout.
---
oui l’opérateur essai d'imprimer une page deux pages ou trois pour voir est ce que les champs de l’État s’impriment exactement sur les champs vides de papier formulaire
c'est bien essayé
il peut alors mettre la rame de formulaires en question dans le support papier de l'imprimante et travaille alors tranquillement, là il peut lancer des impressions sans souci et bon placement des enregistrements sur papiers

[ClaudeLELOUP]

Imagine que l'ajustement est OK.

Que va-t-il se passer ensuite ?

En d'autres mots, que faut-il faire avec la version ajustée ?

[ramine123]

Imagine que l'ajustement est OK.

Que va-t-il se passer ensuite ?

En d'autres mots, que faut-il faire avec la version ajustée ?

---
alors l'ajustement est ok, que va-t-il se passer ensuite
la réponse c'est rien
je veux que la dernière ajustement réalisé soit fixe sur Etat en question

et bien sur y a d'autres contrôles ( bouton de commandes, zone de texte, liste déroulante, numéro auto) sur le formulaire de saisie en question
alors c'est l'ajustement est ok ==> je fais des impressions avec boutons "Imprimer"

[ClaudeLELOUP]

Montre une capture d'écran de ton formulaire actuel.

[ramine123]

la voici

[ClaudeLELOUP]

Quand tu cliques sur Imprimer, tu imprimes une seule page ?

[ramine123]

oui une seule page

[ClaudeLELOUP]

OK. Je te prépare un exemple de solution.

Un peu de patience...

[ramine123]

Merci ClaudeLELOUP
j’attendrai votre solution

[ClaudeLELOUP]

Un peu plus long que je croyais, mais voici :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Option Compare Database
Option Explicit
 
Private Sub Form_Open(Cancel As Integer)
  On Error GoTo GestionErreurs
  'Prendre une copie de l'état original au cas où
  DoCmd.CopyObject , "eCopie", acReport, "eOriginal"
GestionErreurs:
  Select Case Err.Number
    Case 0 'pas d'erreur
      Exit Sub
    Case 2501 'on ne veut pas de nouvelle copie
      Resume Next
    Case Else
      MsgBox "Erreur dans Form_Open N° " & Err.Number & " " & Err.Description
  End Select
End Sub
 
Private Sub Gauche_Click()
  Call Decaler(Me.ActiveControl.Name)
End Sub
 
Private Sub Haut_Click()
  Call Decaler(Me.ActiveControl.Name)
End Sub
 
Private Sub Bas_Click()
  Call Decaler(Me.ActiveControl.Name)
End Sub
 
Private Sub Droite_Click()
  Call Decaler(Me.ActiveControl.Name)
End Sub
 
Public Sub Decaler(Direction As String)
  On Error GoTo GestionErreurs
  Dim oCtl As Control
  'Ouvrir eOriginal en mode construction
  DoCmd.OpenReport "eOriginal", acViewDesign
  'Déplacer les contrôles
  Select Case Direction
    Case "Gauche"
      For Each oCtl In Reports!eOriginal.Controls
        Reports!eOriginal(oCtl.Name).Left = Reports!eOriginal(oCtl.Name).Left - Me.txtCombien * 56.69
      Next oCtl
    Case "Droite"
      For Each oCtl In Reports!eOriginal.Controls
        Reports!eOriginal(oCtl.Name).Left = Reports!eOriginal(oCtl.Name).Left + Me.txtCombien * 56.69
      Next oCtl
    Case "Haut"
      For Each oCtl In Reports!eOriginal.Controls
        Reports!eOriginal(oCtl.Name).Top = Reports!eOriginal(oCtl.Name).Top - Me.txtCombien * 56.69
      Next oCtl
    Case "Bas"
      For Each oCtl In Reports!eOriginal.Controls
        Reports!eOriginal(oCtl.Name).Top = Reports!eOriginal(oCtl.Name).Top + Me.txtCombien * 56.69
      Next oCtl
  End Select
  DoCmd.Save acReport, "eOriginal"
  DoCmd.OpenReport "eOriginal", acViewPreview
GestionErreurs:
  Select Case Err.Number
    Case 0 ' pas d'erreur
    Case 2100 'pas assez d'espace
      MsgBox "Ce décalage n'est pas possible !", vbCritical
      DoCmd.Close acReport, "eOriginal"
    Case Else
      MsgBox "Erreur dans Decaler N° " & Err.Number & " " & Err.Description
  End Select
End Sub

La db qui m'a servi de test est ici : http://claudeleloup.developpez.com/%...7Ramine123.mdb

[ramine123]

Merci de votre effort
je vais l'essayé, et après je te réponds si fonctionne ou non