Utilisation du like

Résolu/Fermé

camcam1404 Messages postés 64 Date d'inscription mardi 13 décembre 2016 Statut Membre Dernière intervention 9 septembre 2019 - Modifié par pijaku le 26/01/2017 à 10:13
camcam1404 Messages postés 64 Date d'inscription mardi 13 décembre 2016 Statut Membre Dernière intervention 9 septembre 2019 - 26 janv. 2017 à 10:40

Bonjour,

Le like que j'utilise dans le programme ci-dessous pour me supprimer toute le colonnes dont la premiére ligne ne contient pas le mot "ROUTE" ne fonctionne pas et je vois pas pourquoi. Quand j´éxécute le programme tout les colonnes sont supprimées.
Quelqu' un voit l'erreur comise ?

Sub columnsdelete()
Dim I As Long
Dim LastCol As Long


ActiveSheet.Copy

Application.ScreenUpdating = False


With ActiveSheet
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column
For I = LastCol To 4 Step -1
           If Cells(1, I) Like "* ROUTE *" Then GoTo suite
           Columns(I).Delete
suite:
Next I

End With

Application.ScreenUpdating = True

End Sub

A voir également:

Utilisation du like
Notice d'utilisation - Guide
Utilisation chromecast - Guide
Like instagram - Guide
Dossier en cours d'utilisation - Forum Windows 8 / 8.1
Bug like tiktok - Forum TikTok

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
26 janv. 2017 à 10:03

Bonjour,

Sub columnsdelete()
Dim I As Long
Dim LastCol As Long


ActiveSheet.Copy

Application.ScreenUpdating = False
With ActiveSheet
    LastCol = Cells(1, Columns.Count).End(xlToLeft).Column
    For I = LastCol To 4 Step -1
        If Not UCase(Cells(1, I)) Like "*ROUTE*" Then Columns(I).Delete
    Next I
End With
Application.ScreenUpdating = True

End Sub

Attention, c'est sur la copie que le code s'execute!

camcam1404 Messages postés 64 Date d'inscription mardi 13 décembre 2016 Statut Membre Dernière intervention 9 septembre 2019
Modifié par camcam1404 le 26/01/2017 à 10:11

Oui c'est fait exprés :)

Je me suis pas servi du UCase car le mot est déjà en majuscule dans la feuille..
Je pense pas que le probléme vient de là.
Ca ne foncionne toujours pas.

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > camcam1404 Messages postés 64 Date d'inscription mardi 13 décembre 2016 Statut Membre Dernière intervention 9 septembre 2019
Modifié par f894009 le 26/01/2017 à 10:25

Re,

Je pense pas que le probléme vient de là.
Oui, le probleme vient de l'espace entre l'* et R ainsi que l'espace entre E et l'* de fin
Chez moi ca marche

Vous pouvez faire une recopie d'ecran des entetes de colonnes ou mettre un fichier avec seulement les entetes a dispo
Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

camcam1404 Messages postés 64 Date d'inscription mardi 13 décembre 2016 Statut Membre Dernière intervention 9 septembre 2019
26 janv. 2017 à 10:40

Oui l'erreur provient effectivement des espaces !
Merci de votre aide.

Discussions similaires

Ressource demandée en cours d'utilisation

minimal bash-like line editing is supported

a qoui sert un objectif 18-55 et un de 55-200

Comment bloquer les likes et les commentaires sur ma PP Facebook ?

J'ai like une photo sans faire expres instagram

Discussions similaires

Newsletters