une boucle pour des textbox

pascal21 · 7 Mars 2008

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 · 7 Mars 2008

Re : une boucle pour des textbox

Bonsoir Pascal

si j'ai bien compris :

Code:

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 · 7 Mars 2008

Re : une boucle pour des textbox

Bonsoir
Bonsoir PIERROT93

pascal21 à dit:
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

Code:

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

Code:

call affiche(true)

pour les rendre invisibles

Code:

call affiche(false)

JP

pascal21 · 7 Mars 2008

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

une boucle pour des textbox

pascal21

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

jp14

XLDnaute Barbatruc

pascal21

XLDnaute Barbatruc

Discussions similaires

une boucle pour des textbox

pascal21

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

jp14

XLDnaute Barbatruc

pascal21

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency