Controls("textbox" & i)

Le
JP
Bonjour,
J'ai des textbox (Controles activeX) dans une feuille.
Pour réécrire les valeurs dans des cellules dans la même feuille, j'u=
tilise ce code qui me donne une erreur.
Pourquoi?


Cells(NbFiche+25, i+3) = Me.Controls("textbox" & i).Value

Code complet:

Private Sub AjoutFournisseur_Click()
'compte le nombre d'enregistrement
NbFiche = Application.CountA(Range("D25:D216"))
For i = 1 To 12
Cells(NbFiche + 25, i + 3) = Me.Controls("textbox" & i).Value
Next i
End Sub


Merci

JP
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #25790902
Bonsoir,
j'utilise ce code qui me donne une erreur.
Pourquoi?


A priori pas d'erreur dans le code, peut-être une erreur de nom de textbox

Teste comme ceci et tu devrais trouver
'---------------
Private Sub AjoutFournisseur_Click()
'compte le nombre d'enregistrement
NbFiche = Application.CountA(Range("D25:D216"))
For i = 1 To 12
MsgBox "Adresse de cellule : " & Cells(NbFiche + 25, i + 3).Address
MsgBox "Non du textbox : " & Me.Controls("textbox" & i).Name
'Cells(NbFiche + 25, i + 3) = Me.Controls("textbox" & i).Value
Next i
End Sub
'-----------------



--
Salutations
JJ


"JP"
Bonjour,
J'ai des textbox (Controles activeX) dans une feuille.
Pour réécrire les valeurs dans des cellules dans la même feuille, j'utilise ce code qui me donne une erreur.
Pourquoi?


Cells(NbFiche+25, i+3) = Me.Controls("textbox" & i).Value

Code complet:

Private Sub AjoutFournisseur_Click()
'compte le nombre d'enregistrement
NbFiche = Application.CountA(Range("D25:D216"))
For i = 1 To 12
Cells(NbFiche + 25, i + 3) = Me.Controls("textbox" & i).Value
Next i
End Sub


Merci

JP
JP
Le #25790922
Bonjour Jacky ;-)

Merci pour ta proposition mais le blocage est le même.
Le point de blocage est à Me.controls("textbox" & i).

Un exemple http://cjoint.com/?3KqrEXnaLvj

JP
Jacky
Le #25791002
Re...
Pas de userform
Donc essaye
MsgBox OLEObjects("textBox" & i).Object.Value

Sinon, pas très fort dans les OLE.......objects
:o))
Je cède la main.

--
Salutations
JJ


"JP"
Bonjour Jacky ;-)

Merci pour ta proposition mais le blocage est le même.
Le point de blocage est à Me.controls("textbox" & i).

Un exemple http://cjoint.com/?3KqrEXnaLvj

JP
Jacky
Le #25791012
Re..
Dans les cellules, mais cela tu l'auras certainement compris
'----------------
Cells(NbFiche + 25, i + 3) = OLEObjects("textBox" & i).Object.Value
'----------------
--
Salutations
JJ


"Jacky"
Re...
Pas de userform
Donc essaye
MsgBox OLEObjects("textBox" & i).Object.Value

Sinon, pas très fort dans les OLE.......objects
:o))
Je cède la main.

--
Salutations
JJ


"JP"
Bonjour Jacky ;-)

Merci pour ta proposition mais le blocage est le même.
Le point de blocage est à Me.controls("textbox" & i).

Un exemple http://cjoint.com/?3KqrEXnaLvj

JP

JP
Le #25791382
Bonjour Jacky,

Je débute dans ce genre de programmation. On verra bien.
En tout cas merci pour le code qui fonctionne comme attendu.

JP
Publicité
Poster une réponse
Anonyme