erreur avec for next

[pascal21]

Controls("Textbox" & b).Value = Range("b" & b + 3).Text
    Next b
For c = 33 To 64
Controls("Textbox" & c).Value = Range("c" & c + 3).Text
   Next c
For d = 65 To 96
Controls("Textbox" & d).Value = Range("d" & d + 3).Value
Next d

bonjour
j'ai un soucis sur ces lignes de codes
ça ne me signale pas d'erreur mais for c et for d ne fonctionnent pas alors que for b fonctionne
quel est l'erreur SVP
je viens de changer les lettres à tout hasard mais rien de changer
merci

 

[wilfried_42]

Re : erreur avec for next

re:

Il manque une ligne (Si j'ai tout compris), For b = x to y

For c = 33 To 64
Controls("Textbox" & c).Value = Range("c" & (c-32) + 3).Text
Next c

Tu demarre ta boucle C à 33 pour l'indexation de tes controls, Mais ton Range aussi commence à 33 alors que (si j'ai tout compris), devrait commencer à 1

Pareil pour la boucle d, (D-64)

tes boucles doivents fonctionner, mais ne chargent que des valeurs vides

 

[pascal21]

Re : erreur avec for next

bonjour wielfrid
tu as parfaitement su comprendre mon charabia lol!!!
merci ça fonctionne
maintenant je cherche le code qui permet à ces textbox d'écrire dans les cellules (selon le même principe que précédement)
je sais écrire "range ("c4").value = textbox33. value
mais je n'arrive pas à créer une boucle avec les cellules et les texbox
merci d'avance

 

[wilfried_42]

Re : erreur avec for next

Bonjour

C'est exactement le meme code tu inverses seulement les egalités

Range("B" & +3).value = controls("TextBox" & b).value

Bon week end