Je rencontre quelques difficultés afin de récupérer des données dans
plusieurs onglets, de type formulaire, et ce dans un tableau récapitulatif.
Au lieu de grands discours, je joints le fichier exemple (questions en 1°
onglet)
Si quelqu'un peut jeter un oeil, je dormirais un peu mieux. Merci - Philippe
http://cjoint.com/?cBqdJNwXyU
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
JB
Bonjour,
Sub essai() Sheets("récapitulatif").Select ligne = 3 For s = 4 To Sheets.Count Cells(ligne, 1) = Sheets(s).[C2] Cells(ligne, 2) = Sheets(s).[C4] Cells(ligne, 3) = Sheets(s).[C6] Cells(ligne, 4) = Sheets(s).[C8] Cells(ligne, 5) = Sheets(s).[E7] Cells(ligne, 6) = Sheets(s).[G29] Cells(ligne, 7) = Sheets(s).[H29] ligne = ligne + 1 Next s End Sub
JB http://boisgontierjacques.free.fr
On 27 fév, 15:59, "Philippe" wrote:
Bonjour à toutes et à tous.
Je rencontre quelques difficultés afin de récupérer des données da ns plusieurs onglets, de type formulaire, et ce dans un tableau récapitulat if. Au lieu de grands discours, je joints le fichier exemple (questions en 1 ° onglet) Si quelqu'un peut jeter un oeil, je dormirais un peu mieux. Merci - Philip pehttp://cjoint.com/?cBqdJNwXyU
Bonjour,
Sub essai()
Sheets("récapitulatif").Select
ligne = 3
For s = 4 To Sheets.Count
Cells(ligne, 1) = Sheets(s).[C2]
Cells(ligne, 2) = Sheets(s).[C4]
Cells(ligne, 3) = Sheets(s).[C6]
Cells(ligne, 4) = Sheets(s).[C8]
Cells(ligne, 5) = Sheets(s).[E7]
Cells(ligne, 6) = Sheets(s).[G29]
Cells(ligne, 7) = Sheets(s).[H29]
ligne = ligne + 1
Next s
End Sub
JB
http://boisgontierjacques.free.fr
On 27 fév, 15:59, "Philippe" <mercierphilippe4...@neuf.fr> wrote:
Bonjour à toutes et à tous.
Je rencontre quelques difficultés afin de récupérer des données da ns
plusieurs onglets, de type formulaire, et ce dans un tableau récapitulat if.
Au lieu de grands discours, je joints le fichier exemple (questions en 1 °
onglet)
Si quelqu'un peut jeter un oeil, je dormirais un peu mieux. Merci - Philip pehttp://cjoint.com/?cBqdJNwXyU
Sub essai() Sheets("récapitulatif").Select ligne = 3 For s = 4 To Sheets.Count Cells(ligne, 1) = Sheets(s).[C2] Cells(ligne, 2) = Sheets(s).[C4] Cells(ligne, 3) = Sheets(s).[C6] Cells(ligne, 4) = Sheets(s).[C8] Cells(ligne, 5) = Sheets(s).[E7] Cells(ligne, 6) = Sheets(s).[G29] Cells(ligne, 7) = Sheets(s).[H29] ligne = ligne + 1 Next s End Sub
JB http://boisgontierjacques.free.fr
On 27 fév, 15:59, "Philippe" wrote:
Bonjour à toutes et à tous.
Je rencontre quelques difficultés afin de récupérer des données da ns plusieurs onglets, de type formulaire, et ce dans un tableau récapitulat if. Au lieu de grands discours, je joints le fichier exemple (questions en 1 ° onglet) Si quelqu'un peut jeter un oeil, je dormirais un peu mieux. Merci - Philip pehttp://cjoint.com/?cBqdJNwXyU
Philippe
Merci JB pour la rapidité. je vais m'y atteler Bonne fin de journée "JB" a écrit dans le message de news:
Bonjour,
Sub essai() Sheets("récapitulatif").Select ligne = 3 For s = 4 To Sheets.Count Cells(ligne, 1) = Sheets(s).[C2] Cells(ligne, 2) = Sheets(s).[C4] Cells(ligne, 3) = Sheets(s).[C6] Cells(ligne, 4) = Sheets(s).[C8] Cells(ligne, 5) = Sheets(s).[E7] Cells(ligne, 6) = Sheets(s).[G29] Cells(ligne, 7) = Sheets(s).[H29] ligne = ligne + 1 Next s End Sub
JB http://boisgontierjacques.free.fr
On 27 fév, 15:59, "Philippe" wrote:
Bonjour à toutes et à tous.
Je rencontre quelques difficultés afin de récupérer des données dans plusieurs onglets, de type formulaire, et ce dans un tableau récapitulatif. Au lieu de grands discours, je joints le fichier exemple (questions en 1° onglet) Si quelqu'un peut jeter un oeil, je dormirais un peu mieux. Merci - Philippehttp://cjoint.com/?cBqdJNwXyU
Merci JB pour la rapidité.
je vais m'y atteler
Bonne fin de journée
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
24610622-2f6a-49b8-bcb6-a91f50ba0447@p73g2000hsd.googlegroups.com...
Bonjour,
Sub essai()
Sheets("récapitulatif").Select
ligne = 3
For s = 4 To Sheets.Count
Cells(ligne, 1) = Sheets(s).[C2]
Cells(ligne, 2) = Sheets(s).[C4]
Cells(ligne, 3) = Sheets(s).[C6]
Cells(ligne, 4) = Sheets(s).[C8]
Cells(ligne, 5) = Sheets(s).[E7]
Cells(ligne, 6) = Sheets(s).[G29]
Cells(ligne, 7) = Sheets(s).[H29]
ligne = ligne + 1
Next s
End Sub
JB
http://boisgontierjacques.free.fr
On 27 fév, 15:59, "Philippe" <mercierphilippe4...@neuf.fr> wrote:
Bonjour à toutes et à tous.
Je rencontre quelques difficultés afin de récupérer des données dans
plusieurs onglets, de type formulaire, et ce dans un tableau
récapitulatif.
Au lieu de grands discours, je joints le fichier exemple (questions en 1°
onglet)
Si quelqu'un peut jeter un oeil, je dormirais un peu mieux. Merci -
Philippehttp://cjoint.com/?cBqdJNwXyU
Merci JB pour la rapidité. je vais m'y atteler Bonne fin de journée "JB" a écrit dans le message de news:
Bonjour,
Sub essai() Sheets("récapitulatif").Select ligne = 3 For s = 4 To Sheets.Count Cells(ligne, 1) = Sheets(s).[C2] Cells(ligne, 2) = Sheets(s).[C4] Cells(ligne, 3) = Sheets(s).[C6] Cells(ligne, 4) = Sheets(s).[C8] Cells(ligne, 5) = Sheets(s).[E7] Cells(ligne, 6) = Sheets(s).[G29] Cells(ligne, 7) = Sheets(s).[H29] ligne = ligne + 1 Next s End Sub
JB http://boisgontierjacques.free.fr
On 27 fév, 15:59, "Philippe" wrote:
Bonjour à toutes et à tous.
Je rencontre quelques difficultés afin de récupérer des données dans plusieurs onglets, de type formulaire, et ce dans un tableau récapitulatif. Au lieu de grands discours, je joints le fichier exemple (questions en 1° onglet) Si quelqu'un peut jeter un oeil, je dormirais un peu mieux. Merci - Philippehttp://cjoint.com/?cBqdJNwXyU