Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Controls("textbox" & i)

Controls("textbox" & i)

5 réponses
Avatar
JP
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?


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

Code complet:

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


Merci

JP
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
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?


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
Avatar
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
Avatar
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" 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).

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

JP
Avatar
Jacky
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).

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

JP

Avatar
JP
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