Bonjour,
J'ai des textbox (Controles activeX) dans une feuille.
Pour r=E9=E9crire les valeurs dans des cellules dans la m=EAme feuille, j'u=
tilise ce code qui me donne une erreur.=20
Pourquoi?
Private Sub AjoutFournisseur_Click()
'compte le nombre d'enregistrement
NbFiche =3D Application.CountA(Range("D25:D216"))
For i =3D 1 To 12
Cells(NbFiche + 25, i + 3) =3D Me.Controls("textbox" & i).Value
Next i
End Sub
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
Jacky
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" a écrit dans le message de news:
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?
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
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" <jthillard@gmail.com> a écrit dans le message de news:
bf618e50-6cf9-4427-8ded-62013e18059f@googlegroups.com...
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?
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
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" a écrit dans le message de news:
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?
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
Bonjour Jacky ;-)
Merci pour ta proposition mais le blocage est le même. Le point de blocage est à Me.controls("textbox" & i).
Re.. Dans les cellules, mais cela tu l'auras certainement compris '---------------- Cells(NbFiche + 25, i + 3) = OLEObjects("textBox" & i).Object.Value '---------------- -- Salutations JJ
"Jacky" a écrit dans le message de news: l68bfu$si6$
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" a écrit dans le message de news:
Bonjour Jacky ;-)
Merci pour ta proposition mais le blocage est le même. Le point de blocage est à Me.controls("textbox" & i).
Re..
Dans les cellules, mais cela tu l'auras certainement compris
'----------------
Cells(NbFiche + 25, i + 3) = OLEObjects("textBox" & i).Object.Value
'----------------
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: l68bfu$si6$1@speranza.aioe.org...
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" <jthillard@gmail.com> a écrit dans le message de news:
da81c6fd-1d94-48b7-b83a-54dd37a41958@googlegroups.com...
Bonjour Jacky ;-)
Merci pour ta proposition mais le blocage est le même.
Le point de blocage est à Me.controls("textbox" & i).
Re.. Dans les cellules, mais cela tu l'auras certainement compris '---------------- Cells(NbFiche + 25, i + 3) = OLEObjects("textBox" & i).Object.Value '---------------- -- Salutations JJ
"Jacky" a écrit dans le message de news: l68bfu$si6$
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" a écrit dans le message de news:
Bonjour Jacky ;-)
Merci pour ta proposition mais le blocage est le même. Le point de blocage est à Me.controls("textbox" & i).
