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 3508 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 2 septembre 2024 - 24 juil. 2018 à 22:10
vb95 Messages postés 3508 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 2 septembre 2024 - 24 juil. 2018 à 22:10
A voir également:
- Reduire la longueur de mon code
- Obfuscation de code - Conseils pratiques -Visual Basic / VB.NET
- Visual studio code retour à la ligne automatique - Forum Visual Basic
- Desactiver le retour à la ligne d'une RichTextBox - Forum VB.NET
- Code pcs gratuit ✓ - Forum Visual Basic 6
- Retour ligne automatique dans un TextBox ✓ - Forum C# / .NET
4 réponses
vb95
Messages postés
3508
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
2 septembre 2024
169
Modifié le 23 juil. 2018 à 13:40
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 !
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 !
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
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
vb95
Messages postés
3508
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
2 septembre 2024
169
Modifié le 24 juil. 2018 à 13:06
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 )
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
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
24 juil. 2018 à 12:58
désolé j'ai essayé mais le code ne passe pas
vb95
Messages postés
3508
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
2 septembre 2024
169
Modifié le 24 juil. 2018 à 13:05
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 !
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 !
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
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é
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é
vb95
Messages postés
3508
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
2 septembre 2024
169
>
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
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 ?
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
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
21
24 juil. 2018 à 17:46
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
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
vb95
Messages postés
3508
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
2 septembre 2024
169
Modifié le 24 juil. 2018 à 18:43
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 ?
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
vb95
Messages postés
3508
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
2 septembre 2024
169
>
vb95
Messages postés
3508
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
2 septembre 2024
24 juil. 2018 à 22:10
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
Modifié le 23 juil. 2018 à 14:50
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
23 juil. 2018 à 14:05
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é !
23 juil. 2018 à 15:07
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 FunctionEt 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 SubModifié le 23 juil. 2018 à 16:11
Tu devrais ajouter systématiquement 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.
Modifié le 23 juil. 2018 à 18:36