Re : Supprimer des lignes disperses sur excel
Super Porcinet, quelle activite aujourd'hui!
Merci en tout cas, j'avais trouve une autre solution mais celle la marche bien.
Bref, j'avance bien, et c'est presque fini!
Bon, autre question donc... Qui sera peut-etre la derniere pour la journee...
Attention c'est un peu complique...
J'ai ma feuille de sortie 'workfile', dont une colonne (la K, commence a la ligne 6)comporte des codes pays (12 pays), chaque ligne peut donc etre rattachee a un pays en theorie.
J'ai donc cree dans la sheet "anomalie, country code" une table avec en colonne D le code numerique du pays et en colonne E le nom du pays.
Et mon programme vise a verifier la colonne K de ma feuille workfile, a chaque ligne on va dans la table des correspondances, on recherche le code numerique du pays (colonne D) et on sort le nom (colonne suivante, la E), et on reinjecte le nom du pays dans la feuille workfile, a la ligne ou l'on se trouve mais dans la colonne A cette fois. Ainsi on conserve quand meme le code numerique pays dans la ligne, il n'y a pas de remplacement.
Voici mon programme:
Sub CodePays()
Windows( _
"Monthly Anomaly Report.xls" _
).Activate
Sheets("Workfile").Select
Dim MaPlage As Range
Dim Cellule As Range
Dim i As Integer
i = 6
'i commence a 6 car avant ce sont des cases de titre...
' on choisi la colonne jusqu'en bas, la ou debute la premiere case vide
Set MaPlage = Sheets("Workfile").Range("C6:" & Range("C6").End(xlDown).Address(0, 0))
For Each Cellule In MaPlage
Sheets("Anomalies, country codes").Select
Dim j As Integer
For j = 2 To 13
If Sheets("Anomalies, country codes").Cells(j, 4) = Sheets("Workfile").Cells(i, 8) Then
Sheets("Workfile").Cells(i, 3) = Sheets("Anomalies, country codes").Cells(j, 4)
End If
Next
i = i + 1
Next Cellule
End Sub
A ciao, et merci par avance