J'ai un fichier dont les enregistrements sont sur plusieurs lignes,
et evidement j'aimerais l'avoir sur une seule ligne, je joint le lien
avec mon exemple et plus de details.
Merci de votre aide
'Ajuster selon le nombre de lignes occupées par les données sur la feuille d'origine PremiereLigneDesDonnees = 4 derniereLigneDesDonnees = 17
For i = PremiereLigneDesDonnees To derniereLigneDesDonnees 'Si les données sont sur 7 colonnes For y = 1 To 7
If Trim(UCase(Cells(i, y) = "PT")) Then DestinationRangee = DestinationRangee + 1 Destinationcolonne = 0 End If If Trim(UCase(Cells(i, y) = "PH")) Then Destinationcolonne = 36 End If
J'ai un fichier dont les enregistrements sont sur plusieurs lignes, et evidement j'aimerais l'avoir sur une seule ligne, je joint le lien avec mon exemple et plus de details. Merci de votre aide
'Ajuster selon le nombre de lignes occupées par les données sur la feuille
d'origine
PremiereLigneDesDonnees = 4
derniereLigneDesDonnees = 17
For i = PremiereLigneDesDonnees To derniereLigneDesDonnees
'Si les données sont sur 7 colonnes
For y = 1 To 7
If Trim(UCase(Cells(i, y) = "PT")) Then
DestinationRangee = DestinationRangee + 1
Destinationcolonne = 0
End If
If Trim(UCase(Cells(i, y) = "PH")) Then
Destinationcolonne = 36
End If
"Dante Huapaya" <DanteHuapaya@discussions.microsoft.com> wrote in message
news:984AD9CC-A7A6-49C0-AEF8-1BEC22F4CBBB@microsoft.com...
Bonjour,
J'ai un fichier dont les enregistrements sont sur plusieurs lignes,
et evidement j'aimerais l'avoir sur une seule ligne, je joint le lien
avec mon exemple et plus de details.
Merci de votre aide
'Ajuster selon le nombre de lignes occupées par les données sur la feuille d'origine PremiereLigneDesDonnees = 4 derniereLigneDesDonnees = 17
For i = PremiereLigneDesDonnees To derniereLigneDesDonnees 'Si les données sont sur 7 colonnes For y = 1 To 7
If Trim(UCase(Cells(i, y) = "PT")) Then DestinationRangee = DestinationRangee + 1 Destinationcolonne = 0 End If If Trim(UCase(Cells(i, y) = "PH")) Then Destinationcolonne = 36 End If
J'ai un fichier dont les enregistrements sont sur plusieurs lignes, et evidement j'aimerais l'avoir sur une seule ligne, je joint le lien avec mon exemple et plus de details. Merci de votre aide
http://www.cijoint.fr/cij82677821731213.xls
Carlos Dante
Dante Huapaya
Merci de la reponse, Le seul detail est ce que les donnees ne sont pas seulement sur 7 colonnes, si la ligne PT est sur 7 colonnes la ligne PA est sur 5 et la PH sur 6.
'Ajuster selon le nombre de lignes occupées par les données sur la feuille d'origine PremiereLigneDesDonnees = 4 derniereLigneDesDonnees = 17
For i = PremiereLigneDesDonnees To derniereLigneDesDonnees 'Si les données sont sur 7 colonnes For y = 1 To 7
If Trim(UCase(Cells(i, y) = "PT")) Then DestinationRangee = DestinationRangee + 1 Destinationcolonne = 0 End If If Trim(UCase(Cells(i, y) = "PH")) Then Destinationcolonne = 36 End If
J'ai un fichier dont les enregistrements sont sur plusieurs lignes, et evidement j'aimerais l'avoir sur une seule ligne, je joint le lien avec mon exemple et plus de details. Merci de votre aide
http://www.cijoint.fr/cij82677821731213.xls
Carlos Dante
Merci de la reponse,
Le seul detail est ce que les donnees ne sont pas seulement sur 7 colonnes,
si la ligne PT est sur 7 colonnes la ligne PA est sur 5 et la PH sur 6.
'Ajuster selon le nombre de lignes occupées par les données sur la feuille
d'origine
PremiereLigneDesDonnees = 4
derniereLigneDesDonnees = 17
For i = PremiereLigneDesDonnees To derniereLigneDesDonnees
'Si les données sont sur 7 colonnes
For y = 1 To 7
If Trim(UCase(Cells(i, y) = "PT")) Then
DestinationRangee = DestinationRangee + 1
Destinationcolonne = 0
End If
If Trim(UCase(Cells(i, y) = "PH")) Then
Destinationcolonne = 36
End If
"Dante Huapaya" <DanteHuapaya@discussions.microsoft.com> wrote in message
news:984AD9CC-A7A6-49C0-AEF8-1BEC22F4CBBB@microsoft.com...
Bonjour,
J'ai un fichier dont les enregistrements sont sur plusieurs lignes,
et evidement j'aimerais l'avoir sur une seule ligne, je joint le lien
avec mon exemple et plus de details.
Merci de votre aide
Merci de la reponse, Le seul detail est ce que les donnees ne sont pas seulement sur 7 colonnes, si la ligne PT est sur 7 colonnes la ligne PA est sur 5 et la PH sur 6.
'Ajuster selon le nombre de lignes occupées par les données sur la feuille d'origine PremiereLigneDesDonnees = 4 derniereLigneDesDonnees = 17
For i = PremiereLigneDesDonnees To derniereLigneDesDonnees 'Si les données sont sur 7 colonnes For y = 1 To 7
If Trim(UCase(Cells(i, y) = "PT")) Then DestinationRangee = DestinationRangee + 1 Destinationcolonne = 0 End If If Trim(UCase(Cells(i, y) = "PH")) Then Destinationcolonne = 36 End If
J'ai un fichier dont les enregistrements sont sur plusieurs lignes, et evidement j'aimerais l'avoir sur une seule ligne, je joint le lien avec mon exemple et plus de details. Merci de votre aide
http://www.cijoint.fr/cij82677821731213.xls
Carlos Dante
Mishell
Voici qui pourrait respecter le nombre variable de colonnes .
'Ajuster selon le nombre de lignes occupées par les données sur la feuille d 'origine PremiereLigneDesDonnees = 4 derniereLigneDesDonnees = 17
For i = PremiereLigneDesDonnees To derniereLigneDesDonnees 'Si les données sont sur 7 colonnes maximum For y = 1 To 7
If Trim(UCase(Cells(i, y) = "PT")) Then DestinationRangee = DestinationRangee + 1 DestinationColonne = 1 niemePA = 0 End If If Trim(UCase(Cells(i, y) = "PH")) Then DestinationColonne = 33 End If If Trim(UCase(Cells(i, y) = "PG")) Then DestinationColonne = 13 + (niemePA * 5) niemePA = niemePA + 1 End If
Merci de la reponse, Le seul detail est ce que les donnees ne sont pas seulement sur 7 colonnes, si la ligne PT est sur 7 colonnes la ligne PA est sur 5 et la PH sur 6.
'Ajuster selon le nombre de lignes occupées par les données sur la feuille d'origine PremiereLigneDesDonnees = 4 derniereLigneDesDonnees = 17
For i = PremiereLigneDesDonnees To derniereLigneDesDonnees 'Si les données sont sur 7 colonnes For y = 1 To 7
If Trim(UCase(Cells(i, y) = "PT")) Then DestinationRangee = DestinationRangee + 1 Destinationcolonne = 0 End If If Trim(UCase(Cells(i, y) = "PH")) Then Destinationcolonne = 36 End If
J'ai un fichier dont les enregistrements sont sur plusieurs lignes, et evidement j'aimerais l'avoir sur une seule ligne, je joint le lien avec mon exemple et plus de details. Merci de votre aide
http://www.cijoint.fr/cij82677821731213.xls
Carlos Dante
Voici qui pourrait respecter le nombre variable de colonnes .
'Ajuster selon le nombre de lignes occupées par les données sur la feuille d
'origine
PremiereLigneDesDonnees = 4
derniereLigneDesDonnees = 17
For i = PremiereLigneDesDonnees To derniereLigneDesDonnees
'Si les données sont sur 7 colonnes maximum
For y = 1 To 7
If Trim(UCase(Cells(i, y) = "PT")) Then
DestinationRangee = DestinationRangee + 1
DestinationColonne = 1
niemePA = 0
End If
If Trim(UCase(Cells(i, y) = "PH")) Then
DestinationColonne = 33
End If
If Trim(UCase(Cells(i, y) = "PG")) Then
DestinationColonne = 13 + (niemePA * 5)
niemePA = niemePA + 1
End If
"Dante Huapaya" <DanteHuapaya@discussions.microsoft.com> wrote in message
news:B3F44C0C-6176-410F-96C2-EBD7C31CF7F3@microsoft.com...
Merci de la reponse,
Le seul detail est ce que les donnees ne sont pas seulement sur 7
colonnes,
si la ligne PT est sur 7 colonnes la ligne PA est sur 5 et la PH sur 6.
'Ajuster selon le nombre de lignes occupées par les données sur la
feuille
d'origine
PremiereLigneDesDonnees = 4
derniereLigneDesDonnees = 17
For i = PremiereLigneDesDonnees To derniereLigneDesDonnees
'Si les données sont sur 7 colonnes
For y = 1 To 7
If Trim(UCase(Cells(i, y) = "PT")) Then
DestinationRangee = DestinationRangee + 1
Destinationcolonne = 0
End If
If Trim(UCase(Cells(i, y) = "PH")) Then
Destinationcolonne = 36
End If
"Dante Huapaya" <DanteHuapaya@discussions.microsoft.com> wrote in message
news:984AD9CC-A7A6-49C0-AEF8-1BEC22F4CBBB@microsoft.com...
Bonjour,
J'ai un fichier dont les enregistrements sont sur plusieurs lignes,
et evidement j'aimerais l'avoir sur une seule ligne, je joint le lien
avec mon exemple et plus de details.
Merci de votre aide
'Ajuster selon le nombre de lignes occupées par les données sur la feuille d 'origine PremiereLigneDesDonnees = 4 derniereLigneDesDonnees = 17
For i = PremiereLigneDesDonnees To derniereLigneDesDonnees 'Si les données sont sur 7 colonnes maximum For y = 1 To 7
If Trim(UCase(Cells(i, y) = "PT")) Then DestinationRangee = DestinationRangee + 1 DestinationColonne = 1 niemePA = 0 End If If Trim(UCase(Cells(i, y) = "PH")) Then DestinationColonne = 33 End If If Trim(UCase(Cells(i, y) = "PG")) Then DestinationColonne = 13 + (niemePA * 5) niemePA = niemePA + 1 End If
Merci de la reponse, Le seul detail est ce que les donnees ne sont pas seulement sur 7 colonnes, si la ligne PT est sur 7 colonnes la ligne PA est sur 5 et la PH sur 6.
'Ajuster selon le nombre de lignes occupées par les données sur la feuille d'origine PremiereLigneDesDonnees = 4 derniereLigneDesDonnees = 17
For i = PremiereLigneDesDonnees To derniereLigneDesDonnees 'Si les données sont sur 7 colonnes For y = 1 To 7
If Trim(UCase(Cells(i, y) = "PT")) Then DestinationRangee = DestinationRangee + 1 Destinationcolonne = 0 End If If Trim(UCase(Cells(i, y) = "PH")) Then Destinationcolonne = 36 End If
J'ai un fichier dont les enregistrements sont sur plusieurs lignes, et evidement j'aimerais l'avoir sur une seule ligne, je joint le lien avec mon exemple et plus de details. Merci de votre aide
http://www.cijoint.fr/cij82677821731213.xls
Carlos Dante
Dante Huapaya
Merci Mishell, C'est exactement ca que j'ai cherché. Très apprécié
Carlos Dante
Tr
Voici qui pourrait respecter le nombre variable de colonnes .
'Ajuster selon le nombre de lignes occupées par les données sur la feuille d 'origine PremiereLigneDesDonnees = 4 derniereLigneDesDonnees = 17
For i = PremiereLigneDesDonnees To derniereLigneDesDonnees 'Si les données sont sur 7 colonnes maximum For y = 1 To 7
If Trim(UCase(Cells(i, y) = "PT")) Then DestinationRangee = DestinationRangee + 1 DestinationColonne = 1 niemePA = 0 End If If Trim(UCase(Cells(i, y) = "PH")) Then DestinationColonne = 33 End If If Trim(UCase(Cells(i, y) = "PG")) Then DestinationColonne = 13 + (niemePA * 5) niemePA = niemePA + 1 End If
Merci de la reponse, Le seul detail est ce que les donnees ne sont pas seulement sur 7 colonnes, si la ligne PT est sur 7 colonnes la ligne PA est sur 5 et la PH sur 6.
'Ajuster selon le nombre de lignes occupées par les données sur la feuille d'origine PremiereLigneDesDonnees = 4 derniereLigneDesDonnees = 17
For i = PremiereLigneDesDonnees To derniereLigneDesDonnees 'Si les données sont sur 7 colonnes For y = 1 To 7
If Trim(UCase(Cells(i, y) = "PT")) Then DestinationRangee = DestinationRangee + 1 Destinationcolonne = 0 End If If Trim(UCase(Cells(i, y) = "PH")) Then Destinationcolonne = 36 End If
J'ai un fichier dont les enregistrements sont sur plusieurs lignes, et evidement j'aimerais l'avoir sur une seule ligne, je joint le lien avec mon exemple et plus de details. Merci de votre aide
http://www.cijoint.fr/cij82677821731213.xls
Carlos Dante
Merci Mishell,
C'est exactement ca que j'ai cherché.
Très apprécié
Carlos Dante
Tr
Voici qui pourrait respecter le nombre variable de colonnes .
'Ajuster selon le nombre de lignes occupées par les données sur la feuille d
'origine
PremiereLigneDesDonnees = 4
derniereLigneDesDonnees = 17
For i = PremiereLigneDesDonnees To derniereLigneDesDonnees
'Si les données sont sur 7 colonnes maximum
For y = 1 To 7
If Trim(UCase(Cells(i, y) = "PT")) Then
DestinationRangee = DestinationRangee + 1
DestinationColonne = 1
niemePA = 0
End If
If Trim(UCase(Cells(i, y) = "PH")) Then
DestinationColonne = 33
End If
If Trim(UCase(Cells(i, y) = "PG")) Then
DestinationColonne = 13 + (niemePA * 5)
niemePA = niemePA + 1
End If
"Dante Huapaya" <DanteHuapaya@discussions.microsoft.com> wrote in message
news:B3F44C0C-6176-410F-96C2-EBD7C31CF7F3@microsoft.com...
Merci de la reponse,
Le seul detail est ce que les donnees ne sont pas seulement sur 7
colonnes,
si la ligne PT est sur 7 colonnes la ligne PA est sur 5 et la PH sur 6.
'Ajuster selon le nombre de lignes occupées par les données sur la
feuille
d'origine
PremiereLigneDesDonnees = 4
derniereLigneDesDonnees = 17
For i = PremiereLigneDesDonnees To derniereLigneDesDonnees
'Si les données sont sur 7 colonnes
For y = 1 To 7
If Trim(UCase(Cells(i, y) = "PT")) Then
DestinationRangee = DestinationRangee + 1
Destinationcolonne = 0
End If
If Trim(UCase(Cells(i, y) = "PH")) Then
Destinationcolonne = 36
End If
"Dante Huapaya" <DanteHuapaya@discussions.microsoft.com> wrote in message
news:984AD9CC-A7A6-49C0-AEF8-1BEC22F4CBBB@microsoft.com...
Bonjour,
J'ai un fichier dont les enregistrements sont sur plusieurs lignes,
et evidement j'aimerais l'avoir sur une seule ligne, je joint le lien
avec mon exemple et plus de details.
Merci de votre aide
'Ajuster selon le nombre de lignes occupées par les données sur la feuille d 'origine PremiereLigneDesDonnees = 4 derniereLigneDesDonnees = 17
For i = PremiereLigneDesDonnees To derniereLigneDesDonnees 'Si les données sont sur 7 colonnes maximum For y = 1 To 7
If Trim(UCase(Cells(i, y) = "PT")) Then DestinationRangee = DestinationRangee + 1 DestinationColonne = 1 niemePA = 0 End If If Trim(UCase(Cells(i, y) = "PH")) Then DestinationColonne = 33 End If If Trim(UCase(Cells(i, y) = "PG")) Then DestinationColonne = 13 + (niemePA * 5) niemePA = niemePA + 1 End If
Merci de la reponse, Le seul detail est ce que les donnees ne sont pas seulement sur 7 colonnes, si la ligne PT est sur 7 colonnes la ligne PA est sur 5 et la PH sur 6.
'Ajuster selon le nombre de lignes occupées par les données sur la feuille d'origine PremiereLigneDesDonnees = 4 derniereLigneDesDonnees = 17
For i = PremiereLigneDesDonnees To derniereLigneDesDonnees 'Si les données sont sur 7 colonnes For y = 1 To 7
If Trim(UCase(Cells(i, y) = "PT")) Then DestinationRangee = DestinationRangee + 1 Destinationcolonne = 0 End If If Trim(UCase(Cells(i, y) = "PH")) Then Destinationcolonne = 36 End If
J'ai un fichier dont les enregistrements sont sur plusieurs lignes, et evidement j'aimerais l'avoir sur une seule ligne, je joint le lien avec mon exemple et plus de details. Merci de votre aide