Discussion :

[marot_r]

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+

[ouskel'n'or]

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

[marot_r]

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+

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 j'avais oublié une procédure, j'ai corrigé

[marot_r]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

J'aimerai mieu un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[ouskel'n'or]

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+