Supprimer des lignes excel

[pierrejean]

Re

j'ai repris le fichier FICHIER

mais , en l'etat il est inexploitable
d'autant que je n'y vois pas d' "arrivée" ni d'heures , que je ne sais pas sur quelle feuille il faut considerer la colonne B et que j'ignore ce que tu entends par isoler

[eillon]

pardon, je n'avais pas vu qu'il y avait une deuxième page donc je croyais que personne n'avais répondu...
Je met un fichier exemple.

Comme au début, je veux récupérer les heures qui correspondent à "arrivée" (voir macro) et je souhaiterai pousser un peu plus loin en conservant le numéro à 6 chiffres après arrivée.

Pour être plus clair, le résultat souhaité est sur le classeur test en feuille 2.

J'ai surligné en jaune les lignes qui m'intéressent, la macro existante fonctionne très bien, je veux juste la compléter.

Je n'ai pas enregistrer la macro.

Sub recup_heures()

Application.ScreenUpdating = False
For n = Sheets("recup heures").Range("C65536").End(xlUp).Row To 1 Step -1
 If InStr(Sheets("recup heures").Range("C" & n), "Arrivée") = 0 Then
 Sheets("recup heures").Rows(n).Delete
 Sheets("recup heures").Range("B" & n & ":C" & n).ClearContents
 End If
Next n
Application.ScreenUpdating = True
Range("A1").CurrentRegion.Select
Selection.Copy

End Sub

[pierrejean]

Re

A tester:

Sub recup_heures()
Application.ScreenUpdating = False
For n = Sheets("recup heures").Range("C65536").End(xlUp).Row To 1 Step -1
 If InStr(Sheets("recup heures").Range("C" & n), "Arrivée") = 0 Then
 Sheets("recup heures").Rows(n).Delete
 Else
 Sheets("recup heures").Range("C" & n) = Left(Range("C" & n), 14)
 End If
Next n
Application.ScreenUpdating = True
Range("A1").CurrentRegion.Select
Selection.Copy
End Sub
 
Note: J'ai laissé les 2 dernieres lignes mais je n'en vois pas l'utilité

[eillon]

Merci pour le coup de main, j'aimerai juste enlevé le mot "arrivée" et garder le numéro à 6 chiffres.

[eillon]

J'ai fait avec ça, mais je pense qu'on peut faire plus simple..

Sub recup_heures()
Application.ScreenUpdating = False
For n = Sheets("recup heures").Range("C65536").End(xlUp).Row To 1 Step -1
 If InStr(Sheets("recup heures").Range("C" & n), "Arrivée") = 0 Then
 Sheets("recup heures").Rows(n).Delete
 Sheets("recup heures").Columns("B:B").ClearContents
 Else
 Sheets("recup heures").Range("C" & n) = Left(Range("C" & n), 14)
 Sheets("recup heures").Range("C" & n) = Right(Range("C" & n), 6)
 End If
Next n
Application.ScreenUpdating = True
Range("A1").CurrentRegion.Select
Selection.Copy
End Sub

[pierrejean]

Re

Pas bien meilleur !

Sub recup_heures()
Application.ScreenUpdating = False
For n = Sheets("recup heures").Range("C65536").End(xlUp).Row To 1 Step -1
 If InStr(Sheets("recup heures").Range("C" & n), "Arrivée") = 0 Then
 Sheets("recup heures").Rows(n).Delete
 Else
 Sheets("recup heures").Range("B" & n) = Mid(Range("C" & n), 9, 6)
 Sheets("recup heures").Range("C" & n) = ""
 End If
Next n
Application.ScreenUpdating = True
Range("A1").CurrentRegion.Select
Selection.Copy
End Sub

[eillon]

J'ai trouvé mon bonheur

Je fini en sélection B:B, même si j'aurais préférer avoir plage B avec des données, j'ai essayer ça mais il me sélectionne que B1

Range("B1", range("B1").end(xlup)).select

Je pensais qu'il me prendrais la première cellule pleine de B et la dernière

Sub recup_heures()

Application.ScreenUpdating = False

For n = Sheets("recup heures").Range("C65536").End(xlUp).Row To 1 Step -1
 If InStr(Sheets("recup heures").Range("C" & n), "Arrivée") = 0 Then
 Sheets("recup heures").Rows(n).Delete
 Else
 Sheets("recup heures").Range("B" & n) = Mid(Range("C" & n), 9, 6)
 Sheets("recup heures").Range("C" & n) = ""
 End If
Next n

Range("B1").End(xlDown).Delete
Range("B:B").Select
Selection.Copy

Application.ScreenUpdating = True

End Sub

Merci pour ton aide, je gagne encore 3 min.

[eillon]

C bon j'ai trouvé, si je lui fais chercher vers le haut en partant de B1, il ne trouvera que B1...

Range("B1", Range("B1").End(xlDown)).Select

C'est mieux comme ça