Discussion :

[tools]

Bonjour à tous,

Tout d'abords merci de me venir en aide.

J'ai deux TextBox que je veux positionner sur la même ligne:
--> Pas de problème pour définir les propriétées de la première TextBox.
--> Je cherche à placer la deuxième à la suite de la première sur la même ligne avec un espace de 2 (une case dans mon tableau) et la je bloque.

Ci joint une partie de mon code :

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
' Reference 3
    If Refe3 <> 0 And Refe3 <> "" Then
Dim L3 As Single, T3 As Single, H3 As Single, W3 As Single
'Dimensions et position de la zone de texte
H3 = 48 '< --hauteur
W3 = (9 * Refe3) '<-- largeur
L3 = Range("B10").Left '<-- position horizontale
T3 = Range("B10").Top '<-- position verticale
'Insertion de la zone de texte
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, L3, T3, W3, H3).Select
Selection.Name = "zone3" '<-- nom de la zone de texte
With Selection
.Name = "zone3" '<-- nom de la zone de texte
.Characters.Text = Range("DT7").Value & Chr(10) & Range("DU7").Value & " Cartons "    '<-- &amp; Chr(10) &amp; = saut de ligne
.HorizontalAlignment = xlCenter '<-- texte centré horizontalement
.VerticalAlignment = xlCenter '<-- texte centré verticalement
.ShapeRange.Fill.ForeColor.SchemeColor = 9  '<-- couleur de fond
End With
With Selection.Font
.Size = Taillepolice
End With
    End If
 
 
    ' Reference 4
    If Refe4 <> 0 And Refe4 <> "" Then
Dim L4 As Single, T4 As Single, H4 As Single, W4 As Single
'Dimensions et position de la zone de texte
H4 = 48 '< --hauteur
W4 = (9 * Refe4) '<-- largeur
larg4 = 2 + Refe3
targ4 = 2 + Refe3
L4 = Range(larg4, 10).Left '<-- position horizontale
T4 = Range(targ4, 10).Top '<-- position verticale
'Insertion de la zone de texte
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, L4, T4, W4, H4).Select
Selection.Name = "zone4" '<-- nom de la zone de texte
With Selection
.Name = "zone4" '<-- nom de la zone de texte
.Characters.Text = Range("DT8").Value & Chr(10) & Range("DU8").Value & " Cartons "    '<-- &amp; Chr(10) &amp; = saut de ligne
.HorizontalAlignment = xlCenter '<-- texte centré horizontalement
.VerticalAlignment = xlCenter '<-- texte centré verticalement
.ShapeRange.Fill.ForeColor.SchemeColor = 9  '<-- couleur de fond
End With
With Selection.Font
.Size = Taillepolice
End With
    End If

Merci de m'aiguiller.

PS : ce sont les lignes 31 et 32 qui me bloquent.

Cordialement

Rémi

[mercatog]

Code :

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

1
2
    L4 = L3 + W3 + 2                 '<-- position horizontale
    T4 = T3

[tools]

Merci beaucoup Mercatog, pour cette réponse qui m'a permis d'avancer.

Bien cordialement.