Détecter mot spécifique dans chaque lignes de cellules
Bonjour,
je dois nettoyer une base que j'ai récupéré assez importante et je voudrais détecter le mot Badminton dans la ligne d'une cellule si le mot est présent laisser cette ligne dans cette même cellule et transférer les autres lignes si le mot n y est pas, dans une autre cellule, chaque ligne à un renvoie chariot. // puis passer dans la suivante ...
Voici l'exemple:
13/04/2017 : Initiation Badminton classe CE2
01/03/2018: Match handball CE1 vs Ce2
06/05/2018: tournoi Badminton Cm1/Cm2
27/05/2018: Initiation foot de salle CP
etc ...
Mon début de code
Sub netsports()
Application.ScreenUpdating = False
Dim Plage As Range
Dim Cels As Range
With Worksheets("sports")
Set Plage = .Range(.Cells(2, 29), .Cells(.Rows.Count, 29).End(xlUp))
End With
For Each Cels In Plage
If Cels.Offset(0, 9) Like "*Badminton*" Then
' ici boucle ligne par ligne dans la cellule en cours
' Si ligne contient pas Badminton on la transfère sur Cels.Offset(0, 8)
'
'
'
Else
' pas de mot badminton on transfère tout sur cellule 8
Dim phrase
phrase = Cels.Offset(0, 9).Value
With Cels.Offset(0, 8)
.Value = phrase & vbCrLf & .Value
End With
End If
Next Cels
Application.ScreenUpdating = True
End SubMerci d'avance, prenez soin de vous et de vos proches ...
Bonjour
Tu devrais joindre un fichier exemple avec, sur une feuille ce que tu as au départ et sur une autre ce que tu veux obtenir.
Bye !
Bonjour, voilà... deux feuilles dans le fichier avant après ..
Bonjour,
Bonjour 78chris,
Une autre proposition Power Query.
Cdlt.
Nota: mon application Capture d'écran fonctionne de nouveau.
Bonjour, merci pour vos propositions ...
78chris
A la ligne 5 le résultat qui doit être en ligne 6 , et celui en ligne 6 sur la ligne 5
Voir colonne A et B ?
Bonjour GMB, j'avoue avoir une préférence pour le code vba, malgré que le PQ reste puissant...
ça fonctionne plutôt bien sauf que des fois il y des pièges dans le cellules du style :
30/09/2018: Initiation Badminton CP : gymnase David Douillet
Du coup il y a deux ":"
Je vais essayé d'exploiter ton code ... je suis pas sortie des ronces là !
Et ça me tronque les fins de phases dans sports effectués et pas de badminton après nettoyage.
Merci Gmb,
ça fonctionne une dernière demande est ce qu'il y a la possibilité de supprimer les retours de chariots inutiles de manière à ce que tous soit collé comme dans la colonne B ? car des fois j'ai des retours chariots inutile au départ
13/04/2017 : Initiation Badminton classe CE2
06/05/2018: tournoi Badminton Cm1/Cm2
21/02/2013 : je bascule
01/03/2018: Match handball CE1 vs Ce2
27/05/2018: Initiation foot de salle CP
30/09/2018: Initiation Badminton CP : gymnase David Douillet
Dans la colonne B toutes les lignes se mettent bien les unes derrière les autres dans la colonne A, la cellule garde le retour de chariot sans phrase !?
Merci.
Il me faudrait un fichier où ce phénomène se produit...
Bye !