Changer le controlSource d'un TextBox Excel

Bonjour à tous et merci de votre temps, veuillez aussi noter que je débute en programmation Excel (mes 10 ans d'expérience de VBA viennent de Access :-).

Mon pb est assez simple, j'ai une feuille Excel qui contient des données et je voudrais mettre un form dessus pour faciliter (et contrôler) la saisie.

Attention ce classeur sera utilisé en mode partagé.

J'ai réussi à mettre les cellules en relation avec le form (propriété ControlSource) mais cette liaison est une chaine au format 'A1'. Évidement cette ref est fixe et j'ai plus d'une ligne de données.

J'ai trouvé un exemple de form qui permet de gérer le déplacement de ligne en ligne en gérant un compteur de ligne et en transférant les données de la feuille vers les contrôles et des contrôles vers la feuille. (cells(x, y) -> MaVariable -> cells(x, y))

J'aimerai garder la liaison directe (ex : monChamp.ControlSource='A2') et pouvoir la changer en fonction des déplacements demandés par mon utilisateur (ex : monChamp.ControlSource='A3' pour enr suivant) mais faire +1 sur une chaîne se fait assez mal.

Donc mes questions sont les suivantes :

1) Est-ce une bonne idée ?
2) Existe t'il un moyen simple de convertir un chaîne ref de type A1 en un couple (ligne nombre, colonne nombre) et vice-versa (ex : B3 -> (2, 3) -> B3) dans du code VBA.

A+

Regarde déjà dans l'aide à RowSource (qui n'existe pas dans Access, enfin je ne crois pas) et reviens-nous si ça ne correspond pas.
Tu définis ta plage de données à placer dans ta liste, si ta plage augmente, tu la redéfinis, idem si elle diminue.
Si une donnée est modifiée dans la feuille Excel au sein de la plage définie, ta liste sera modifiée en conséquence.
A+

NB - Pour autant que j'ai compris ta question :cry:

Merci mais ce n'est pas une liste, c'est une zone de texte donc elle n'accepte qu'une seule cellule comme source de données.

A+

:oops:
J'ai vu et j'ai fait ça... pour descendre de ligne en ligne... Pour remonter, faudrait un bouton

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim i As Long i = ActiveCell.Row ChangerDeLigne i End Sub   Sub ChangerDeLigne(i) Dim j As Long j = i + 1 ActiveSheet.Cells(j, 2).Select TextBox1.Text = ActiveSheet.Cells(j, 2).Value End Sub   Private Sub UserForm_Initialize() ActiveSheet.Cells(1, 2).Select End Sub

---

Vraiment une idée en l'air... ;)

re :oops: j'avais oublié une procédure, j'ai corrigé

Oui, c'est la solution que j'ai trouvé aussi mais j'aimerai éviter de passer par :

Code:

---

1 2	TextBox1.Text = ActiveSheet.Cells(j, 2).Value

---

J'aimerai mieu un truc du genre :

Code:

---

1 2	TextBox1.ControlSource = ActiveSheet.Cells(j, 2)

---

Comme cela quand on fait une modif dans TextBox1, elle est immédiatement faites dans Cells(j,2). Il n'est pas nécessaire de faire du code pour qu'elle soit mis à jour.

A+

Un petit exemple valant mieux qu'un long discours...
Pièce jointe 10127
Ceci dit, j'utiliserais un ascenseur qui éviterait d'avoir à sélectionner la cellule ;)
A+

Code:

---

1 2 3

ActiveSheet.Cells(j, 1).Select TextBox1.ControlSource = ActiveCell.Address

---

Merci ! C'est ce que je cherchais.

A+

Comme je t'ai dit, avec un ascenseur sur le N° de ligne (ScrollBar) même tout petit, ou même un SpinButton, tu n'aurais pas besoin de sélectionner la cellule.
Juste une idée
A+

Je n'ai pas l'habitude d'utiliser ce genre de contrôle (ScrollBar) comment l'utilises-tu pour qu'il change automatiquement d'enr ?

OK j'ai trouvé cela sur une des pages M$

Citation:

---

Envoyé par Excel

Exemple de barre de défilement
1. Dans la barre d'outils Formulaires, cliquez sur le bouton Barre de défilement, puis créez une barre de défilement qui couvre les cellules B2:B6 en hauteur et mesure environ un quart de la largeur de la colonne.
2. Dans le menu Format, cliquez sur Contrôle. Tapez les informations suivantes, puis cliquez sur OK.a. Dans la zone Valeur en cours, tapez 1.

Ceci initialise la barre de défilement de sorte que la formule INDEX pointe sur le premier élément de la liste.
b. Dans la zone Valeur minimale, tapez 1.

Cette valeur restreint la limite supérieure de la barre de défilement au premier élément de la liste.
c. Dans la zone Valeur maximale, tapez 20. Ce nombre spécifie le nombre maximal d'entrées dans la liste.
d. Dans la zone Changement de pas, tapez 1.

Cette valeur détermine le pas d'incrémentation du contrôle de la barre de défilement pour la valeur en cours.
e. Dans la zone Changement de page, tapez 5. Cette entrée gère la valeur d'incrémentation que ce contrôle appliquera à la valeur en cours si vous cliquez dans la barre de défilement de chaque côté de la zone de défilement).
f. Pour insérer une valeur numérique dans la cellule G1 (en fonction de l'élément sélectionné dans la liste), tapez G1 dans la zone Cellule liée. Remarque : la case à cocher Ombrage 3D est facultative ; elle confère un aspect tridimensionnel à la barre de défilement.

Cliquez sur une cellule afin que la barre de défilement ne soit pas sélectionnée. Lorsque vous cliquez sur le contrôle supérieur ou inférieur de la barre de défilement, la cellule G1 est mise à jour et affiche un nombre correspondant à la valeur en cours de la barre de défilement, incrémentée ou décrémentée du changement de pas de cette dernière. Ce nombre est utilisé dans la formule de type INDEX de la cellule A1 pour afficher l'élément suivant ou précédent par rapport à l'élément en cours. Vous pouvez également faire glisser le curseur de défilement pour modifier la valeur ou cliquer dans la barre de défilement d'un côté ou de l'autre du curseur pour appliquer un incrément de 5 (valeur du Changement de page). La barre de défilement ne change pas si la valeur en cours est 1 et vous cliquez sur le contrôle inférieur, ou si la valeur en cours est 20 et vous cliquez sur le contrôle supérieur.

---

La ScrollBar est une barre de défilement comme dans Excel.
Tu donnes comme max le nombre de lignes renseignées, comme min 1 ou 2 selon que tu as une entête ou non, pour chaque clic sur une flèche, tu récupères la "value" pour avoir la ligne, ligne que tu pourras utiliser pour définir le nouveau ControlSource. A la réflexion, le spinbutton serait encore plus pratique, sauf que tu ne peux pas rapidement passer de la ligne 2 à la ligne 100. Avec le spinbutton c'est un par un si tu veux pouvoir voir toutes les lignes.
Comment ça marche ? Comme une flêche bas ou haut dans Excel.
La ScrollBar te permet de te déplacer de 2 à 100 ou de 2 à trois d'un seul coup d'un seul selon que tu utilises les flêches ou le curseur.
Si tu as des ennuis...
A+

Grillé par :f1: :mouarf: