G
gousnef
Guest
1) For Each c In Range(Cells(3, 2), Cells(NbreCase, 2))
2) If Mid(c.Value, 1, 9) = "/CPIOM_G1" Then
3) Range(Cells(c.Row, 1), Cells(c.Row, 150)).Copy
4) Workbooks("ICD_Avionique_COM").Sheets(1).Paste
End If
Next c
j'ai le code suivant :
1) etape je selectionne toutes les cellules de la colonne "B"
2)si les neuf Premiere lettre de chaque cellule de la colonne "B" corresponden a /CPIOM_G1
3) alors je copie la ligne correspondante a cette cellule et je dois la copier sous une nouvelle feuille d'un nouveau classeur
Le pb etant que je doi copier les lignes selectionnée a partir de la deuxieme ligne de la nouvelle feuille du nouveau classeur, de plus avec mon code, les lignes copiées ne s'enchainent pas les unes en dessous des otres mais s' ecrasent mutuellemen sur la meme ligne !!!
voila pourriez vous m'aidez et me repondre sur david.decaldas@messier-bugatti.com
2) If Mid(c.Value, 1, 9) = "/CPIOM_G1" Then
3) Range(Cells(c.Row, 1), Cells(c.Row, 150)).Copy
4) Workbooks("ICD_Avionique_COM").Sheets(1).Paste
End If
Next c
j'ai le code suivant :
1) etape je selectionne toutes les cellules de la colonne "B"
2)si les neuf Premiere lettre de chaque cellule de la colonne "B" corresponden a /CPIOM_G1
3) alors je copie la ligne correspondante a cette cellule et je dois la copier sous une nouvelle feuille d'un nouveau classeur
Le pb etant que je doi copier les lignes selectionnée a partir de la deuxieme ligne de la nouvelle feuille du nouveau classeur, de plus avec mon code, les lignes copiées ne s'enchainent pas les unes en dessous des otres mais s' ecrasent mutuellemen sur la meme ligne !!!
voila pourriez vous m'aidez et me repondre sur david.decaldas@messier-bugatti.com