Variable dans un TextBox Résolu/Fermé

Question

Bonjour, 

Je travail actuellement sur un petit jeu et j'utilise un userform avec des TextBox à remplir (38 TextBox pour être précis), j'essaye d'automatiser le code pour ne pas avoir un programme trop long.

Voici mon code:
Dim AA As Byte, BB As Byte
AA = 1
BB = 2
Do While AA <= 37
With Cells(TextBoxAA, TextBoxBB)
Value = 1
Interior.Color = 5296274
HorizontalAlignment = xlCenter
VerticalAlignment = xlCenter
End With
AA = AA + 2
BB = BB + 2
Loop


Objectif: mettre la valeur 1 dans la case, la coloriée en vert puis centré verticalement et horizontalement pour que ça soit joli.

Problème: je ne parviens pas à automatiser la ligne With Cells... j'ai essayé avec des " et des & mais je ne trouve pas.

Merci d'avance pour votre aide
Configuration: Windows / Chrome 99.0.4844.84

cs_Le Pivert · Answer

Bonjour,

je n'ai pas compris ce que venait faire les TextBox?

essaie ceci:

Sub test()
Dim AA As Byte, BB As Byte
AA = 1
BB = 2
Do While AA <= 37
With Cells(AA, BB)
.Value = 1
.Interior.Color = 5296274
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
AA = AA + 2
BB = BB + 2
Loop
End Sub

f894009 · Answer

Bonjour a vous deux,

Je pense que la plage de cellules est definie par le contenu des textbox. Autrement, en effet, que viennent-elles faire dans le code

Private Sub CommandButton1_Click()
    Dim AA As Byte, BB As Byte
    AA = 1
    BB = 2
    Do While AA <= 37
        With Cells(Me.Controls("TextBox" & AA), Me.Controls("TextBox" & BB))
            .Value = 1
            .Interior.Color = 5296274
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
        End With
        AA = AA + 2
        BB = BB + 2
    Loop
End Sub

Variable dans un TextBox

2 réponses

Discussions similaires