Bonjour,
C'est mon premier message sur le forum et je souhaiterais connaitre la méthode pour supprimer complètement une ligne de mon listing sous certaines conditions.
Pour le moment, j'arrive à éffacer le contenu des lignes que je ne souhaite pas.
Mais la ligne reste et mon fichier se retrouve trouer avec plein de lignes blanches.
Voici mon code :
Je ne suis pas un grand expert d'Excel... je fonctionne surtout avec l'outil qui permet d'enregistrer les actions, mais là j'ai un souci car pour supprimer completement une ligne il faut utiliser cette commande :
et Rows("i:i").Select, ça ne marche pas
Pouvez vous m'aider s'il vous plait ?
Merci
C'est mon premier message sur le forum et je souhaiterais connaitre la méthode pour supprimer complètement une ligne de mon listing sous certaines conditions.
Pour le moment, j'arrive à éffacer le contenu des lignes que je ne souhaite pas.
Mais la ligne reste et mon fichier se retrouve trouer avec plein de lignes blanches.
Voici mon code :
Code:
i = 2
Do While Worksheets(3).Cells(i, 1) <> ""
Worksheets(4).Cells(i, 1).Value = Worksheets(3).Cells(i, 2).Value 'Occurrence ref
Worksheets(4).Cells(i, 2).Value = Worksheets(3).Cells(i, 3).Value 'Chrono ref
Worksheets(4).Cells(i, 3).Value = Worksheets(3).Cells(i, 4).Value 'RO Title
Worksheets(4).Cells(i, 4).Value = Worksheets(3).Cells(i, 5).Value 'Classification
Worksheets(4).Cells(i, 5).Value = Worksheets(3).Cells(i, 6).Value 'Status
Worksheets(4).Cells(i, 6).Value = Worksheets(3).Cells(i, 7).Value 'Operator
Worksheets(4).Cells(i, 7).Value = Worksheets(3).Cells(i, 8).Value 'MSN
Worksheets(4).Cells(i, 8).Value = Worksheets(3).Cells(i, 9).Value 'A/C Model
Worksheets(4).Cells(i, 9).Value = Worksheets(3).Cells(i, 10).Value 'ATA
Worksheets(4).Cells(i, 10).Value = Worksheets(3).Cells(i, 11).Value 'Airbus Site involved
Worksheets(4).Cells(i, 11).Value = Worksheets(3).Cells(i, 12).Value 'Screening classification date
Worksheets(4).Cells(i, 12).Value = Worksheets(3).Cells(i, 13).Value 'Level 2 closure target
Worksheets(4).Cells(i, 13).Value = Worksheets(3).Cells(i, 14).Value 'Target date exceeded
Worksheets(4).Cells(i, 14).Value = Worksheets(3).Cells(i, 15).Value 'Justification of target change
'On efface les Yellow / Open
If Worksheets(4).Cells(i, 4).Value = "Yellow" And Worksheets(4).Cells(i, 5).Value = "Open" Then
Worksheets(4).Rows(i).Delete Shift:=xlUp
End If
i = i + 1
Loop
Je ne suis pas un grand expert d'Excel... je fonctionne surtout avec l'outil qui permet d'enregistrer les actions, mais là j'ai un souci car pour supprimer completement une ligne il faut utiliser cette commande :
Code:
Rows("8:8").Select
Selection.Delete Shift:=xlUp
et Rows("i:i").Select, ça ne marche pas
Pouvez vous m'aider s'il vous plait ?
Merci