Reduire la longueur de mon code

akossicarole
Messages postés
6
Date d'inscription
lundi 23 juillet 2018
Statut
Membre
Dernière intervention
24 juillet 2018
- 23 juil. 2018 à 12:10
vb95
Messages postés
3056
Date d'inscription
samedi 11 janvier 2014
Statut
Modérateur
Dernière intervention
22 septembre 2022
- 24 juil. 2018 à 22:10
bonjour! SVP j'ai tapé un code qui permet de copier le contenu d'une feuille excel nommé BD-TELEINFO vers une autre feuille nommé feuil1 mais lorsque j’exécute on me dire que erreur de compilation: procédure trop grande. je ne sais pas comment réduire mon code

4 réponses

vb95
Messages postés
3056
Date d'inscription
samedi 11 janvier 2014
Statut
Modérateur
Dernière intervention
22 septembre 2022
158
Modifié le 23 juil. 2018 à 13:40
bonjour !
Ceci répondra peut-être à ta question : https://www.commentcamarche.net/forum/affich-13512035-taille-des-procedures-vba-sous-excel
Aussi sans voir le code difficile de répondre de façon sûre !

0
akossicarole
Messages postés
6
Date d'inscription
lundi 23 juillet 2018
Statut
Membre
Dernière intervention
24 juillet 2018

