une boucle pour des textbox

[pascal21]

bonsoir
je suis à la recherche du code qui permet ceci sur une trentaine de textbox
textbox1.value= range("b4").value
textbox2.value= range("b5").value
textbox3.value= range("b6").value
textbox4.value= range("b7").value
etc.... sur 30 textbox
je sais faire une boucle
for i = 1 to 30
controls("textbox" & i).visible= true par exemple
mais je ne sais pas écrire le code permettant de selectionner la cellule
pouvez-vous m'aider merci

 

[Pierrot93]

Re : une boucle pour des textbox

Bonsoir Pascal

si j'ai bien compris :

Dim i As Integer
For i = 1 To 30
    Me.Controls("Textbox" & i).Value = Range("B" & i + 3).Value
Next i

bonne soirée
@+

 

[jp14]

Re : une boucle pour des textbox

Bonsoir
Bonsoir PIERROT93

controls("textbox" & i).visible= true par exemple
mais je ne sais pas écrire le code permettant de selectionner la cellule
pouvez-vous m'aider merci

Pour cette partie le plus simple est d'écrire

Private sub affiche(valeur1 as Boolean)
Dim i As Integer
For i = 1 To 30
    Me.Controls("Textbox" & i).Visible= valeur1
Next i
end sub

Pour afficher les textbox

call affiche(true)

pour les rendre invisibles

call affiche(false)

JP

 

[pascal21]

Re : une boucle pour des textbox

bonsoir JP ,pierrot
le code de pierrot fonctionne bien
par contre la colonne B contient une formule qui affiche les dates au jour le jour
ex: b4 3/3/8 ;b54/3/8; b65/3/8 etc.... jusqu'a la date du jour
par ex. la date de demain n'apparaitra que demain (sic!!!) et ainsi de suite
par contre dans les textbox , les cellules où il n'y a pas encore de date sont marqué 00:00:00
j'aurais préferé qu'il ne soit rien inscrit
comment faire
merci

edit: sujet résolu j'ai mis text à la place de value dans le code de pierrot
Me.Controls("Textbox" & i).Value = Range("B" & i + 3).text
du coup les textbox gardent le format des cellules