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
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
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
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
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
Dans les cellules, mais cela tu l'auras certainement compris
'----------------
Cells(NbFiche + 25, i + 3) = OLEObjects("textBox" & i).Object.Value
'----------------
--
Salutations
JJ
"Jacky"
Je débute dans ce genre de programmation. On verra bien.
En tout cas merci pour le code qui fonctionne comme attendu.
JP