Langage VBA UserForme et Zone de Texte

Fermé
tonybumo25 Messages postés 3 Date d'inscription mardi 26 février 2013 Statut Membre Dernière intervention 26 février 2013 - 26 févr. 2013 à 10:13
via55 Messages postés 14504 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 21 décembre 2024 - 26 févr. 2013 à 14:42
Bonjour,
Je souhaite crée une planification pour une entreprise sous excel, j'ai déjà un fichier avec un calendrier et une ligne pour chaque machine (4 ligne ) je voudrais réaliser une user forme qui me permette de dimensionner une zone de texte ( qui correspondrai à une commande), Et je voudrai que celle ci se positionne directement a la suit des autre suivant la ligne définie par la machine choisi
j'ai déjà rée l'user forme et la zone de texte mai séparément.
Si vous pouvez m'aider j'en serai ravis
merci d'avance
Bonne journée.


3 réponses

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
26 févr. 2013 à 10:27
Bonjour,

Un tuto sur le sujet est consultable ICI.
1
tonybumo25 Messages postés 3 Date d'inscription mardi 26 février 2013 Statut Membre Dernière intervention 26 février 2013
26 févr. 2013 à 10:32
bonjour pijaku,

merci, je connais déja se tutoriel, mon problème, c'est que je veut dimensionner et positionner ma zone de texte, par rapport à des informations que je rentre dans une user forme.
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
Modifié par pijaku le 26/02/2013 à 10:51
c'est que je veut dimensionner et positionner ma zone de texte, par rapport à des informations que je rentre dans une user forme.
Oui et? Il est ou le problème???
Pour dimensionner il te faut deux valeurs : hauteur et largeur...
Pour dimensionner ET positionner, il t'en faut 4 : hauteur, largeur, distance par rapport au haut de feuille, distance par rapport à la gauche de la feuille...
Dans ton userform tu places donc 4 textbox chargés de recevoir ces valeurs et basta...

Un code serait :
Dim L As Integer, T As Integer, H As Integer, W As Integer 
'Dimensions et position de la zone de texte 
H = CInt(TextBox1.Value) '<-- hauteur 
W = CInt(TextBox2.Value) ' '<-- largeur 
L = CInt(TextBox3.Value)  '<-- position horizontale 
T = CInt(TextBox4.Value) ''<-- position verticale
'Insertion de la zone de texte 
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, L, T, W, H).Select 
Selection.Name = "ztxt1" '<-- nom de la zone de texte 
Range("A1").Activate '<-- permet de quitter la sélection de la zone de texte
0
tonybumo25 Messages postés 3 Date d'inscription mardi 26 février 2013 Statut Membre Dernière intervention 26 février 2013
26 févr. 2013 à 10:46
Ok je vais essayer comme ca
merci de ta patience
0
via55 Messages postés 14504 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 21 décembre 2024 2 738
26 févr. 2013 à 14:42
Bonjour,

Pour compléter : si tu veux positionner les zones les une en dessous des autres il faut penser à récupérer dans une variable deniereposition la somme H +T et utiliser cette variable pour définir la position verticale de la zone suivante

Cdlmnt
0