mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 2011
-
3 mars 2006 à 07:10
michelxld
Messages postés402Date d'inscriptionvendredi 6 août 2004StatutMembreDernière intervention12 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
michelxld
Messages postés402Date d'inscriptionvendredi 6 août 2004StatutMembreDernière intervention12 octobre 200832 3 mars 2006 à 08:36
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