Discussion :

[rickgoz]

Bonjour,

Voilà je viens de créer un Userform avec textbox, combox etc...
J'ai également créé une fonction d'impression.

Cependant mon userform est plus grand qu'une page A4 portrait, et l'impression est direct (ne passe pas par l'interface du logiciel Canon (par ex)).
Ainsi j'aurai voulu savoir s'il était possible d'imprimer en format paysage ou si les caractéristiques d'impression d'un Userform sont vraiment limités...

Concernant ce userform, il reprend les éléments d'un classeurs xls. A l'aide de bouton suivant/précédent il passe d'enregistrement en enregistrement et me m'affiche les données lignes par lignes du fichier xls (sous mon Userform).

Cependant j'aurai voulu savoir si vous saviez comment je pourrais, à partir du Userform, modifier un enregistrement sur le fichier xls?

Voilà merci pour votre aide.

Bonne journée

Richard

[frolland46]

Bonjour,

Pour l'impression de ton userform, je crois que la seule façon d'y arriver, c'est de passer par la configuration de ton imprimante dans le panneau de configuration de Windows. Je ne connais pas de façon de contrôler ces paramètres via VBA.

Pour enregistrer une donnée de ton userforme, ex. d'un textbox1,

Code :

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

feuil1.range("A1").formular1c1 = userform1.textbox1.value

bonne journée

[rickgoz]

Merci pour ta réponse.
A quoi correspond formular1c1 ??
Dans quel type de fonction dois-je inserer ce code?

[JackOuYA]

Merci pour ta réponse.
A quoi correspond formular1c1 ??
Dans quel type de fonction dois-je inserer ce code?

FormulaR1C1, est une propriété de ta cellule, destinée à acceuillir la formule présente dans ta cellule, formule en version anglaise et adressage style R1C1..

utilise plutôt la propriété Value, (tu arrive au même résultat mais c'est plus bô)

tu insére ce code, par exemple sur le code événemetiel d'un bouton, pose un bouton sur ton userform, double clic.. et ensuite met ton code..

[rickgoz]

Merci je vais essayer cela.

Une autre question:
Mon fichier se présente ainsi: Une BDD d'entreprise, avec nom, CA etc....
Mon userform s'affiche à partir d'un bouton FICHE
Ce userform reprend les colonnes de la BDD sous une forme plus "visuel" que 30 colonnes dans un fichier xls...

Mon problème est que lorsque je clique sur fiche, la première entreprise affichée sera celle en A4.
Et je voulais savoir s'il est possible que cela dépende de la cellule selectionnée.
Voici ma fonction Sub UserForm_Initialize()

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
Sub UserForm_Initialize()
'variable qui contient le N° de colonne contenant le nom pc = 1
dl = Sh.Range(Cells(65536, pc), Cells(65536, pc)).End(xlUp).Row
'variable qui contient le N° de la 1ère ligne de données 
pl = 4
'initialisation de la variable qui contiendra le N° de ligne du client sélectionné ou recherché
lgn = pl
'On masque les 3 objets que n'apparaîtront que lorsque vous cliquerez sur le bonton "CHERCHER"
Lab_trouv.Visible = False
Cmd_annul.Visible = False
Lb_trouv.Visible = False
 
'Dans cette boucle on affecte tous les noms de clients au ComboBox "Cb_cli"
For i = pl To dl
txt = Sh.Cells(i, pc)
If txt <> "" Then
Cb_cli.AddItem txt
End If
Next i
 
'Ici on rend le bouton "PRECEDENT" inopérant puisque le formulaire va s'ouvrir en affichant le 1er client
Cmd_prec.Enabled = True
'Appel de la procédure qui affiche les données du clients
Call Affich_cli
End Sub

Existe t'il une fonction comme une Get_Click que je pourrais introduire à l'initialisation de la variable qui contiendra le N° de ligne du client sélectionné?

J'espère avoir été clair.

Merci pour toute votre aide.

Richard

Ne pensez vous pas qu'il faut que j'accrémente à

lgn = renvoi le numéro de la ligne de la cellule active?

Cependant je ne sais pas renvoyer le numéro de la ligne de la cellule active en VBA

Personne n'a une petite idée?

[JackOuYA]

Bonjour,

ne multiplie pas les questions, maintenant je ne sais plus qu'elle est ta question .. , dans ton dernier code je ne vois nulle-part le code qui t'as été proposé plus haut !