textbox sur feuille

Bonjour,
j'ai fais une feuille de saisies données en y incluant des textbox.

Je voudrais récupérer les données de ces textbox. je sais en tapant chaque ligne pour chaque textbox, mais j'aimerais avoir une boucle comme ça même si j'ajoute une textbox ce sera auto.

Ma macro actuelle est toute simple et fonctionne mais la ligne en 'commentaire ne marche pas

J'ai essayer de trouver sur les forums mais à chaque fois c'est sur les textbox dans des uf. mais les miennes sont sur feuille

Quelqu'un a-t-il la solution ? Je joins fichier

Merci

Alain

bonsoir,
essaie avec

Code:

---

1 2 3 4 5 6

i = 1 For Each Ctrl In ActiveSheet.OLEObjects   Destination.Cells(6, i + 1) = Ctrl.Object.Value i = i + 1 Next Ctrl

---

Ça marche très bien merci !! :):ccool:

Bonne journée

Alain