Modifié le 23 juil. 2018 à 14:50
<code basic>
Private Sub Valider5_Click()
If (TextBox5.Value = "") Then
Else
Dim lig168, j As Integer
comb = TextBox5.Value
For i = 1 To comb
lig168 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig168 = lig168 + 1
Sheets("Feuil1").Cells(lig168, 7) = poste.Value
Sheets("Feuil1").Cells(lig168, 8) = Sheets("BD_TELEINFO").Cells(170, 8)
Sheets("Feuil1").Cells(lig168, 9) = Sheets("BD_TELEINFO").Cells(170, 9)
Sheets("Feuil1").Cells(lig168, 10) = Sheets("BD_TELEINFO").Cells(170, 10)
Sheets("Feuil1").Cells(lig168, 11) = Sheets("BD_TELEINFO").Cells(170, 11)
Sheets("Feuil1").Cells(lig168, 12) = Sheets("BD_TELEINFO").Cells(170, 12)
Sheets("Feuil1").Cells(lig168, 18) = Sheets("BD_TELEINFO").Cells(170, 18)
Sheets("Feuil1").Cells(lig168, 19) = Sheets("BD_TELEINFO").Cells(170, 19)
lig169 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig169 = lig169 + 1
Sheets("Feuil1").Cells(lig169, 7) = poste.Value
Sheets("Feuil1").Cells(lig169, 8) = Sheets("BD_TELEINFO").Cells(171, 8)
Sheets("Feuil1").Cells(lig169, 9) = Sheets("BD_TELEINFO").Cells(171, 9)
Sheets("Feuil1").Cells(lig169, 10) = Sheets("BD_TELEINFO").Cells(171, 10)
Sheets("Feuil1").Cells(lig169, 11) = Sheets("BD_TELEINFO").Cells(171, 11)
Sheets("Feuil1").Cells(lig169, 12) = Sheets("BD_TELEINFO").Cells(171, 12)
Sheets("Feuil1").Cells(lig169, 18) = Sheets("BD_TELEINFO").Cells(171, 18)
If (Sheets("BD_TELEINFO").Cells(169, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(171, 19) = "X") Then
Sheets("Feuil1").Cells(lig169, 19) = 1038 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig170 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig170 = lig170 + 1
Sheets("Feuil1").Cells(lig170, 7) = poste.Value
Sheets("Feuil1").Cells(lig170, 8) = Sheets("BD_TELEINFO").Cells(172, 8)
Sheets("Feuil1").Cells(lig170, 9) = Sheets("BD_TELEINFO").Cells(172, 9)
Sheets("Feuil1").Cells(lig170, 10) = Sheets("BD_TELEINFO").Cells(172, 10)
Sheets("Feuil1").Cells(lig170, 11) = Sheets("BD_TELEINFO").Cells(172, 11)
Sheets("Feuil1").Cells(lig170, 12) = Sheets("BD_TELEINFO").Cells(172, 12)
Sheets("Feuil1").Cells(lig170, 18) = Sheets("BD_TELEINFO").Cells(172, 18)
'Sheets("Feuil1").Cells(lig170, 19) = Sheets("BD_TELEINFO").Cells(172, 19)
lig171 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig171 = lig171 + 1
Sheets("Feuil1").Cells(lig171, 7) = poste.Value
Sheets("Feuil1").Cells(lig171, 8) = Sheets("BD_TELEINFO").Cells(173, 8)
Sheets("Feuil1").Cells(lig171, 9) = Sheets("BD_TELEINFO").Cells(173, 9)
Sheets("Feuil1").Cells(lig171, 10) = Sheets("BD_TELEINFO").Cells(173, 10)
Sheets("Feuil1").Cells(lig171, 11) = Sheets("BD_TELEINFO").Cells(173, 11)
Sheets("Feuil1").Cells(lig171, 12) = Sheets("BD_TELEINFO").Cells(173, 12)
Sheets("Feuil1").Cells(lig171, 18) = Sheets("BD_TELEINFO").Cells(173, 18)
Sheets("Feuil1").Cells(lig171, 19) = Sheets("BD_TELEINFO").Cells(173, 19)
lig172 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig172 = lig172 + 1
Sheets("Feuil1").Cells(lig172, 7) = poste.Value
Sheets("Feuil1").Cells(lig172, 8) = Sheets("BD_TELEINFO").Cells(174, 8)
Sheets("Feuil1").Cells(lig172, 9) = Sheets("BD_TELEINFO").Cells(174, 9)
Sheets("Feuil1").Cells(lig172, 10) = Sheets("BD_TELEINFO").Cells(174, 10)
Sheets("Feuil1").Cells(lig172, 11) = Sheets("BD_TELEINFO").Cells(174, 11)
Sheets("Feuil1").Cells(lig172, 12) = Sheets("BD_TELEINFO").Cells(174, 12)
Sheets("Feuil1").Cells(lig172, 18) = Sheets("BD_TELEINFO").Cells(174, 18)
Sheets("Feuil1").Cells(lig172, 19) = Sheets("BD_TELEINFO").Cells(174, 19)
lig173 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig173 = lig173 + 1
Sheets("Feuil1").Cells(lig173, 7) = poste.Value
Sheets("Feuil1").Cells(lig173, 8) = Sheets("BD_TELEINFO").Cells(175, 8)
Sheets("Feuil1").Cells(lig173, 9) = Sheets("BD_TELEINFO").Cells(175, 9)
Sheets("Feuil1").Cells(lig173, 10) = Sheets("BD_TELEINFO").Cells(175, 10)
Sheets("Feuil1").Cells(lig173, 11) = Sheets("BD_TELEINFO").Cells(175, 11)
Sheets("Feuil1").Cells(lig173, 12) = Sheets("BD_TELEINFO").Cells(175, 12)
Sheets("Feuil1").Cells(lig173, 18) = Sheets("BD_TELEINFO").Cells(175, 18)
Sheets("Feuil1").Cells(lig173, 19) = Sheets("BD_TELEINFO").Cells(175, 19)
lig174 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig174 = lig174 + 1
Sheets("Feuil1").Cells(lig174, 7) = poste.Value
Sheets("Feuil1").Cells(lig174, 8) = Sheets("BD_TELEINFO").Cells(176, 8)
Sheets("Feuil1").Cells(lig174, 9) = Sheets("BD_TELEINFO").Cells(176, 9)
Sheets("Feuil1").Cells(lig174, 10) = Sheets("BD_TELEINFO").Cells(176, 10)
Sheets("Feuil1").Cells(lig174, 11) = Sheets("BD_TELEINFO").Cells(176, 11)
Sheets("Feuil1").Cells(lig174, 12) = Sheets("BD_TELEINFO").Cells(176, 12)
Sheets("Feuil1").Cells(lig174, 18) = Sheets("BD_TELEINFO").Cells(176, 18)
Sheets("Feuil1").Cells(lig174, 19) = Sheets("BD_TELEINFO").Cells(176, 194)
lig175 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig175 = lig175 + 1
Sheets("Feuil1").Cells(lig175, 7) = poste.Value
Sheets("Feuil1").Cells(lig175, 8) = Sheets("BD_TELEINFO").Cells(177, 8)
Sheets("Feuil1").Cells(lig175, 9) = Sheets("BD_TELEINFO").Cells(177, 9)
Sheets("Feuil1").Cells(lig175, 10) = Sheets("BD_TELEINFO").Cells(177, 10)
Sheets("Feuil1").Cells(lig175, 11) = Sheets("BD_TELEINFO").Cells(177, 11)
Sheets("Feuil1").Cells(lig175, 12) = Sheets("BD_TELEINFO").Cells(177, 12)
Sheets("Feuil1").Cells(lig175, 18) = Sheets("BD_TELEINFO").Cells(177, 18)
Sheets("Feuil1").Cells(lig175, 19) = Sheets("BD_TELEINFO").Cells(177, 19)
lig176 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig176 = lig176 + 1
Sheets("Feuil1").Cells(lig176, 7) = poste.Value
Sheets("Feuil1").Cells(lig176, 8) = Sheets("BD_TELEINFO").Cells(178, 8)
Sheets("Feuil1").Cells(lig176, 9) = Sheets("BD_TELEINFO").Cells(178, 9)
Sheets("Feuil1").Cells(lig176, 10) = Sheets("BD_TELEINFO").Cells(178, 10)
Sheets("Feuil1").Cells(lig176, 11) = Sheets("BD_TELEINFO").Cells(178, 11)
Sheets("Feuil1").Cells(lig176, 12) = Sheets("BD_TELEINFO").Cells(178, 12)
Sheets("Feuil1").Cells(lig176, 18) = Sheets("BD_TELEINFO").Cells(178, 18)
Sheets("Feuil1").Cells(lig176, 19) = Sheets("BD_TELEINFO").Cells(178, 19)
lig177 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig177 = lig177 + 1
Sheets("Feuil1").Cells(lig177, 7) = poste.Value
Sheets("Feuil1").Cells(lig177, 8) = Sheets("BD_TELEINFO").Cells(179, 8)
Sheets("Feuil1").Cells(lig177, 9) = Sheets("BD_TELEINFO").Cells(179, 9)
Sheets("Feuil1").Cells(lig177, 10) = Sheets("BD_TELEINFO").Cells(179, 10)
Sheets("Feuil1").Cells(lig177, 11) = Sheets("BD_TELEINFO").Cells(179, 11)
Sheets("Feuil1").Cells(lig177, 12) = Sheets("BD_TELEINFO").Cells(179, 12)
Sheets("Feuil1").Cells(lig177, 18) = Sheets("BD_TELEINFO").Cells(179, 18)
Sheets("Feuil1").Cells(lig177, 19) = Sheets("BD_TELEINFO").Cells(179, 19)
lig178 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig178 = lig178 + 1
Sheets("Feuil1").Cells(lig178, 7) = poste.Value
Sheets("Feuil1").Cells(lig178, 8) = Sheets("BD_TELEINFO").Cells(180, 8)
Sheets("Feuil1").Cells(lig178, 9) = Sheets("BD_TELEINFO").Cells(180, 9)
Sheets("Feuil1").Cells(lig178, 10) = Sheets("BD_TELEINFO").Cells(180, 10)
Sheets("Feuil1").Cells(lig178, 11) = Sheets("BD_TELEINFO").Cells(180, 11)
Sheets("Feuil1").Cells(lig178, 12) = Sheets("BD_TELEINFO").Cells(180, 12)
Sheets("Feuil1").Cells(lig178, 18) = Sheets("BD_TELEINFO").Cells(180, 18)
Sheets("Feuil1").Cells(lig178, 19) = Sheets("BD_TELEINFO").Cells(180, 19)
lig179 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig179 = lig179 + 1
Sheets("Feuil1").Cells(lig179, 7) = poste.Value
Sheets("Feuil1").Cells(lig179, 8) = Sheets("BD_TELEINFO").Cells(181, 8)
Sheets("Feuil1").Cells(lig179, 9) = Sheets("BD_TELEINFO").Cells(181, 9)
Sheets("Feuil1").Cells(lig179, 10) = Sheets("BD_TELEINFO").Cells(181, 10)
Sheets("Feuil1").Cells(lig179, 11) = Sheets("BD_TELEINFO").Cells(181, 11)
Sheets("Feuil1").Cells(lig179, 12) = Sheets("BD_TELEINFO").Cells(181, 12)
Sheets("Feuil1").Cells(lig179, 18) = Sheets("BD_TELEINFO").Cells(181, 18)
Sheets("Feuil1").Cells(lig179, 19) = Sheets("BD_TELEINFO").Cells(181, 19)
lig180 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig180 = lig180 + 1
Sheets("Feuil1").Cells(lig180, 7) = poste.Value
Sheets("Feuil1").Cells(lig180, 8) = Sheets("BD_TELEINFO").Cells(182, 8)
Sheets("Feuil1").Cells(lig180, 9) = Sheets("BD_TELEINFO").Cells(182, 9)
Sheets("Feuil1").Cells(lig180, 10) = Sheets("BD_TELEINFO").Cells(182, 10)
Sheets("Feuil1").Cells(lig180, 11) = Sheets("BD_TELEINFO").Cells(182, 11)
Sheets("Feuil1").Cells(lig180, 12) = Sheets("BD_TELEINFO").Cells(182, 12)
Sheets("Feuil1").Cells(lig180, 18) = Sheets("BD_TELEINFO").Cells(182, 18)
Sheets("Feuil1").Cells(lig180, 19) = Sheets("BD_TELEINFO").Cells(182, 19)
lig181 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig181 = lig181 + 1
Sheets("Feuil1").Cells(lig181, 7) = poste.Value
Sheets("Feuil1").Cells(lig181, 8) = Sheets("BD_TELEINFO").Cells(183, 8)
Sheets("Feuil1").Cells(lig181, 9) = Sheets("BD_TELEINFO").Cells(183, 9)
Sheets("Feuil1").Cells(lig181, 10) = Sheets("BD_TELEINFO").Cells(183, 10)
Sheets("Feuil1").Cells(lig181, 11) = Sheets("BD_TELEINFO").Cells(183, 11)
Sheets("Feuil1").Cells(lig181, 12) = Sheets("BD_TELEINFO").Cells(183, 12)
Sheets("Feuil1").Cells(lig181, 18) = Sheets("BD_TELEINFO").Cells(183, 18)
Sheets("Feuil1").Cells(lig181, 19) = Sheets("BD_TELEINFO").Cells(183, 19)
lig182 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig182 = lig182 + 1
Sheets("Feuil1").Cells(lig182, 7) = poste.Value
Sheets("Feuil1").Cells(lig182, 8) = Sheets("BD_TELEINFO").Cells(184, 8)
Sheets("Feuil1").Cells(lig182, 9) = Sheets("BD_TELEINFO").Cells(184, 9)
Sheets("Feuil1").Cells(lig182, 10) = Sheets("BD_TELEINFO").Cells(184, 10)
Sheets("Feuil1").Cells(lig182, 11) = Sheets("BD_TELEINFO").Cells(184, 11)
Sheets("Feuil1").Cells(lig182, 12) = Sheets("BD_TELEINFO").Cells(184, 12)
Sheets("Feuil1").Cells(lig182, 18) = Sheets("BD_TELEINFO").Cells(184, 18)
Sheets("Feuil1").Cells(lig182, 19) = Sheets("BD_TELEINFO").Cells(184, 19)
lig183 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig183 = lig183 + 1
Sheets("Feuil1").Cells(lig183, 7) = poste.Value
Sheets("Feuil1").Cells(lig183, 8) = Sheets("BD_TELEINFO").Cells(185, 8)
Sheets("Feuil1").Cells(lig183, 9) = Sheets("BD_TELEINFO").Cells(185, 9)
Sheets("Feuil1").Cells(lig183, 10) = Sheets("BD_TELEINFO").Cells(185, 10)
Sheets("Feuil1").Cells(lig183, 11) = Sheets("BD_TELEINFO").Cells(185, 11)
Sheets("Feuil1").Cells(lig183, 12) = Sheets("BD_TELEINFO").Cells(185, 12)
Sheets("Feuil1").Cells(lig183, 18) = Sheets("BD_TELEINFO").Cells(185, 18)
Sheets("Feuil1").Cells(lig183, 19) = Sheets("BD_TELEINFO").Cells(185, 19)
lig184 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig184 = lig184 + 1
Sheets("Feuil1").Cells(lig184, 7) = poste.Value
Sheets("Feuil1").Cells(lig184, 8) = Sheets("BD_TELEINFO").Cells(186, 8)
Sheets("Feuil1").Cells(lig184, 9) = Sheets("BD_TELEINFO").Cells(186, 9)
Sheets("Feuil1").Cells(lig184, 10) = Sheets("BD_TELEINFO").Cells(186, 10)
Sheets("Feuil1").Cells(lig184, 11) = Sheets("BD_TELEINFO").Cells(186, 11)
Sheets("Feuil1").Cells(lig184, 12) = Sheets("BD_TELEINFO").Cells(186, 12)
Sheets("Feuil1").Cells(lig184, 18) = Sheets("BD_TELEINFO").Cells(186, 18)
Sheets("Feuil1").Cells(lig184, 19) = Sheets("BD_TELEINFO").Cells(186, 19)
lig185 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig185 = lig185 + 1
Sheets("Feuil1").Cells(lig185, 7) = poste.Value
Sheets("Feuil1").Cells(lig185, 8) = Sheets("BD_TELEINFO").Cells(187, 8)
Sheets("Feuil1").Cells(lig185, 9) = Sheets("BD_TELEINFO").Cells(187, 9)
Sheets("Feuil1").Cells(lig185, 10) = Sheets("BD_TELEINFO").Cells(187, 10)
Sheets("Feuil1").Cells(lig185, 11) = Sheets("BD_TELEINFO").Cells(187, 11)
Sheets("Feuil1").Cells(lig185, 12) = Sheets("BD_TELEINFO").Cells(187, 12)
Sheets("Feuil1").Cells(lig185, 18) = Sheets("BD_TELEINFO").Cells(187, 18)
Sheets("Feuil1").Cells(lig185, 19) = Sheets("BD_TELEINFO").Cells(187, 19)
lig186 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig186 = lig186 + 1
Sheets("Feuil1").Cells(lig186, 7) = poste.Value
Sheets("Feuil1").Cells(lig186, 8) = Sheets("BD_TELEINFO").Cells(188, 8)
Sheets("Feuil1").Cells(lig186, 9) = Sheets("BD_TELEINFO").Cells(188, 9)
Sheets("Feuil1").Cells(lig186, 10) = Sheets("BD_TELEINFO").Cells(188, 10)
Sheets("Feuil1").Cells(lig186, 11) = Sheets("BD_TELEINFO").Cells(188, 11)
Sheets("Feuil1").Cells(lig186, 12) = Sheets("BD_TELEINFO").Cells(188, 12)
Sheets("Feuil1").Cells(lig186, 18) = Sheets("BD_TELEINFO").Cells(188, 18)
Sheets("Feuil1").Cells(lig186, 19) = Sheets("BD_TELEINFO").Cells(188, 19)
lig187 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig187 = lig187 + 1
Sheets("Feuil1").Cells(lig187, 7) = poste.Value
Sheets("Feuil1").Cells(lig187, 8) = Sheets("BD_TELEINFO").Cells(189, 8)
Sheets("Feuil1").Cells(lig187, 9) = Sheets("BD_TELEINFO").Cells(189, 9)
Sheets("Feuil1").Cells(lig187, 10) = Sheets("BD_TELEINFO").Cells(189, 10)
Sheets("Feuil1").Cells(lig187, 11) = Sheets("BD_TELEINFO").Cells(189, 11)
Sheets("Feuil1").Cells(lig187, 12) = Sheets("BD_TELEINFO").Cells(189, 12)
Sheets("Feuil1").Cells(lig187, 18) = Sheets("BD_TELEINFO").Cells(189, 18)
Sheets("Feuil1").Cells(lig187, 19) = Sheets("BD_TELEINFO").Cells(189, 19)
lig188 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig188 = lig188 + 1
Sheets("Feuil1").Cells(lig188, 7) = poste.Value
Sheets("Feuil1").Cells(lig188, 8) = Sheets("BD_TELEINFO").Cells(190, 8)
Sheets("Feuil1").Cells(lig188, 9) = Sheets("BD_TELEINFO").Cells(190, 9)
Sheets("Feuil1").Cells(lig188, 10) = Sheets("BD_TELEINFO").Cells(190, 10)
Sheets("Feuil1").Cells(lig188, 11) = Sheets("BD_TELEINFO").Cells(190, 11)
Sheets("Feuil1").Cells(lig188, 12) = Sheets("BD_TELEINFO").Cells(190, 12)
Sheets("Feuil1").Cells(lig188, 18) = Sheets("BD_TELEINFO").Cells(190, 18)
If (Sheets("BD_TELEINFO").Cells(188, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(190, 19) = "X") Then
Sheets("Feuil1").Cells(lig188, 19) = 1039 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig189 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig189 = lig189 + 1
Sheets("Feuil1").Cells(lig189, 7) = poste.Value
Sheets("Feuil1").Cells(lig189, 8) = Sheets("BD_TELEINFO").Cells(191, 8)
Sheets("Feuil1").Cells(lig189, 9) = Sheets("BD_TELEINFO").Cells(191, 9)
Sheets("Feuil1").Cells(lig189, 10) = Sheets("BD_TELEINFO").Cells(191, 10)
Sheets("Feuil1").Cells(lig189, 11) = Sheets("BD_TELEINFO").Cells(191, 11)
Sheets("Feuil1").Cells(lig189, 12) = Sheets("BD_TELEINFO").Cells(191, 12)
Sheets("Feuil1").Cells(lig189, 18) = Sheets("BD_TELEINFO").Cells(191, 18)
Sheets("Feuil1").Cells(lig189, 19) = Sheets("BD_TELEINFO").Cells(191, 19)
lig190 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig190 = lig190 + 1
Sheets("Feuil1").Cells(lig190, 7) = poste.Value
Sheets("Feuil1").Cells(lig190, 8) = Sheets("BD_TELEINFO").Cells(192, 8)
Sheets("Feuil1").Cells(lig190, 9) = Sheets("BD_TELEINFO").Cells(192, 9)
Sheets("Feuil1").Cells(lig190, 10) = Sheets("BD_TELEINFO").Cells(192, 10)
Sheets("Feuil1").Cells(lig190, 11) = Sheets("BD_TELEINFO").Cells(192, 11)
Sheets("Feuil1").Cells(lig190, 12) = Sheets("BD_TELEINFO").Cells(192, 12)
Sheets("Feuil1").Cells(lig190, 18) = Sheets("BD_TELEINFO").Cells(192, 18)
Sheets("Feuil1").Cells(lig190, 19) = Sheets("BD_TELEINFO").Cells(192, 19)
lig191 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig191 = lig191 + 1
Sheets("Feuil1").Cells(lig191, 7) = poste.Value
Sheets("Feuil1").Cells(lig191, 8) = Sheets("BD_TELEINFO").Cells(193, 8)
Sheets("Feuil1").Cells(lig191, 9) = Sheets("BD_TELEINFO").Cells(193, 9)
Sheets("Feuil1").Cells(lig191, 10) = Sheets("BD_TELEINFO").Cells(193, 10)
Sheets("Feuil1").Cells(lig191, 11) = Sheets("BD_TELEINFO").Cells(193, 11)
Sheets("Feuil1").Cells(lig191, 12) = Sheets("BD_TELEINFO").Cells(193, 12)
Sheets("Feuil1").Cells(lig191, 18) = Sheets("BD_TELEINFO").Cells(193, 18)
Sheets("Feuil1").Cells(lig191, 19) = Sheets("BD_TELEINFO").Cells(193, 19)
lig192 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig192 = lig192 + 1
Sheets("Feuil1").Cells(lig192, 7) = poste.Value
Sheets("Feuil1").Cells(lig192, 8) = Sheets("BD_TELEINFO").Cells(194, 8)
Sheets("Feuil1").Cells(lig192, 9) = Sheets("BD_TELEINFO").Cells(194, 9)
Sheets("Feuil1").Cells(lig192, 10) = Sheets("BD_TELEINFO").Cells(194, 10)
Sheets("Feuil1").Cells(lig192, 11) = Sheets("BD_TELEINFO").Cells(194, 11)
Sheets("Feuil1").Cells(lig192, 12) = Sheets("BD_TELEINFO").Cells(194, 12)
Sheets("Feuil1").Cells(lig192, 18) = Sheets("BD_TELEINFO").Cells(194, 18)
If (Sheets("BD_TELEINFO").Cells(192, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(194, 19) = "X") Then
Sheets("Feuil1").Cells(lig192, 19) = 1040 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig193 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig193 = lig193 + 1
Sheets("Feuil1").Cells(lig193, 7) = poste.Value
Sheets("Feuil1").Cells(lig193, 8) = Sheets("BD_TELEINFO").Cells(195, 8)
Sheets("Feuil1").Cells(lig193, 9) = Sheets("BD_TELEINFO").Cells(195, 9)
Sheets("Feuil1").Cells(lig193, 10) = Sheets("BD_TELEINFO").Cells(195, 10)
Sheets("Feuil1").Cells(lig193, 11) = Sheets("BD_TELEINFO").Cells(195, 11)
Sheets("Feuil1").Cells(lig193, 12) = Sheets("BD_TELEINFO").Cells(195, 12)
Sheets("Feuil1").Cells(lig193, 18) = Sheets("BD_TELEINFO").Cells(195, 18)
If (Sheets("BD_TELEINFO").Cells(193, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(195, 19) = "X") Then
Sheets("Feuil1").Cells(lig193, 19) = 1041 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig194 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig194 = lig194 + 1
Sheets("Feuil1").Cells(lig194, 7) = poste.Value
Sheets("Feuil1").Cells(lig194, 8) = Sheets("BD_TELEINFO").Cells(196, 8)
Sheets("Feuil1").Cells(lig194, 9) = Sheets("BD_TELEINFO").Cells(196, 9)
Sheets("Feuil1").Cells(lig194, 10) = Sheets("BD_TELEINFO").Cells(196, 10)
Sheets("Feuil1").Cells(lig194, 11) = Sheets("BD_TELEINFO").Cells(196, 11)
Sheets("Feuil1").Cells(lig194, 12) = Sheets("BD_TELEINFO").Cells(196, 12)
Sheets("Feuil1").Cells(lig194, 18) = Sheets("BD_TELEINFO").Cells(196, 18)
Sheets("Feuil1").Cells(lig194, 19) = Sheets("BD_TELEINFO").Cells(196, 19)
lig195 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig195 = lig195 + 1
Sheets("Feuil1").Cells(lig195, 7) = poste.Value
Sheets("Feuil1").Cells(lig195, 8) = Sheets("BD_TELEINFO").Cells(197, 8)
Sheets("Feuil1").Cells(lig195, 9) = Sheets("BD_TELEINFO").Cells(197, 9)
Sheets("Feuil1").Cells(lig195, 10) = Sheets("BD_TELEINFO").Cells(197, 10)
Sheets("Feuil1").Cells(lig195, 11) = Sheets("BD_TELEINFO").Cells(197, 11)
Sheets("Feuil1").Cells(lig195, 12) = Sheets("BD_TELEINFO").Cells(197, 12)
Sheets("Feuil1").Cells(lig195, 18) = Sheets("BD_TELEINFO").Cells(197, 18)
If (Sheets("BD_TELEINFO").Cells(197, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(197, 19) = "X") Then
Sheets("Feuil1").Cells(lig195, 19) = 2 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig196 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig196 = lig196 + 1
Sheets("Feuil1").Cells(lig196, 7) = poste.Value
Sheets("Feuil1").Cells(lig196, 8) = Sheets("BD_TELEINFO").Cells(198, 8)
Sheets("Feuil1").Cells(lig196, 9) = Sheets("BD_TELEINFO").Cells(198, 9)
Sheets("Feuil1").Cells(lig196, 10) = Sheets("BD_TELEINFO").Cells(198, 10)
Sheets("Feuil1").Cells(lig196, 11) = Sheets("BD_TELEINFO").Cells(198, 11)
Sheets("Feuil1").Cells(lig196, 12) = Sheets("BD_TELEINFO").Cells(198, 12)
Sheets("Feuil1").Cells(lig196, 18) = Sheets("BD_TELEINFO").Cells(198, 18)
If (Sheets("BD_TELEINFO").Cells(198, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(198, 19) = "X") Then
Sheets("Feuil1").Cells(lig196, 19) = 3 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig197 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig197 = lig197 + 1
Sheets("Feuil1").Cells(lig197, 7) = poste.Value
Sheets("Feuil1").Cells(lig197, 8) = Sheets("BD_TELEINFO").Cells(199, 8)
Sheets("Feuil1").Cells(lig197, 9) = Sheets("BD_TELEINFO").Cells(199, 9)
Sheets("Feuil1").Cells(lig197, 10) = Sheets("BD_TELEINFO").Cells(199, 10)
Sheets("Feuil1").Cells(lig197, 11) = Sheets("BD_TELEINFO").Cells(199, 11)
Sheets("Feuil1").Cells(lig197, 12) = Sheets("BD_TELEINFO").Cells(199, 12)
Sheets("Feuil1").Cells(lig197, 18) = Sheets("BD_TELEINFO").Cells(199, 18)
If (Sheets("BD_TELEINFO").Cells(197, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(199, 19) = "X") Then
Sheets("Feuil1").Cells(lig197, 19) = 4 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig198 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig198 = lig198 + 1
Sheets("Feuil1").Cells(lig198, 7) = poste.Value
Sheets("Feuil1").Cells(lig198, 8) = Sheets("BD_TELEINFO").Cells(200, 8)
Sheets("Feuil1").Cells(lig198, 9) = Sheets("BD_TELEINFO").Cells(200, 9)
Sheets("Feuil1").Cells(lig198, 10) = Sheets("BD_TELEINFO").Cells(200, 10)
Sheets("Feuil1").Cells(lig198, 11) = Sheets("BD_TELEINFO").Cells(200, 11)
Sheets("Feuil1").Cells(lig198, 12) = Sheets("BD_TELEINFO").Cells(200, 12)
Sheets("Feuil1").Cells(lig198, 18) = Sheets("BD_TELEINFO").Cells(200, 18)
If (Sheets("BD_TELEINFO").Cells(198, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(200, 19) = "X") Then
Sheets("Feuil1").Cells(lig198, 19) = 5 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig199 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig199 = lig199 + 1
Sheets("Feuil1").Cells(lig199, 7) = poste.Value
Sheets("Feuil1").Cells(lig199, 8) = Sheets("BD_TELEINFO").Cells(201, 8)
Sheets("Feuil1").Cells(lig199, 9) = Sheets("BD_TELEINFO").Cells(201, 9)
Sheets("Feuil1").Cells(lig199, 10) = Sheets("BD_TELEINFO").Cells(201, 10)
Sheets("Feuil1").Cells(lig199, 11) = Sheets("BD_TELEINFO").Cells(201, 11)
Sheets("Feuil1").Cells(lig199, 12) = Sheets("BD_TELEINFO").Cells(201, 12)
Sheets("Feuil1").Cells(lig199, 18) = Sheets("BD_TELEINFO").Cells(201, 18)
If (Sheets("BD_TELEINFO").Cells(199, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(201, 19) = "X") Then
Sheets("Feuil1").Cells(lig199, 19) = 6 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig200 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig200 = lig200 + 1
Sheets("Feuil1").Cells(lig200, 7) = poste.Value
Sheets("Feuil1").Cells(lig200, 8) = Sheets("BD_TELEINFO").Cells(202, 8)
Sheets("Feuil1").Cells(lig200, 9) = Sheets("BD_TELEINFO").Cells(202, 9)
Sheets("Feuil1").Cells(lig200, 10) = Sheets("BD_TELEINFO").Cells(202, 10)
Sheets("Feuil1").Cells(lig200, 11) = Sheets("BD_TELEINFO").Cells(202, 11)
Sheets("Feuil1").Cells(lig200, 12) = Sheets("BD_TELEINFO").Cells(202, 12)
Sheets("Feuil1").Cells(lig200, 18) = Sheets("BD_TELEINFO").Cells(202, 18)
If (Sheets("BD_TELEINFO").Cells(200, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(202, 19) = "X") Then
Sheets("Feuil1").Cells(lig200, 19) = 7 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig201 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig201 = lig201 + 1
Sheets("Feuil1").Cells(lig201, 7) = poste.Value
Sheets("Feuil1").Cells(lig201, 8) = Sheets("BD_TELEINFO").Cells(203, 8)
Sheets("Feuil1").Cells(lig201, 9) = Sheets("BD_TELEINFO").Cells(203, 9)
Sheets("Feuil1").Cells(lig201, 10) = Sheets("BD_TELEINFO").Cells(203, 10)
Sheets("Feuil1").Cells(lig201, 11) = Sheets("BD_TELEINFO").Cells(203, 11)
Sheets("Feuil1").Cells(lig201, 12) = Sheets("BD_TELEINFO").Cells(203, 12)
Sheets("Feuil1").Cells(lig201, 18) = Sheets("BD_TELEINFO").Cells(203, 18)
If (Sheets("BD_TELEINFO").Cells(203, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(203, 19) = "X") Then
Sheets("Feuil1").Cells(lig201, 19) = 1042 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig202 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig202 = lig202 + 1
Sheets("Feuil1").Cells(lig202, 7) = poste.Value
Sheets("Feuil1").Cells(lig202, 8) = Sheets("BD_TELEINFO").Cells(204, 8)
Sheets("Feuil1").Cells(lig202, 9) = Sheets("BD_TELEINFO").Cells(204, 9)
Sheets("Feuil1").Cells(lig202, 10) = Sheets("BD_TELEINFO").Cells(204, 10)
Sheets("Feuil1").Cells(lig202, 11) = Sheets("BD_TELEINFO").Cells(204, 11)
Sheets("Feuil1").Cells(lig202, 12) = Sheets("BD_TELEINFO").Cells(204, 12)
Sheets("Feuil1").Cells(lig202, 18) = Sheets("BD_TELEINFO").Cells(204, 18)
If (Sheets("BD_TELEINFO").Cells(204, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(204, 19) = "X") Then
Sheets("Feuil1").Cells(lig202, 19) = 1043 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig203 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig203 = lig203 + 1
Sheets("Feuil1").Cells(lig203, 7) = poste.Value
Sheets("Feuil1").Cells(lig203, 8) = Sheets("BD_TELEINFO").Cells(205, 8)
Sheets("Feuil1").Cells(lig203, 9) = Sheets("BD_TELEINFO").Cells(205, 9)
Sheets("Feuil1").Cells(lig203, 10) = Sheets("BD_TELEINFO").Cells(205, 10)
Sheets("Feuil1").Cells(lig203, 11) = Sheets("BD_TELEINFO").Cells(205, 11)
Sheets("Feuil1").Cells(lig203, 12) = Sheets("BD_TELEINFO").Cells(205, 12)
Sheets("Feuil1").Cells(lig203, 18) = Sheets("BD_TELEINFO").Cells(205, 18)
If (Sheets("BD_TELEINFO").Cells(203, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(205, 19) = "X") Then
Sheets("Feuil1").Cells(lig203, 19) = 1044 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig204 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig204 = lig204 + 1
Sheets("Feuil1").Cells(lig204, 7) = poste.Value
Sheets("Feuil1").Cells(lig204, 8) = Sheets("BD_TELEINFO").Cells(206, 8)
Sheets("Feuil1").Cells(lig204, 9) = Sheets("BD_TELEINFO").Cells(206, 9)
Sheets("Feuil1").Cells(lig204, 10) = Sheets("BD_TELEINFO").Cells(206, 10)
Sheets("Feuil1").Cells(lig204, 11) = Sheets("BD_TELEINFO").Cells(206, 11)
Sheets("Feuil1").Cells(lig204, 12) = Sheets("BD_TELEINFO").Cells(206, 12)
Sheets("Feuil1").Cells(lig204, 18) = Sheets("BD_TELEINFO").Cells(206, 18)
If (Sheets("BD_TELEINFO").Cells(204, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(206, 19) = "X") Then
Sheets("Feuil1").Cells(lig204, 19) = 1045 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig205 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig205 = lig205 + 1
Sheets("Feuil1").Cells(lig205, 7) = poste.Value
Sheets("Feuil1").Cells(lig205, 8) = Sheets("BD_TELEINFO").Cells(207, 8)
Sheets("Feuil1").Cells(lig205, 9) = Sheets("BD_TELEINFO").Cells(207, 9)
Sheets("Feuil1").Cells(lig205, 10) = Sheets("BD_TELEINFO").Cells(207, 10)
Sheets("Feuil1").Cells(lig205, 11) = Sheets("BD_TELEINFO").Cells(207, 11)
Sheets("Feuil1").Cells(lig205, 12) = Sheets("BD_TELEINFO").Cells(207, 12)
Sheets("Feuil1").Cells(lig205, 18) = Sheets("BD_TELEINFO").Cells(207, 18)
Sheets("Feuil1").Cells(lig205, 19) = Sheets("BD_TELEINFO").Cells(207, 19)
lig206 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig206 = lig206 + 1
Sheets("Feuil1").Cells(lig206, 7) = poste.Value
Sheets("Feuil1").Cells(lig206, 8) = Sheets("BD_TELEINFO").Cells(208, 8)
Sheets("Feuil1").Cells(lig206, 9) = Sheets("BD_TELEINFO").Cells(208, 9)
Sheets("Feuil1").Cells(lig206, 10) = Sheets("BD_TELEINFO").Cells(208, 10)
Sheets("Feuil1").Cells(lig206, 11) = Sheets("BD_TELEINFO").Cells(208, 11)
Sheets("Feuil1").Cells(lig206, 12) = Sheets("BD_TELEINFO").Cells(208, 12)
Sheets("Feuil1").Cells(lig206, 18) = Sheets("BD_TELEINFO").Cells(208, 18)
Sheets("Feuil1").Cells(lig206, 19) = Sheets("BD_TELEINFO").Cells(208, 19)
lig207 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig207 = lig207 + 1
Sheets("Feuil1").Cells(lig207, 7) = poste.Value
Sheets("Feuil1").Cells(lig207, 8) = Sheets("BD_TELEINFO").Cells(209, 8)
Sheets("Feuil1").Cells(lig207, 9) = Sheets("BD_TELEINFO").Cells(209, 9)
Sheets("Feuil1").Cells(lig207, 10) = Sheets("BD_TELEINFO").Cells(209, 10)
Sheets("Feuil1").Cells(lig207, 11) = Sheets("BD_TELEINFO").Cells(209, 11)
Sheets("Feuil1").Cells(lig207, 12) = Sheets("BD_TELEINFO").Cells(209, 12)
Sheets("Feuil1").Cells(lig207, 18) = Sheets("BD_TELEINFO").Cells(209, 18)
Sheets("Feuil1").Cells(lig207, 19) = Sheets("BD_TELEINFO").Cells(209, 19)
lig208 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig208 = lig208 + 1
Sheets("Feuil1").Cells(lig208, 7) = poste.Value
Sheets("Feuil1").Cells(lig208, 8) = Sheets("BD_TELEINFO").Cells(210, 8)
Sheets("Feuil1").Cells(lig208, 9) = Sheets("BD_TELEINFO").Cells(210, 9)
Sheets("Feuil1").Cells(lig208, 10) = Sheets("BD_TELEINFO").Cells(202, 10)
Sheets("Feuil1").Cells(lig208, 11) = Sheets("BD_TELEINFO").Cells(210, 11)
Sheets("Feuil1").Cells(lig208, 12) = Sheets("BD_TELEINFO").Cells(210, 12)
Sheets("Feuil1").Cells(lig208, 18) = Sheets("BD_TELEINFO").Cells(210, 18)
If (Sheets("BD_TELEINFO").Cells(208, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(210, 19) = "X") Then
Sheets("Feuil1").Cells(lig208, 19) = 1046 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig209 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig209 = lig209 + 1
Sheets("Feuil1").Cells(lig209, 7) = poste.Value
Sheets("Feuil1").Cells(lig209, 8) = Sheets("BD_TELEINFO").Cells(211, 8)
Sheets("Feuil1").Cells(lig209, 9) = Sheets("BD_TELEINFO").Cells(211, 9)
Sheets("Feuil1").Cells(lig209, 10) = Sheets("BD_TELEINFO").Cells(211, 10)
Sheets("Feuil1").Cells(lig209, 11) = Sheets("BD_TELEINFO").Cells(211, 11)
Sheets("Feuil1").Cells(lig209, 12) = Sheets("BD_TELEINFO").Cells(211, 12)
Sheets("Feuil1").Cells(lig209, 18) = Sheets("BD_TELEINFO").Cells(211, 18)
If (Sheets("BD_TELEINFO").Cells(209, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(211, 19) = "X") Then
Sheets("Feuil1").Cells(lig209, 19) = 1047 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig210 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig210 = lig210 + 1
Sheets("Feuil1").Cells(lig210, 7) = poste.Value
Sheets("Feuil1").Cells(lig210, 8) = Sheets("BD_TELEINFO").Cells(212, 8)
Sheets("Feuil1").Cells(lig210, 9) = Sheets("BD_TELEINFO").Cells(212, 9)
Sheets("Feuil1").Cells(lig210, 10) = Sheets("BD_TELEINFO").Cells(212, 10)
Sheets("Feuil1").Cells(lig210, 11) = Sheets("BD_TELEINFO").Cells(212, 11)
Sheets("Feuil1").Cells(lig210, 12) = Sheets("BD_TELEINFO").Cells(212, 12)
Sheets("Feuil1").Cells(lig210, 18) = Sheets("BD_TELEINFO").Cells(212, 18)
If (Sheets("BD_TELEINFO").Cells(212, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(212, 19) = "X") Then
Sheets("Feuil1").Cells(lig210, 19) = 8 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig211 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig211 = lig211 + 1
Sheets("Feuil1").Cells(lig211, 7) = poste.Value
Sheets("Feuil1").Cells(lig211, 8) = Sheets("BD_TELEINFO").Cells(213, 8)
Sheets("Feuil1").Cells(lig211, 9) = Sheets("BD_TELEINFO").Cells(213, 9)
Sheets("Feuil1").Cells(lig211, 10) = Sheets("BD_TELEINFO").Cells(213, 10)
Sheets("Feuil1").Cells(lig211, 11) = Sheets("BD_TELEINFO").Cells(213, 11)
Sheets("Feuil1").Cells(lig211, 12) = Sheets("BD_TELEINFO").Cells(213, 12)
Sheets("Feuil1").Cells(lig211, 18) = Sheets("BD_TELEINFO").Cells(213, 18)
If (Sheets("BD_TELEINFO").Cells(213, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(213, 19) = "X") Then
Sheets("Feuil1").Cells(lig211, 19) = 9 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig212 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig212 = lig212 + 1
Sheets("Feuil1").Cells(lig212, 7) = poste.Value
Sheets("Feuil1").Cells(lig212, 8) = Sheets("BD_TELEINFO").Cells(214, 8)
Sheets("Feuil1").Cells(lig212, 9) = Sheets("BD_TELEINFO").Cells(214, 9)
Sheets("Feuil1").Cells(lig212, 10) = Sheets("BD_TELEINFO").Cells(214, 10)
Sheets("Feuil1").Cells(lig212, 11) = Sheets("BD_TELEINFO").Cells(214, 11)
Sheets("Feuil1").Cells(lig212, 12) = Sheets("BD_TELEINFO").Cells(214, 12)
Sheets("Feuil1").Cells(lig212, 18) = Sheets("BD_TELEINFO").Cells(214, 18)
If (Sheets("BD_TELEINFO").Cells(212, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(214, 19) = "X") Then
Sheets("Feuil1").Cells(lig212, 19) = 10 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig213 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig213 = lig213 + 1
Sheets("Feuil1").Cells(lig213, 7) = poste.Value
Sheets("Feuil1").Cells(lig213, 8) = Sheets("BD_TELEINFO").Cells(215, 8)
Sheets("Feuil1").Cells(lig213, 9) = Sheets("BD_TELEINFO").Cells(215, 9)
Sheets("Feuil1").Cells(lig213, 10) = Sheets("BD_TELEINFO").Cells(215, 10)
Sheets("Feuil1").Cells(lig213, 11) = Sheets("BD_TELEINFO").Cells(215, 11)
Sheets("Feuil1").Cells(lig213, 12) = Sheets("BD_TELEINFO").Cells(215, 12)
Sheets("Feuil1").Cells(lig213, 18) = Sheets("BD_TELEINFO").Cells(215, 18)
If (Sheets("BD_TELEINFO").Cells(213, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(215, 19) = "X") Then
Sheets("Feuil1").Cells(lig213, 19) = 11 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig214 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig214 = lig214 + 1
Sheets("Feuil1").Cells(lig214, 7) = poste.Value
Sheets("Feuil1").Cells(lig214, 8) = Sheets("BD_TELEINFO").Cells(216, 8)
Sheets("Feuil1").Cells(lig214, 9) = Sheets("BD_TELEINFO").Cells(216, 9)
Sheets("Feuil1").Cells(lig214, 10) = Sheets("BD_TELEINFO").Cells(216, 10)
Sheets("Feuil1").Cells(lig214, 11) = Sheets("BD_TELEINFO").Cells(216, 11)
Sheets("Feuil1").Cells(lig214, 12) = Sheets("BD_TELEINFO").Cells(216, 12)
Sheets("Feuil1").Cells(lig214, 18) = Sheets("BD_TELEINFO").Cells(216, 18)
If (Sheets("BD_TELEINFO").Cells(216, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(216, 19) = "X") Then
Sheets("Feuil1").Cells(lig214, 19) = 1048 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig215 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig215 = lig215 + 1
Sheets("Feuil1").Cells(lig215, 7) = poste.Value
Sheets("Feuil1").Cells(lig215, 8) = Sheets("BD_TELEINFO").Cells(217, 8)
Sheets("Feuil1").Cells(lig215, 9) = Sheets("BD_TELEINFO").Cells(217, 9)
Sheets("Feuil1").Cells(lig215, 10) = Sheets("BD_TELEINFO").Cells(217, 10)
Sheets("Feuil1").Cells(lig215, 11) = Sheets("BD_TELEINFO").Cells(217, 11)
Sheets("Feuil1").Cells(lig215, 12) = Sheets("BD_TELEINFO").Cells(217, 12)
Sheets("Feuil1").Cells(lig215, 18) = Sheets("BD_TELEINFO").Cells(217, 18)
If (Sheets("BD_TELEINFO").Cells(217, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(217, 19) = "X") Then
Sheets("Feuil1").Cells(lig215, 19) = 1049 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig216 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig216 = lig216 + 1
Sheets("Feuil1").Cells(lig216, 7) = poste.Value
Sheets("Feuil1").Cells(lig216, 8) = Sheets("BD_TELEINFO").Cells(218, 8)
Sheets("Feuil1").Cells(lig216, 9) = Sheets("BD_TELEINFO").Cells(218, 9)
Sheets("Feuil1").Cells(lig216, 10) = Sheets("BD_TELEINFO").Cells(218, 10)
Sheets("Feuil1").Cells(lig216, 11) = Sheets("BD_TELEINFO").Cells(218, 11)
Sheets("Feuil1").Cells(lig216, 12) = Sheets("BD_TELEINFO").Cells(218, 12)
Sheets("Feuil1").Cells(lig216, 18) = Sheets("BD_TELEINFO").Cells(218, 18)
If (Sheets("BD_TELEINFO").Cells(216, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(218, 19) = "X") Then
Sheets("Feuil1").Cells(lig216, 19) = 1050 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig217 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig217 = lig217 + 1
Sheets("Feuil1").Cells(lig217, 7) = poste.Value
Sheets("Feuil1").Cells(lig217, 8) = Sheets("BD_TELEINFO").Cells(219, 8)
Sheets("Feuil1").Cells(lig217, 9) = Sheets("BD_TELEINFO").Cells(219, 9)
Sheets("Feuil1").Cells(lig217, 10) = Sheets("BD_TELEINFO").Cells(219, 10)
Sheets("Feuil1").Cells(lig217, 11) = Sheets("BD_TELEINFO").Cells(219, 11)
Sheets("Feuil1").Cells(lig217, 12) = Sheets("BD_TELEINFO").Cells(219, 12)
Sheets("Feuil1").Cells(lig217, 18) = Sheets("BD_TELEINFO").Cells(219, 18)
If (Sheets("BD_TELEINFO").Cells(217, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(219, 19) = "X") Then
Sheets("Feuil1").Cells(lig217, 19) = 1051 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig218 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig218 = lig218 + 1
Sheets("Feuil1").Cells(lig218, 7) = poste.Value
Sheets("Feuil1").Cells(lig218, 8) = Sheets("BD_TELEINFO").Cells(220, 8)
Sheets("Feuil1").Cells(lig218, 9) = Sheets("BD_TELEINFO").Cells(220, 9)
Sheets("Feuil1").Cells(lig218, 10) = Sheets("BD_TELEINFO").Cells(220, 10)
Sheets("Feuil1").Cells(lig218, 11) = Sheets("BD_TELEINFO").Cells(220, 11)
Sheets("Feuil1").Cells(lig218, 12) = Sheets("BD_TELEINFO").Cells(220, 12)
Sheets("Feuil1").Cells(lig218, 18) = Sheets("BD_TELEINFO").Cells(220, 18)
lig219 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig219 = lig219 + 1
Sheets("Feuil1").Cells(lig219, 7) = poste.Value
Sheets("Feuil1").Cells(lig219, 8) = Sheets("BD_TELEINFO").Cells(221, 8)
Sheets("Feuil1").Cells(lig219, 9) = Sheets("BD_TELEINFO").Cells(221, 9)
Sheets("Feuil1").Cells(lig219, 10) = Sheets("BD_TELEINFO").Cells(221, 10)
Sheets("Feuil1").Cells(lig219, 11) = Sheets("BD_TELEINFO").Cells(221, 11)
Sheets("Feuil1").Cells(lig219, 12) = Sheets("BD_TELEINFO").Cells(221, 12)
Sheets("Feuil1").Cells(lig219, 18) = Sheets("BD_TELEINFO").Cells(221, 18)
If (Sheets("BD_TELEINFO").Cells(219, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(221, 19) = "X") Then
Sheets("Feuil1").Cells(lig219, 19) = 1052 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig220 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig220 = lig220 + 1
Sheets("Feuil1").Cells(lig220, 7) = poste.Value
Sheets("Feuil1").Cells(lig220, 8) = Sheets("BD_TELEINFO").Cells(222, 8)
Sheets("Feuil1").Cells(lig220, 9) = Sheets("BD_TELEINFO").Cells(222, 9)
Sheets("Feuil1").Cells(lig220, 10) = Sheets("BD_TELEINFO").Cells(222, 10)
Sheets("Feuil1").Cells(lig220, 11) = Sheets("BD_TELEINFO").Cells(222, 11)
Sheets("Feuil1").Cells(lig220, 12) = Sheets("BD_TELEINFO").Cells(222, 12)
Sheets("Feuil1").Cells(lig220, 18) = Sheets("BD_TELEINFO").Cells(222, 18)
Sheets("Feuil1").Cells(lig220, 19) = Sheets("BD_TELEINFO").Cells(222, 19)
lig221 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig221 = lig221 + 1
Sheets("Feuil1").Cells(lig221, 7) = poste.Value
Sheets("Feuil1").Cells(lig221, 8) = Sheets("BD_TELEINFO").Cells(223, 8)
Sheets("Feuil1").Cells(lig221, 9) = Sheets("BD_TELEINFO").Cells(223, 9)
Sheets("Feuil1").Cells(lig221, 10) = Sheets("BD_TELEINFO").Cells(223, 10)
Sheets("Feuil1").Cells(lig221, 11) = Sheets("BD_TELEINFO").Cells(223, 11)
Sheets("Feuil1").Cells(lig221, 12) = Sheets("BD_TELEINFO").Cells(223, 12)
Sheets("Feuil1").Cells(lig221, 18) = Sheets("BD_TELEINFO").Cells(223, 18)
Sheets("Feuil1").Cells(lig221, 19) = Sheets("BD_TELEINFO").Cells(223, 19)
lig222 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig222 = lig222 + 1
Sheets("Feuil1").Cells(lig222, 7) = poste.Value
Sheets("Feuil1").Cells(lig222, 8) = Sheets("BD_TELEINFO").Cells(224, 8)
Sheets("Feuil1").Cells(lig222, 9) = Sheets("BD_TELEINFO").Cells(224, 9)
Sheets("Feuil1").Cells(lig222, 10) = Sheets("BD_TELEINFO").Cells(224, 10)
Sheets("Feuil1").Cells(lig222, 11) = Sheets("BD_TELEINFO").Cells(224, 11)
Sheets("Feuil1").Cells(lig222, 12) = Sheets("BD_TELEINFO").Cells(224, 12)
Sheets("Feuil1").Cells(lig222, 18) = Sheets("BD_TELEINFO").Cells(224, 18)
If (Sheets("BD_TELEINFO").Cells(224, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(224, 19) = "X") Then
Sheets("Feuil1").Cells(lig222, 19) = 12 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig223 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig223 = lig223 + 1
Sheets("Feuil1").Cells(lig223, 7) = poste.Value
Sheets("Feuil1").Cells(lig223, 8) = Sheets("BD_TELEINFO").Cells(225, 8)
Sheets("Feuil1").Cells(lig223, 9) = Sheets("BD_TELEINFO").Cells(225, 9)
Sheets("Feuil1").Cells(lig223, 10) = Sheets("BD_TELEINFO").Cells(225, 10)
Sheets("Feuil1").Cells(lig223, 11) = Sheets("BD_TELEINFO").Cells(225, 11)
Sheets("Feuil1").Cells(lig223, 12) = Sheets("BD_TELEINFO").Cells(225, 12)
Sheets("Feuil1").Cells(lig223, 18) = Sheets("BD_TELEINFO").Cells(225, 18)
Sheets("Feuil1").Cells(lig223, 19) = Sheets("BD_TELEINFO").Cells(225, 19)
lig224 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig224 = lig224 + 1
Sheets("Feuil1").Cells(lig224, 7) = poste.Value
Sheets("Feuil1").Cells(lig224, 8) = Sheets("BD_TELEINFO").Cells(226, 8)
Sheets("Feuil1").Cells(lig224, 9) = Sheets("BD_TELEINFO").Cells(226, 9)
Sheets("Feuil1").Cells(lig224, 10) = Sheets("BD_TELEINFO").Cells(226, 10)
Sheets("Feuil1").Cells(lig224, 11) = Sheets("BD_TELEINFO").Cells(226, 11)
Sheets("Feuil1").Cells(lig224, 12) = Sheets("BD_TELEINFO").Cells(226, 12)
Sheets("Feuil1").Cells(lig224, 18) = Sheets("BD_TELEINFO").Cells(226, 18)
If (Sheets("BD_TELEINFO").Cells(226, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(226, 19) = "X") Then
Sheets("Feuil1").Cells(lig224, 19) = 1053 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig225 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig225 = lig225 + 1
Sheets("Feuil1").Cells(lig225, 7) = poste.Value
Sheets("Feuil1").Cells(lig225, 8) = Sheets("BD_TELEINFO").Cells(227, 8)
Sheets("Feuil1").Cells(lig225, 9) = Sheets("BD_TELEINFO").Cells(227, 9)
Sheets("Feuil1").Cells(lig225, 10) = Sheets("BD_TELEINFO").Cells(227, 10)
Sheets("Feuil1").Cells(lig225, 11) = Sheets("BD_TELEINFO").Cells(227, 11)
Sheets("Feuil1").Cells(lig225, 12) = Sheets("BD_TELEINFO").Cells(227, 12)
Sheets("Feuil1").Cells(lig225, 18) = Sheets("BD_TELEINFO").Cells(227, 18)
If (Sheets("BD_TELEINFO").Cells(225, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(227, 19) = "X") Then
Sheets("Feuil1").Cells(lig225, 19) = 1054 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig226 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig226 = lig226 + 1
Sheets("Feuil1").Cells(lig226, 7) = poste.Value
Sheets("Feuil1").Cells(lig226, 8) = Sheets("BD_TELEINFO").Cells(228, 8)
Sheets("Feuil1").Cells(lig226, 9) = Sheets("BD_TELEINFO").Cells(228, 9)
Sheets("Feuil1").Cells(lig226, 10) = Sheets("BD_TELEINFO").Cells(228, 10)
Sheets("Feuil1").Cells(lig226, 11) = Sheets("BD_TELEINFO").Cells(228, 11)
Sheets("Feuil1").Cells(lig226, 12) = Sheets("BD_TELEINFO").Cells(228, 12)
Sheets("Feuil1").Cells(lig226, 18) = Sheets("BD_TELEINFO").Cells(228, 18)
If (Sheets("BD_TELEINFO").Cells(228, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(228, 19) = "X") Then
Sheets("Feuil1").Cells(lig226, 19) = 1055 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig227 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig227 = lig227 + 1
Sheets("Feuil1").Cells(lig227, 7) = poste.Value
Sheets("Feuil1").Cells(lig227, 8) = Sheets("BD_TELEINFO").Cells(229, 8)
Sheets("Feuil1").Cells(lig227, 9) = Sheets("BD_TELEINFO").Cells(229, 9)
Sheets("Feuil1").Cells(lig227, 10) = Sheets("BD_TELEINFO").Cells(229, 10)
Sheets("Feuil1").Cells(lig227, 11) = Sheets("BD_TELEINFO").Cells(229, 11)
Sheets("Feuil1").Cells(lig227, 12) = Sheets("BD_TELEINFO").Cells(229, 12)
Sheets("Feuil1").Cells(lig227, 18) = Sheets("BD_TELEINFO").Cells(229, 18)
If (Sheets("BD_TELEINFO").Cells(227, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(229, 19) = "X") Then
Sheets("Feuil1").Cells(lig227, 19) = 1056 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig228 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig228 = lig228 + 1
Sheets("Feuil1").Cells(lig228, 7) = poste.Value
Sheets("Feuil1").Cells(lig228, 8) = Sheets("BD_TELEINFO").Cells(230, 8)
Sheets("Feuil1").Cells(lig228, 9) = Sheets("BD_TELEINFO").Cells(230, 9)
Sheets("Feuil1").Cells(lig228, 10) = Sheets("BD_TELEINFO").Cells(230, 10)
Sheets("Feuil1").Cells(lig228, 11) = Sheets("BD_TELEINFO").Cells(230, 11)
Sheets("Feuil1").Cells(lig228, 12) = Sheets("BD_TELEINFO").Cells(230, 12)
Sheets("Feuil1").Cells(lig228, 18) = Sheets("BD_TELEINFO").Cells(230, 18)
Sheets("Feuil1").Cells(lig228, 19) = Sheets("BD_TELEINFO").Cells(230, 19)
lig229 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig229 = lig229 + 1
Sheets("Feuil1").Cells(lig229, 7) = 5416
Sheets("Feuil1").Cells(lig229, 8) = Sheets("BD_TELEINFO").Cells(231, 8)
Sheets("Feuil1").Cells(lig229, 9) = Sheets("BD_TELEINFO").Cells(231, 9)
Sheets("Feuil1").Cells(lig229, 10) = Sheets("BD_TELEINFO").Cells(231, 10)
Sheets("Feuil1").Cells(lig229, 11) = Sheets("BD_TELEINFO").Cells(231, 11)
Sheets("Feuil1").Cells(lig229, 12) = Sheets("BD_TELEINFO").Cells(231, 12)
Sheets("Feuil1").Cells(lig229, 18) = Sheets("BD_TELEINFO").Cells(231, 18)
If (Sheets("BD_TELEINFO").Cells(229, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(231, 19) = "X") Then
Sheets("Feuil1").Cells(lig229, 19) = 1057 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig230 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig230 = lig230 + 1
Sheets("Feuil1").Cells(lig230, 7) = poste.Value
Sheets("Feuil1").Cells(lig230, 8) = Sheets("BD_TELEINFO").Cells(232, 8)
Sheets("Feuil1").Cells(lig230, 9) = Sheets("BD_TELEINFO").Cells(232, 9)
Sheets("Feuil1").Cells(lig230, 10) = Sheets("BD_TELEINFO").Cells(232, 10)
Sheets("Feuil1").Cells(lig230, 11) = Sheets("BD_TELEINFO").Cells(232, 11)
Sheets("Feuil1").Cells(lig230, 12) = Sheets("BD_TELEINFO").Cells(232, 12)
Sheets("Feuil1").Cells(lig230, 18) = Sheets("BD_TELEINFO").Cells(232, 18)
Sheets("Feuil1").Cells(lig230, 19) = Sheets("BD_TELEINFO").Cells(232, 19)
lig231 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig231 = lig231 + 1
Sheets("Feuil1").Cells(lig231, 7) = poste.Value
Sheets("Feuil1").Cells(lig231, 8) = Sheets("BD_TELEINFO").Cells(233, 8)
Sheets("Feuil1").Cells(lig231, 9) = Sheets("BD_TELEINFO").Cells(233, 9)
Sheets("Feuil1").Cells(lig231, 10) = Sheets("BD_TELEINFO").Cells(233, 10)
Sheets("Feuil1").Cells(lig231, 11) = Sheets("BD_TELEINFO").Cells(233, 11)
Sheets("Feuil1").Cells(lig231, 12) = Sheets("BD_TELEINFO").Cells(233, 12)
Sheets("Feuil1").Cells(lig231, 18) = Sheets("BD_TELEINFO").Cells(233, 18)
If (Sheets("BD_TELEINFO").Cells(231, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(233, 19) = "X") Then
Sheets("Feuil1").Cells(lig231, 19) = 1058 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig232 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig232 = lig232 + 1
Sheets("Feuil1").Cells(lig232, 7) = poste.Value
Sheets("Feuil1").Cells(lig232, 8) = Sheets("BD_TELEINFO").Cells(234, 8)
Sheets("Feuil1").Cells(lig232, 9) = Sheets("BD_TELEINFO").Cells(234, 9)
Sheets("Feuil1").Cells(lig232, 10) = Sheets("BD_TELEINFO").Cells(234, 10)
Sheets("Feuil1").Cells(lig232, 11) = Sheets("BD_TELEINFO").Cells(234, 11)
Sheets("Feuil1").Cells(lig232, 12) = Sheets("BD_TELEINFO").Cells(234, 12)
Sheets("Feuil1").Cells(lig232, 18) = Sheets("BD_TELEINFO").Cells(234, 18)
If (Sheets("BD_TELEINFO").Cells(234, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(234, 19) = "X") Then
Sheets("Feuil1").Cells(lig232, 19) = 13 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig233 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig233 = lig233 + 1
Sheets("Feuil1").Cells(lig233, 7) = poste.Value
Sheets("Feuil1").Cells(lig233, 8) = Sheets("BD_TELEINFO").Cells(235, 8)
Sheets("Feuil1").Cells(lig233, 9) = Sheets("BD_TELEINFO").Cells(235, 9)
Sheets("Feuil1").Cells(lig233, 10) = Sheets("BD_TELEINFO").Cells(235, 10)
Sheets("Feuil1").Cells(lig233, 11) = Sheets("BD_TELEINFO").Cells(235, 11)
Sheets("Feuil1").Cells(lig233, 12) = Sheets("BD_TELEINFO").Cells(235, 12)
Sheets("Feuil1").Cells(lig233, 18) = Sheets("BD_TELEINFO").Cells(235, 18)
If (Sheets("BD_TELEINFO").Cells(235, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(235, 19) = "X") Then
Sheets("Feuil1").Cells(lig233, 19) = 14 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig234 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig234 = lig234 + 1
Sheets("Feuil1").Cells(lig234, 7) = poste.Value
Sheets("Feuil1").Cells(lig234, 8) = Sheets("BD_TELEINFO").Cells(236, 8)
Sheets("Feuil1").Cells(lig234, 9) = Sheets("BD_TELEINFO").Cells(236, 9)
Sheets("Feuil1").Cells(lig234, 10) = Sheets("BD_TELEINFO").Cells(236, 10)
Sheets("Feuil1").Cells(lig234, 11) = Sheets("BD_TELEINFO").Cells(236, 11)
Sheets("Feuil1").Cells(lig234, 12) = Sheets("BD_TELEINFO").Cells(236, 12)
Sheets("Feuil1").Cells(lig234, 18) = Sheets("BD_TELEINFO").Cells(236, 18)
Sheets("Feuil1").Cells(lig234, 19) = Sheets("BD_TELEINFO").Cells(236, 19)
lig235 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig235 = lig235 + 1
Sheets("Feuil1").Cells(lig235, 7) = poste.Value
Sheets("Feuil1").Cells(lig235, 8) = Sheets("BD_TELEINFO").Cells(237, 8)
Sheets("Feuil1").Cells(lig235, 9) = Sheets("BD_TELEINFO").Cells(237, 9)
Sheets("Feuil1").Cells(lig235, 10) = Sheets("BD_TELEINFO").Cells(237, 10)
Sheets("Feuil1").Cells(lig235, 11) = Sheets("BD_TELEINFO").Cells(237, 11)
Sheets("Feuil1").Cells(lig235, 12) = Sheets("BD_TELEINFO").Cells(237, 12)
Sheets("Feuil1").Cells(lig235, 18) = Sheets("BD_TELEINFO").Cells(237, 18)
Sheets("Feuil1").Cells(lig235, 19) = Sheets("BD_TELEINFO").Cells(237, 19)
lig236 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig236 = lig236 + 1
Sheets("Feuil1").Cells(lig236, 7) = poste.Value
Sheets("Feuil1").Cells(lig236, 8) = Sheets("BD_TELEINFO").Cells(238, 8)
Sheets("Feuil1").Cells(lig236, 9) = Sheets("BD_TELEINFO").Cells(238, 9)
Sheets("Feuil1").Cells(lig236, 10) = Sheets("BD_TELEINFO").Cells(238, 10)
Sheets("Feuil1").Cells(lig236, 11) = Sheets("BD_TELEINFO").Cells(238, 11)
Sheets("Feuil1").Cells(lig236, 12) = Sheets("BD_TELEINFO").Cells(238, 12)
Sheets("Feuil1").Cells(lig236, 18) = Sheets("BD_TELEINFO").Cells(238, 18)
Sheets("Feuil1").Cells(lig236, 19) = Sheets("BD_TELEINFO").Cells(238, 19)
lig237 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig237 = lig237 + 1
Sheets("Feuil1").Cells(lig237, 7) = poste.Value
Sheets("Feuil1").Cells(lig237, 8) = Sheets("BD_TELEINFO").Cells(239, 8)
Sheets("Feuil1").Cells(lig237, 9) = Sheets("BD_TELEINFO").Cells(239, 9)
Sheets("Feuil1").Cells(lig237, 10) = Sheets("BD_TELEINFO").Cells(239, 10)
Sheets("Feuil1").Cells(lig237, 11) = Sheets("BD_TELEINFO").Cells(239, 11)
Sheets("Feuil1").Cells(lig237, 12) = Sheets("BD_TELEINFO").Cells(239, 12)
Sheets("Feuil1").Cells(lig237, 18) = Sheets("BD_TELEINFO").Cells(239, 18)
If (Sheets("BD_TELEINFO").Cells(239, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(239, 19) = "X") Then
Sheets("Feuil1").Cells(lig237, 19) = 15 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig238 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig238 = lig238 + 1
Sheets("Feuil1").Cells(lig238, 7) = poste.Value
Sheets("Feuil1").Cells(lig238, 8) = Sheets("BD_TELEINFO").Cells(240, 8)
Sheets("Feuil1").Cells(lig238, 9) = Sheets("BD_TELEINFO").Cells(240, 9)
Sheets("Feuil1").Cells(lig238, 10) = Sheets("BD_TELEINFO").Cells(240, 10)
Sheets("Feuil1").Cells(lig238, 11) = Sheets("BD_TELEINFO").Cells(240, 11)
Sheets("Feuil1").Cells(lig238, 12) = Sheets("BD_TELEINFO").Cells(240, 12)
Sheets("Feuil1").Cells(lig238, 18) = Sheets("BD_TELEINFO").Cells(240, 18)
If (Sheets("BD_TELEINFO").Cells(240, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(240, 19) = "X") Then
Sheets("Feuil1").Cells(lig238, 19) = 16 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig239 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig239 = lig239 + 1
Sheets("Feuil1").Cells(lig239, 7) = poste.Value
Sheets("Feuil1").Cells(lig239, 8) = Sheets("BD_TELEINFO").Cells(241, 8)
Sheets("Feuil1").Cells(lig239, 9) = Sheets("BD_TELEINFO").Cells(241, 9)
Sheets("Feuil1").Cells(lig239, 10) = Sheets("BD_TELEINFO").Cells(241, 10)
Sheets("Feuil1").Cells(lig239, 11) = Sheets("BD_TELEINFO").Cells(241, 11)
Sheets("Feuil1").Cells(lig239, 12) = Sheets("BD_TELEINFO").Cells(241, 12)
Sheets("Feuil1").Cells(lig239, 18) = Sheets("BD_TELEINFO").Cells(241, 18)
Sheets("Feuil1").Cells(lig239, 19) = Sheets("BD_TELEINFO").Cells(241, 19)
lig240 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig240 = lig240 + 1
Sheets("Feuil1").Cells(lig240, 7) = poste.Value
Sheets("Feuil1").Cells(lig240, 8) = Sheets("BD_TELEINFO").Cells(242, 8)
Sheets("Feuil1").Cells(lig240, 9) = Sheets("BD_TELEINFO").Cells(242, 9)
Sheets("Feuil1").Cells(lig240, 10) = Sheets("BD_TELEINFO").Cells(242, 10)
Sheets("Feuil1").Cells(lig240, 11) = Sheets("BD_TELEINFO").Cells(242, 11)
Sheets("Feuil1").Cells(lig240, 12) = Sheets("BD_TELEINFO").Cells(242, 12)
Sheets("Feuil1").Cells(lig240, 18) = Sheets("BD_TELEINFO").Cells(242, 18)
Sheets("Feuil1").Cells(lig240, 19) = Sheets("BD_TELEINFO").Cells(242, 19)
lig241 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig241 = lig241 + 1
Sheets("Feuil1").Cells(lig241, 7) = poste.Value
Sheets("Feuil1").Cells(lig241, 8) = Sheets("BD_TELEINFO").Cells(243, 8)
Sheets("Feuil1").Cells(lig241, 9) = Sheets("BD_TELEINFO").Cells(243, 9)
Sheets("Feuil1").Cells(lig241, 10) = Sheets("BD_TELEINFO").Cells(243, 10)
Sheets("Feuil1").Cells(lig241, 11) = Sheets("BD_TELEINFO").Cells(243, 11)
Sheets("Feuil1").Cells(lig241, 12) = Sheets("BD_TELEINFO").Cells(243, 12)
Sheets("Feuil1").Cells(lig241, 18) = Sheets("BD_TELEINFO").Cells(243, 18)
Sheets("Feuil1").Cells(lig241, 19) = Sheets("BD_TELEINFO").Cells(243, 19)
lig242 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig242 = lig242 + 1
Sheets("Feuil1").Cells(lig242, 7) = poste.Value
Sheets("Feuil1").Cells(lig242, 8) = Sheets("BD_TELEINFO").Cells(244, 8)
Sheets("Feuil1").Cells(lig242, 9) = Sheets("BD_TELEINFO").Cells(244, 9)
Sheets("Feuil1").Cells(lig242, 10) = Sheets("BD_TELEINFO").Cells(244, 10)
Sheets("Feuil1").Cells(lig242, 11) = Sheets("BD_TELEINFO").Cells(244, 11)
Sheets("Feuil1").Cells(lig242, 12) = Sheets("BD_TELEINFO").Cells(244, 12)
Sheets("Feuil1").Cells(lig242, 18) = Sheets("BD_TELEINFO").Cells(244, 18)
If (Sheets("BD_TELEINFO").Cells(244, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(244, 19) = "X") Then
Sheets("Feuil1").Cells(lig242, 19) = 17 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig243 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig243 = lig243 + 1
Sheets("Feuil1").Cells(lig243, 7) = poste.Value
Sheets("Feuil1").Cells(lig243, 8) = Sheets("BD_TELEINFO").Cells(245, 8)
Sheets("Feuil1").Cells(lig243, 9) = Sheets("BD_TELEINFO").Cells(245, 9)
Sheets("Feuil1").Cells(lig243, 10) = Sheets("BD_TELEINFO").Cells(245, 10)
Sheets("Feuil1").Cells(lig243, 11) = Sheets("BD_TELEINFO").Cells(245, 11)
Sheets("Feuil1").Cells(lig243, 12) = Sheets("BD_TELEINFO").Cells(245, 12)
Sheets("Feuil1").Cells(lig243, 18) = Sheets("BD_TELEINFO").Cells(245, 18)
If (Sheets("BD_TELEINFO").Cells(245, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(245, 19) = "X") Then
Sheets("Feuil1").Cells(lig243, 19) = 18 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig244 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig244 = lig244 + 1
Sheets("Feuil1").Cells(lig244, 7) = poste.Value
Sheets("Feuil1").Cells(lig244, 8) = Sheets("BD_TELEINFO").Cells(246, 8)
Sheets("Feuil1").Cells(lig244, 9) = Sheets("BD_TELEINFO").Cells(246, 9)
Sheets("Feuil1").Cells(lig244, 10) = Sheets("BD_TELEINFO").Cells(246, 10)
Sheets("Feuil1").Cells(lig244, 11) = Sheets("BD_TELEINFO").Cells(246, 11)
Sheets("Feuil1").Cells(lig244, 12) = Sheets("BD_TELEINFO").Cells(246, 12)
Sheets("Feuil1").Cells(lig244, 18) = Sheets("BD_TELEINFO").Cells(246, 18)
Sheets("Feuil1").Cells(lig244, 19) = Sheets("BD_TELEINFO").Cells(246, 19)
lig245 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig245 = lig245 + 1
Sheets("Feuil1").Cells(lig245, 7) = poste.Value
Sheets("Feuil1").Cells(lig245, 8) = Sheets("BD_TELEINFO").Cells(247, 8)
Sheets("Feuil1").Cells(lig245, 9) = Sheets("BD_TELEINFO").Cells(247, 9)
Sheets("Feuil1").Cells(lig245, 10) = Sheets("BD_TELEINFO").Cells(247, 10)
Sheets("Feuil1").Cells(lig245, 11) = Sheets("BD_TELEINFO").Cells(247, 11)
Sheets("Feuil1").Cells(lig245, 12) = Sheets("BD_TELEINFO").Cells(247, 12)
Sheets("Feuil1").Cells(lig245, 18) = Sheets("BD_TELEINFO").Cells(247, 18)
Sheets("Feuil1").Cells(lig245, 19) = Sheets("BD_TELEINFO").Cells(247, 19)
lig246 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig246 = lig246 + 1
Sheets("Feuil1").Cells(lig246, 7) = poste.Value
Sheets("Feuil1").Cells(lig246, 8) = Sheets("BD_TELEINFO").Cells(248, 8)
Sheets("Feuil1").Cells(lig246, 9) = Sheets("BD_TELEINFO").Cells(248, 9)
Sheets("Feuil1").Cells(lig246, 10) = Sheets("BD_TELEINFO").Cells(248, 10)
Sheets("Feuil1").Cells(lig246, 11) = Sheets("BD_TELEINFO").Cells(248, 11)
Sheets("Feuil1").Cells(lig246, 12) = Sheets("BD_TELEINFO").Cells(248, 12)
Sheets("Feuil1").Cells(lig246, 18) = Sheets("BD_TELEINFO").Cells(248, 18)
Sheets("Feuil1").Cells(lig246, 19) = Sheets("BD_TELEINFO").Cells(248, 19)
lig247 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig247 = lig247 + 1
Sheets("Feuil1").Cells(lig247, 7) = poste.Value
Sheets("Feuil1").Cells(lig247, 8) = Sheets("BD_TELEINFO").Cells(249, 8)
Sheets("Feuil1").Cells(lig247, 9) = Sheets("BD_TELEINFO").Cells(249, 9)
Sheets("Feuil1").Cells(lig247, 10) = Sheets("BD_TELEINFO").Cells(249, 10)
Sheets("Feuil1").Cells(lig247, 11) = Sheets("BD_TELEINFO").Cells(249, 11)
Sheets("Feuil1").Cells(lig247, 12) = Sheets("BD_TELEINFO").Cells(249, 12)
Sheets("Feuil1").Cells(lig247, 18) = Sheets("BD_TELEINFO").Cells(249, 18)
Sheets("Feuil1").Cells(lig247, 19) = Sheets("BD_TELEINFO").Cells(249, 19)
lig248 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig248 = lig248 + 1
Sheets("Feuil1").Cells(lig248, 7) = poste.Value
Sheets("Feuil1").Cells(lig248, 8) = Sheets("BD_TELEINFO").Cells(250, 8)
Sheets("Feuil1").Cells(lig248, 9) = Sheets("BD_TELEINFO").Cells(250, 9)
Sheets("Feuil1").Cells(lig248, 10) = Sheets("BD_TELEINFO").Cells(250, 10)
Sheets("Feuil1").Cells(lig248, 11) = Sheets("BD_TELEINFO").Cells(250, 11)
Sheets("Feuil1").Cells(lig248, 12) = Sheets("BD_TELEINFO").Cells(250, 12)
Sheets("Feuil1").Cells(lig248, 18) = Sheets("BD_TELEINFO").Cells(250, 18)
Sheets("Feuil1").Cells(lig248, 19) = Sheets("BD_TELEINFO").Cells(250, 19)
lig249 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig249 = lig249 + 1
Sheets("Feuil1").Cells(lig249, 7) = poste.Value
Sheets("Feuil1").Cells(lig249, 8) = Sheets("BD_TELEINFO").Cells(251, 8)
Sheets("Feuil1").Cells(lig249, 9) = Sheets("BD_TELEINFO").Cells(251, 9)
Sheets("Feuil1").Cells(lig249, 10) = Sheets("BD_TELEINFO").Cells(251, 10)
Sheets("Feuil1").Cells(lig249, 11) = Sheets("BD_TELEINFO").Cells(251, 11)
Sheets("Feuil1").Cells(lig249, 12) = Sheets("BD_TELEINFO").Cells(251, 12)
Sheets("Feuil1").Cells(lig249, 18) = Sheets("BD_TELEINFO").Cells(251, 18)
If (Sheets("BD_TELEINFO").Cells(251, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(251, 19) = "X") Then
Sheets("Feuil1").Cells(lig249, 19) = 1059 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig250 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig250 = lig250 + 1
Sheets("Feuil1").Cells(lig250, 7) = poste.Value
Sheets("Feuil1").Cells(lig250, 8) = Sheets("BD_TELEINFO").Cells(252, 8)
Sheets("Feuil1").Cells(lig250, 9) = Sheets("BD_TELEINFO").Cells(252, 9)
Sheets("Feuil1").Cells(lig250, 10) = Sheets("BD_TELEINFO").Cells(252, 10)
Sheets("Feuil1").Cells(lig250, 11) = Sheets("BD_TELEINFO").Cells(252, 11)
Sheets("Feuil1").Cells(lig250, 12) = Sheets("BD_TELEINFO").Cells(252, 12)
Sheets("Feuil1").Cells(lig250, 18) = Sheets("BD_TELEINFO").Cells(252, 18)
If (Sheets("BD_TELEINFO").Cells(250, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(252, 19) = "X") Then
Sheets("Feuil1").Cells(lig250, 19) = 1060 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig251 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig251 = lig251 + 1
Sheets("Feuil1").Cells(lig251, 7) = poste.Value
Sheets("Feuil1").Cells(lig251, 8) = Sheets("BD_TELEINFO").Cells(253, 8)
Sheets("Feuil1").Cells(lig251, 9) = Sheets("BD_TELEINFO").Cells(253, 9)
Sheets("Feuil1").Cells(lig251, 10) = Sheets("BD_TELEINFO").Cells(253, 10)
Sheets("Feuil1").Cells(lig251, 11) = Sheets("BD_TELEINFO").Cells(253, 11)
Sheets("Feuil1").Cells(lig251, 12) = Sheets("BD_TELEINFO").Cells(253, 12)
Sheets("Feuil1").Cells(lig251, 18) = Sheets("BD_TELEINFO").Cells(253, 18)
If (Sheets("BD_TELEINFO").Cells(251, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(253, 19) = "X") Then
Sheets("Feuil1").Cells(lig251, 19) = 1061 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig252 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig252 = lig252 + 1
Sheets("Feuil1").Cells(lig252, 7) = poste.Value
Sheets("Feuil1").Cells(lig252, 8) = Sheets("BD_TELEINFO").Cells(254, 8)
Sheets("Feuil1").Cells(lig252, 9) = Sheets("BD_TELEINFO").Cells(254, 9)
Sheets("Feuil1").Cells(lig252, 10) = Sheets("BD_TELEINFO").Cells(254, 10)
Sheets("Feuil1").Cells(lig252, 11) = Sheets("BD_TELEINFO").Cells(254, 11)
Sheets("Feuil1").Cells(lig252, 12) = Sheets("BD_TELEINFO").Cells(254, 12)
Sheets("Feuil1").Cells(lig252, 18) = Sheets("BD_TELEINFO").Cells(254, 18)
If (Sheets("BD_TELEINFO").Cells(252, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(254, 19) = "X") Then
Sheets("Feuil1").Cells(lig252, 19) = 1062 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig253 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig253 = lig253 + 1
Sheets("Feuil1").Cells(lig253, 7) = poste.Value
Sheets("Feuil1").Cells(lig253, 8) = Sheets("BD_TELEINFO").Cells(255, 8)
Sheets("Feuil1").Cells(lig253, 9) = Sheets("BD_TELEINFO").Cells(255, 9)
Sheets("Feuil1").Cells(lig253, 10) = Sheets("BD_TELEINFO").Cells(255, 10)
Sheets("Feuil1").Cells(lig253, 11) = Sheets("BD_TELEINFO").Cells(255, 11)
Sheets("Feuil1").Cells(lig253, 12) = Sheets("BD_TELEINFO").Cells(255, 12)
Sheets("Feuil1").Cells(lig253, 18) = Sheets("BD_TELEINFO").Cells(255, 18)
Sheets("Feuil1").Cells(lig253, 19) = Sheets("BD_TELEINFO").Cells(255, 19)
lig254 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig254 = lig254 + 1
Sheets("Feuil1").Cells(lig254, 7) = poste.Value
Sheets("Feuil1").Cells(lig254, 8) = Sheets("BD_TELEINFO").Cells(256, 8)
Sheets("Feuil1").Cells(lig254, 9) = Sheets("BD_TELEINFO").Cells(256, 9)
Sheets("Feuil1").Cells(lig254, 10) = Sheets("BD_TELEINFO").Cells(256, 10)
Sheets("Feuil1").Cells(lig254, 11) = Sheets("BD_TELEINFO").Cells(256, 11)
Sheets("Feuil1").Cells(lig254, 12) = Sheets("BD_TELEINFO").Cells(256, 12)
Sheets("Feuil1").Cells(lig254, 18) = Sheets("BD_TELEINFO").Cells(256, 18)
Sheets("Feuil1").Cells(lig254, 19) = Sheets("BD_TELEINFO").Cells(256, 19)
lig255 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig255 = lig255 + 1
Sheets("Feuil1").Cells(lig255, 7) = poste.Value
Sheets("Feuil1").Cells(lig255, 8) = Sheets("BD_TELEINFO").Cells(257, 8)
Sheets("Feuil1").Cells(lig255, 9) = Sheets("BD_TELEINFO").Cells(257, 9)
Sheets("Feuil1").Cells(lig255, 10) = Sheets("BD_TELEINFO").Cells(257, 10)
Sheets("Feuil1").Cells(lig255, 11) = Sheets("BD_TELEINFO").Cells(257, 11)
Sheets("Feuil1").Cells(lig255, 12) = Sheets("BD_TELEINFO").Cells(257, 12)
Sheets("Feuil1").Cells(lig255, 18) = Sheets("BD_TELEINFO").Cells(257, 18)
Sheets("Feuil1").Cells(lig255, 19) = Sheets("BD_TELEINFO").Cells(257, 19)
lig256 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig256 = lig256 + 1
Sheets("Feuil1").Cells(lig256, 7) = poste.Value
Sheets("Feuil1").Cells(lig256, 8) = Sheets("BD_TELEINFO").Cells(258, 8)
Sheets("Feuil1").Cells(lig256, 9) = Sheets("BD_TELEINFO").Cells(258, 9)
Sheets("Feuil1").Cells(lig256, 10) = Sheets("BD_TELEINFO").Cells(258, 10)
Sheets("Feuil1").Cells(lig256, 11) = Sheets("BD_TELEINFO").Cells(258, 11)
Sheets("Feuil1").Cells(lig256, 12) = Sheets("BD_TELEINFO").Cells(258, 12)
Sheets("Feuil1").Cells(lig256, 18) = Sheets("BD_TELEINFO").Cells(258, 18)
If (Sheets("BD_TELEINFO").Cells(256, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(258, 19) = "X") Then
Sheets("Feuil1").Cells(lig256, 19) = 1063 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig257 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig257 = lig257 + 1
Sheets("Feuil1").Cells(lig257, 7) = poste.Value
Sheets("Feuil1").Cells(lig257, 8) = Sheets("BD_TELEINFO").Cells(259, 8)
Sheets("Feuil1").Cells(lig257, 9) = Sheets("BD_TELEINFO").Cells(259, 9)
Sheet
0
vb95
Messages postés
3056
Date d'inscription
samedi 11 janvier 2014
Statut
Modérateur
Dernière intervention
22 septembre 2022
158 > akossicarole
Messages postés
6
Date d'inscription
lundi 23 juillet 2018
Statut
Membre
Dernière intervention
24 juillet 2018

23 juil. 2018 à 14:05
Bonjour !
Tout d'abord pour poster du code voir https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

autre chose : je ne suis pas un spécialiste VBA mais je vois que tu répètes X fois ce bout de code :

Sheets("Feuil1").Cells(lig256, 7) = poste.Value
Sheets("Feuil1").Cells(lig256, 8) = Sheets("BD_TELEINFO").Cells(258, 8)
Sheets("Feuil1").Cells(lig256, 9) = Sheets("BD_TELEINFO").Cells(258, 9)
Sheets("Feuil1").Cells(lig256, 10) = Sheets("BD_TELEINFO").Cells(258, 10)
Sheets("Feuil1").Cells(lig256, 11) = Sheets("BD_TELEINFO").Cells(258, 11)
Sheets("Feuil1").Cells(lig256, 12) = Sheets("BD_TELEINFO").Cells(258, 12)
Sheets("Feuil1").Cells(lig256, 18) = Sheets("BD_TELEINFO").Cells(258, 18) 


Je pense qu'il doit être possible d'en faire une procédure à part qui serait appelée par ton code

De plus d'après ce que je vois ton code est tellement long qu'il n'est pas affiché entièrement sue le site

Au lieu de travailler cellule après cellule tu devrais travailler par bloc de cellules avec Range ( voir ce mot dans ton aide VBA ) Ainsi tu pourrais transférer directement des blocs de cellules entiers et non cellule après cellule

Je ne puis t'aider plus désolé !
0
jordane45
Messages postés
36316
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
24 septembre 2022
350
23 juil. 2018 à 15:07
Bonjour,

Comme le suggère VB95, le découpage en fonctions ou sous "sub" est un bon début
par exemple
Function ajout(ShSource As Worksheet, ShCible As Worksheet, ligSource As Integer, poste)
Dim lig As Integer
lig = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig = lig + 1
ShCible.Cells(lig, 7) = poste.Value
ShCible.Cells(lig, 8) = ShSource.Cells(ligSource, 8)
ShCible.Cells(lig, 9) = ShSource.Cells(ligSource, 9)
ShCible.Cells(lig, 10) = ShSource.Cells(ligSource, 10)
ShCible.Cells(lig, 11) = ShShSourceCible.Cells(ligSource, 11)
ShCible.Cells(lig, 12) = ShShSourceCible.Cells(ligSource, 12)
ShCible.Cells(lig, 18) = ShSource.Cells(ligSource, 18)
ShCible.Cells(lig, 19) = ShSource.Cells(ligSource, 19)

End Function


Et pour l'utiliser (ici j'ai repris tes deux premiers blocs
Sub exemple()
' A placer au début de ta SUB
Dim Sh_source As Worksheet
Dim Sh_cible As Worksheet



'Puis dans ton code, là où tu en as besoin:
Set Sh_cible = Sheets("Feuil1")
Set Sh_source = Sheets("BD_TELEINFO")
a = ajout(Sh_source, Sh_cible, 170, poste)
a = ajout(Sh_source, Sh_cible, 171, poste)



End Sub
0
Patrice33740
Messages postés
8549
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
7 mai 2022
21
Modifié le 23 juil. 2018 à 16:11
Bonjour,

Tu devrais ajouter systématiquement
Option explicit
en début de chaque module !
Ça t'obliges à déclarer toutes les variables que tu utilises.
Dans ton cas, tu te serais rendu compte que tu utilises trop de variables différentes (lig168, lig169, ...) pour un même élément : la première ligne vide d'une colonne. Pour cela, une seule et même variable suffit. Et là, comme tu répètes toujours le même code, il faut créer une boucle.
Voir :
http://silkyroad.developpez.com/vba/boucles/
Il est probable qu'avec un "Sub" et une boucle, ton code ne fasse plus que quelques lignes.
0
akossicarole
Messages postés
6
Date d'inscription
lundi 23 juillet 2018
Statut
Membre
Dernière intervention
24 juillet 2018

Modifié le 23 juil. 2018 à 18:36
je n'arrive pas a adapter votre solution
0
akossicarole
Messages postés
6
Date d'inscription
lundi 23 juillet 2018
Statut
Membre
Dernière intervention
24 juillet 2018

24 juil. 2018 à 11:11
bonjour, comb correspond au nombre de fois que je voudrais copier le bloc d'information d'une feuille excel vers une autre
0
vb95
Messages postés
3056
Date d'inscription
samedi 11 janvier 2014
Statut
Modérateur
Dernière intervention
22 septembre 2022
158
Modifié le 24 juil. 2018 à 13:06
Bonjour !
Ok tu veux donc copier plusieurs fois ces informations
Cherchon tout d'abord à les copier une seule fois
Pourquoi recherches-tu à chaque ligne copiée la dernière ligne vide car si tu copies une ligne la ligne vide est la suivante à mon avis
Dis moi si ce code te copie bien les 2 premières lignes correctement

Dis moi aussi si dans la feuille source toutes les lignes se suivent bien les unes après les autres et le nombre de lignes à copier

Peux-tu nous mettre une image de ta feuille source ( avec le bouton de droite qui représente une montagne )


Option explicit
Private Sheetcible As Worksheet = Sheets("Feuil1") ' feuille destination
Private Shrrtsource As Worksheet  = Sheets("BD_TELEINFO") ' feuille origine

Private Sub Valider5_Click() 
    Dim Ligcible As Integer, Ligsource as integer
    Ligsource = 170 ' première ligne source
    Ligcible = Sheets("Feuil1").Range("G10000").End(xlUp).Row ' première ligne destination
    For i = 0 to 1 ' pour copier 2 lignes
        Ajout(Sheetsource , Sheetcible, Ligcible + i, Ligsource + i, poste)
   End Sub

Private Sub Ajout(Source As Worksheet, Cible As Worksheet, Ligcible as integer, LigSource As Integer, poste)
' Pour copier une ligne de la feuille source vers la feuille cible
    Cible.Cells(Ligcible, 7) = poste.Value
    Cible.Cells(Ligcible, 8) = Source.Cells(ligSource, 8)
    Cible.Cells(Ligcible, 9) = Source.Cells(ligSource, 9)
    Cible.Cells(Ligcible, 10) = Source.Cells(ligSource, 10)
    Cible.Cells(Ligcible, 11) = SourceCible.Cells(ligSource, 11)
    Cible.Cells(Ligcible, 12) = SourceCible.Cells(ligSource, 12)
    Cible.Cells(Ligcible, 18) = Source.Cells(ligSource, 18)
    Cible.Cells(Ligcible, 19) = Source.Cells(ligSource, 19)
End Sub

0
akossicarole
Messages postés
6
Date d'inscription
lundi 23 juillet 2018
Statut
Membre
Dernière intervention
24 juillet 2018

24 juil. 2018 à 12:58
désolé j'ai essayé mais le code ne passe pas
0
vb95
Messages postés
3056
Date d'inscription
samedi 11 janvier 2014
Statut
Modérateur
Dernière intervention
22 septembre 2022
158
Modifié le 24 juil. 2018 à 13:05
Informatiquement ta réponse ne veut rien dire !
Y a-t-il un message d'erreur ?
As-tu essayer en pas à pas ?
Si pas à pas sur quelle ligne est l'erreur et quelle est-elle ?

nous ne sommes pas devins ni devant ton Pc
Et tu n'as pas répondu aux autres questions !
On veut bien aider mais faudrait que tu y mettes du tien aussi !
0
akossicarole
Messages postés
6
Date d'inscription
lundi 23 juillet 2018
Statut
Membre
Dernière intervention
24 juillet 2018

24 juil. 2018 à 13:44
ok compris excusez moi !!!!
1erreur de compilation:
erreur de syntaxe
la ligne " Ajout(Sheetsource , Sheetcible, Ligcible + i, Ligsource + i, poste)" est en rouge
2 erreur de compilation:
instruction incorrecte dans une procédure
la ligne "Private Sheetcible As Worksheet = Sheets("Feuil1") ' feuille destination
Private Shrrtsource As Worksheet = Sheets("BD_TELEINFO") ' feuille origine"
est rouge
3 erreur de compilation:
la declaration de la procedure ne correspond pas a la description de l'evenement ou de la procédure de meme nom
la ligne "Private Sub Ajout(Source As Worksheet, Cible As Worksheet, Ligcible as integer, LigSource As Integer, poste)" est souligné
0
vb95
Messages postés
3056
Date d'inscription
samedi 11 janvier 2014
Statut
Modérateur
Dernière intervention
22 septembre 2022
158 > akossicarole
Messages postés
6
Date d'inscription
lundi 23 juillet 2018
Statut
Membre
Dernière intervention
24 juillet 2018

Modifié le 24 juil. 2018 à 18:25
Essaie ceci : je ne suis pas un spécialiste VBA plutôt VB Net

A quoi correspond la variable poste ?

Option explicit
Private Sheetcible As Worksheet
Private Sheetsource As Worksheet

Private Sub Valider5_Click() 
    Dim Ligcible As Integer, Ligsource as integer
    Set Sheetcible = Sheets("Feuil1")  
    Set Sheetsource = Sheets("BD_TELEINFO")
    Ligsource = 170 ' première ligne source
    Ligcible = Sheets("Feuil1").Range("G10000").End(xlUp).Row ' première ligne destination
    For i = 0 to 1 ' pour copier 2 lignes
        Ajout Sheetsource , Sheetcible, Ligcible + i, Ligsource + i, "Poste"
    Next
nd Sub

Private Sub Ajout(Source As Worksheet, Cible As Worksheet, LigneCible as Integer, LigneSource As Integer, poste as String)
' Pour copier une ligne de la feuille source vers la feuille cible
    Cible.Cells(LigneCible, 7) = poste
    Cible.Cells(LigneCible, 8) = Source.Cells(LigneSource, 8)
    Cible.Cells(LigneCible, 9) = Source.Cells(LigneSource, 9)
    Cible.Cells(Lignecible, 10) = Source.Cells(LigneSource, 10)
    Cible.Cells(LigneCible, 11) = Source.Cells(LigneSource, 11)
    Cible.Cells(LigneCible, 12) = Source.Cells(LigneSource, 12)
    Cible.Cells(LigneCible, 18) = Source.Cells(LigneSource, 18)
    Cible.Cells(LigneCible, 19) = Source.Cells(LigneSource, 19)
End Sub
0
Patrice33740
Messages postés
8549
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
7 mai 2022
21
24 juil. 2018 à 17:46
Bonjour,

On tourne en rond !!!

Pour te répondre, il serait plus simple de disposer de ton fichier,
débarrassé des informations confidentielles s'il y lieu.

Déposes le fichier avec des commentaires explicatifs sur
https://mon-partage.fr/
et mets le lien obtenu dans ton prochain message.
--
Cordialement
Patrice
0
vb95
Messages postés
3056
Date d'inscription
samedi 11 janvier 2014
Statut
Modérateur
Dernière intervention
22 septembre 2022
158
Modifié le 24 juil. 2018 à 18:43
Bonjour Patrice
C'est vrai que cela est une option à laquelle je n'avais pas pensé
Ceci nous permettrait de voir la structure réelle de sa feuille Excel et de voir ce qu'elle veut vraiment faire !

Pour Carole
Essaie ceci : je ne suis pas un spécialiste VBA plutôt VB Net
Ce code fonctionne : je l'ai essayé sur Microsoft Office 2016
Il transfère les 2 premières lignes de BD_TELEINFO vers Feuil1

A quoi correspond la variable poste ?

Option explicit
Private Sheetcible As Worksheet
Private Sheetsource As Worksheet

Private Sub Valider5_Click() 
    Dim Ligcible As Integer, Ligsource as integer, i as Integer
    Set Sheetcible = Sheets("Feuil1")  
    Set Sheetsource = Sheets("BD_TELEINFO")
    Ligsource = 170 ' première ligne source
    Ligcible = 168 ' première ligne destination
    For i = 0 to 1 ' pour copier 2 lignes
        Ajout Sheetsource , Sheetcible, Ligcible + i, Ligsource + i, "Poste"
    Next
nd Sub

Private Sub Ajout(Source As Worksheet, Cible As Worksheet, LigneCible as Integer, LigneSource As Integer, poste as String)
' Pour copier une ligne de la feuille source vers la feuille cible
    Cible.Cells(LigneCible, 7) = poste
    Cible.Cells(LigneCible, 8) = Source.Cells(LigneSource, 8)
    Cible.Cells(LigneCible, 9) = Source.Cells(LigneSource, 9)
    Cible.Cells(Lignecible, 10) = Source.Cells(LigneSource, 10)
    Cible.Cells(LigneCible, 11) = Source.Cells(LigneSource, 11)
    Cible.Cells(LigneCible, 12) = Source.Cells(LigneSource, 12)
    Cible.Cells(LigneCible, 18) = Source.Cells(LigneSource, 18)
    Cible.Cells(LigneCible, 19) = Source.Cells(LigneSource, 19)
End Sub
0
vb95
Messages postés
3056
Date d'inscription
samedi 11 janvier 2014
Statut
Modérateur
Dernière intervention
22 septembre 2022
158 > vb95
Messages postés
3056
Date d'inscription
samedi 11 janvier 2014
Statut
Modérateur
Dernière intervention
22 septembre 2022

24 juil. 2018 à 22:10
Encore mieux
Private Sheetcible As Worksheet
Private Sheetsource As Worksheet

Private Sub Valider_Click()
    Dim Ligcible As Integer, Ligsource As Integer, i As Integer
    Set Sheetcible = Sheets("Feuil1")
    Set Sheetsource = Sheets("BD_TELEINFO")
    Ligsource = 170 ' première ligne source
    Ligcible = 168 ' première ligne destination
    For i = 0 To 1 ' pour copier 2 lignes
        Ajout Sheetsource, Sheetcible, Ligcible + i, Ligsource + i, "Poste"
    Next
End Sub

Private Sub Ajout(Source As Worksheet, Cible As Worksheet, LigneCible As Integer, LigneSource As Integer, poste As String)
' Pour copier une ligne de la feuille source vers la feuille cible
    Dim j As Integer
    Cible.Cells(LigneCible, 7) = poste ' copie colonne 7
    For j = 8 To 12
    ' copie colonnes 8 à 12
        Cible.Cells(LigneCible, j) = Source.Cells(LigneSource, j)
    Next
    ' copie les colonnes 18 et 19
    Cible.Cells(LigneCible, 18) = Source.Cells(LigneSource, 18)
    Cible.Cells(LigneCible, 19) = Source.Cells(LigneSource, 19)
End Sub
0