Ce code fonctionne tr=E8s bien dans la feuille o=F9 sont les objets.
Je voudrais le mettre en sous proc=E9dure dans un module.
Comment puis-je appeler de la feuille la proc=E9dure et le code doit-il =EA=
tre modifi=E9?
Merci d'avance.
JP
'Boucle inscrivant les champs dans les textbox
For i =3D 1 To 12
OLEObjects("textBox" & i).Object.Value =3D Cells(ActiveCell.Row, i + 3)
Next i
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
Bonjour, Code de la feuille '------------ Private Sub AjoutFournisseur_Click() 'compte le nombre d'enregistrement Call AjoutSurFeuille End Sub '-------------
Dans un module Adapter le nom de la feuille (Ici Feuil1 est le code name de la feuille 'Fournisseurs') '-------------- Sub AjoutSurFeuille() NbFiche = Application.CountA(Range("D25:D216")) For i = 1 To 12 With Feuil1 .Cells(NbFiche + 25, i + 3) = .OLEObjects("textBox" & i).Object.Value End With Next i End Sub '--------------
-- Salutations JJ
"JP" a écrit dans le message de news:
Bonjour,
Ce code fonctionne très bien dans la feuille où sont les objets. Je voudrais le mettre en sous procédure dans un module. Comment puis-je appeler de la feuille la procédure et le code doit-il être modifié?
Merci d'avance.
JP
'Boucle inscrivant les champs dans les textbox For i = 1 To 12 OLEObjects("textBox" & i).Object.Value = Cells(ActiveCell.Row, i + 3) Next i
Bonjour,
Code de la feuille
'------------
Private Sub AjoutFournisseur_Click()
'compte le nombre d'enregistrement
Call AjoutSurFeuille
End Sub
'-------------
Dans un module
Adapter le nom de la feuille (Ici Feuil1 est le code name de la feuille 'Fournisseurs')
'--------------
Sub AjoutSurFeuille()
NbFiche = Application.CountA(Range("D25:D216"))
For i = 1 To 12
With Feuil1
.Cells(NbFiche + 25, i + 3) = .OLEObjects("textBox" & i).Object.Value
End With
Next i
End Sub
'--------------
--
Salutations
JJ
"JP" <jthillard@gmail.com> a écrit dans le message de news:
b8fc840d-0898-4662-af85-954cd9c44920@googlegroups.com...
Bonjour,
Ce code fonctionne très bien dans la feuille où sont les objets.
Je voudrais le mettre en sous procédure dans un module.
Comment puis-je appeler de la feuille la procédure et le code doit-il être modifié?
Merci d'avance.
JP
'Boucle inscrivant les champs dans les textbox
For i = 1 To 12
OLEObjects("textBox" & i).Object.Value = Cells(ActiveCell.Row, i + 3)
Next i
Bonjour, Code de la feuille '------------ Private Sub AjoutFournisseur_Click() 'compte le nombre d'enregistrement Call AjoutSurFeuille End Sub '-------------
Dans un module Adapter le nom de la feuille (Ici Feuil1 est le code name de la feuille 'Fournisseurs') '-------------- Sub AjoutSurFeuille() NbFiche = Application.CountA(Range("D25:D216")) For i = 1 To 12 With Feuil1 .Cells(NbFiche + 25, i + 3) = .OLEObjects("textBox" & i).Object.Value End With Next i End Sub '--------------
-- Salutations JJ
"JP" a écrit dans le message de news:
Bonjour,
Ce code fonctionne très bien dans la feuille où sont les objets. Je voudrais le mettre en sous procédure dans un module. Comment puis-je appeler de la feuille la procédure et le code doit-il être modifié?
Merci d'avance.
JP
'Boucle inscrivant les champs dans les textbox For i = 1 To 12 OLEObjects("textBox" & i).Object.Value = Cells(ActiveCell.Row, i + 3) Next i
Jacky
Re... Il faudra inclure le CountA '------------- Sub AjoutSurfeuille() With Feuil1 NbFiche = Application.CountA(.Range("D25:D216")) For i = 1 To 12 .Cells(NbFiche + 25, i + 3) = .OLEObjects("textBox" & i).Object.Value Next i End With End Sub "---------------
-- Salutations JJ
"Jacky" a écrit dans le message de news: l6a16h$g9u$
Bonjour, Code de la feuille '------------ Private Sub AjoutFournisseur_Click() 'compte le nombre d'enregistrement Call AjoutSurFeuille End Sub '-------------
Dans un module Adapter le nom de la feuille (Ici Feuil1 est le code name de la feuille 'Fournisseurs') '-------------- Sub AjoutSurFeuille() NbFiche = Application.CountA(Range("D25:D216")) For i = 1 To 12 With Feuil1 .Cells(NbFiche + 25, i + 3) = .OLEObjects("textBox" & i).Object.Value End With Next i End Sub '--------------
-- Salutations JJ
"JP" a écrit dans le message de news:
Bonjour,
Ce code fonctionne très bien dans la feuille où sont les objets. Je voudrais le mettre en sous procédure dans un module. Comment puis-je appeler de la feuille la procédure et le code doit-il être modifié?
Merci d'avance.
JP
'Boucle inscrivant les champs dans les textbox For i = 1 To 12 OLEObjects("textBox" & i).Object.Value = Cells(ActiveCell.Row, i + 3) Next i
Re...
Il faudra inclure le CountA
'-------------
Sub AjoutSurfeuille()
With Feuil1
NbFiche = Application.CountA(.Range("D25:D216"))
For i = 1 To 12
.Cells(NbFiche + 25, i + 3) = .OLEObjects("textBox" & i).Object.Value
Next i
End With
End Sub
"---------------
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: l6a16h$g9u$1@speranza.aioe.org...
Bonjour,
Code de la feuille
'------------
Private Sub AjoutFournisseur_Click()
'compte le nombre d'enregistrement
Call AjoutSurFeuille
End Sub
'-------------
Dans un module
Adapter le nom de la feuille (Ici Feuil1 est le code name de la feuille 'Fournisseurs')
'--------------
Sub AjoutSurFeuille()
NbFiche = Application.CountA(Range("D25:D216"))
For i = 1 To 12
With Feuil1
.Cells(NbFiche + 25, i + 3) = .OLEObjects("textBox" & i).Object.Value
End With
Next i
End Sub
'--------------
--
Salutations
JJ
"JP" <jthillard@gmail.com> a écrit dans le message de news:
b8fc840d-0898-4662-af85-954cd9c44920@googlegroups.com...
Bonjour,
Ce code fonctionne très bien dans la feuille où sont les objets.
Je voudrais le mettre en sous procédure dans un module.
Comment puis-je appeler de la feuille la procédure et le code doit-il être modifié?
Merci d'avance.
JP
'Boucle inscrivant les champs dans les textbox
For i = 1 To 12
OLEObjects("textBox" & i).Object.Value = Cells(ActiveCell.Row, i + 3)
Next i
Re... Il faudra inclure le CountA '------------- Sub AjoutSurfeuille() With Feuil1 NbFiche = Application.CountA(.Range("D25:D216")) For i = 1 To 12 .Cells(NbFiche + 25, i + 3) = .OLEObjects("textBox" & i).Object.Value Next i End With End Sub "---------------
-- Salutations JJ
"Jacky" a écrit dans le message de news: l6a16h$g9u$
Bonjour, Code de la feuille '------------ Private Sub AjoutFournisseur_Click() 'compte le nombre d'enregistrement Call AjoutSurFeuille End Sub '-------------
Dans un module Adapter le nom de la feuille (Ici Feuil1 est le code name de la feuille 'Fournisseurs') '-------------- Sub AjoutSurFeuille() NbFiche = Application.CountA(Range("D25:D216")) For i = 1 To 12 With Feuil1 .Cells(NbFiche + 25, i + 3) = .OLEObjects("textBox" & i).Object.Value End With Next i End Sub '--------------
-- Salutations JJ
"JP" a écrit dans le message de news:
Bonjour,
Ce code fonctionne très bien dans la feuille où sont les objets. Je voudrais le mettre en sous procédure dans un module. Comment puis-je appeler de la feuille la procédure et le code doit-il être modifié?
Merci d'avance.
JP
'Boucle inscrivant les champs dans les textbox For i = 1 To 12 OLEObjects("textBox" & i).Object.Value = Cells(ActiveCell.Row, i + 3) Next i