Bonjour à tous,
encore besoin d'aide,
j'arrive à extraire les données d'une feuille excel avec le code suivant :
If .ListIndex <> -1 Then
IndexComboBox = .ListIndex + 1
For a = 1 To 7 'Nombre de textbox
Me.Controls("Textbox" & a) = Rg(IndexComboBox, a)
Next
End If
J'aimerai maintenant faire l'inverse, renvoyer vers ma feuille les données saisies dans mes textbox. J'ai essayé de bidouiller ma formule pour en inverser le mécanisme, sans résultat.
Une idée ???
thanks
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
DanielCo
Bonjour. A priori : Rg(IndexComboBox, a)=Me.Controls("Textbox" & a).value Cordialement. Daniel
Bonjour à tous, encore besoin d'aide, j'arrive à extraire les données d'une feuille excel avec le code suivant :
If .ListIndex <> -1 Then IndexComboBox = .ListIndex + 1 For a = 1 To 7 'Nombre de textbox Me.Controls("Textbox" & a) = Rg(IndexComboBox, a) Next End If J'aimerai maintenant faire l'inverse, renvoyer vers ma feuille les données saisies dans mes textbox. J'ai essayé de bidouiller ma formule pour en inverser le mécanisme, sans résultat. Une idée ??? thanks
Bonjour.
A priori :
Rg(IndexComboBox, a)=Me.Controls("Textbox" & a).value
Cordialement.
Daniel
Bonjour à tous,
encore besoin d'aide,
j'arrive à extraire les données d'une feuille excel avec le code suivant :
If .ListIndex <> -1 Then
IndexComboBox = .ListIndex + 1
For a = 1 To 7 'Nombre de textbox
Me.Controls("Textbox" & a) = Rg(IndexComboBox, a)
Next
End If
J'aimerai maintenant faire l'inverse, renvoyer vers ma feuille les données
saisies dans mes textbox. J'ai essayé de bidouiller ma formule pour en
inverser le mécanisme, sans résultat.
Une idée ???
thanks
Bonjour. A priori : Rg(IndexComboBox, a)=Me.Controls("Textbox" & a).value Cordialement. Daniel
Bonjour à tous, encore besoin d'aide, j'arrive à extraire les données d'une feuille excel avec le code suivant :
If .ListIndex <> -1 Then IndexComboBox = .ListIndex + 1 For a = 1 To 7 'Nombre de textbox Me.Controls("Textbox" & a) = Rg(IndexComboBox, a) Next End If J'aimerai maintenant faire l'inverse, renvoyer vers ma feuille les données saisies dans mes textbox. J'ai essayé de bidouiller ma formule pour en inverser le mécanisme, sans résultat. Une idée ??? thanks