VBA excel, Pb avec For Each, les controles étant des textbox dans une feuille, e [Résolu]

Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
- - Dernière réponse : michelxld
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
- 3 mars 2006 à 08:36
Bonjour à tous !!

Je galère sur un petit point et un petit coup de main ne serait pas de refus.
_________________________________________________________
je dois placer ce qui est de la feuille "en cours" vers la feuille "impression":

dans le feuille "en cours" j'ai les noms de gens en Astreinte suivant un secteur géographique
de la cellule A2 a M2
je dois les placer dans des TextBox intégrées dans la feuille "impression"

Sachant que les données de la colonne A, donc n°1 (de ma feuille "en cours"), doivent etre rentrées dans la TextBox1de la feuille "impression",
la colonne B correspond à la TextBox2 etc... jusqu'à 13

' mon code qui se trouve dans un commandbutton_click d'un userform:
Dim ctl2 As Control

For Each ctl2 In ActiveWorkbook.ActiveSheet.Shapes
If ctl2.Type = 12 Then 'ça c'est pour le type "TextBox" car j'ai aussi des Labels
NomControl = ctl2.Name
i = Mid(NomControl, 8)
Range("F50").Value = i EssaiNom.Value Range("H50").Text ' EssaiNom devrait etre à "TextBox8" mais ça plante!!
Sheets("impression").EssaiNom.Text = Sheets("encours").Cells(2, i).Value
End If
Next ctl2

Merci à celles ou ceux qui pourraient m'être d'un grand secours
Mortalino
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
16
3
Merci
bonjour

tu peux adapter cette procedure pour boucler sur les TextBox de la feuille "impression"

Dim Obj As OLEObject
Dim i As Integer


For Each Obj In Worksheets("impression").OLEObjects
If TypeOf Obj.Object Is MSForms.TextBox Then
i = i + 1
Obj.Object.Value = Sheets("encours").Cells(2, i).Value
End If
Next Obj

bonne journée
michel

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 205 internautes nous ont dit merci ce mois-ci