Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro suppression de colonne si condition, sauf la première colonne

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion fran6
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

fran6

Guest
Bonjour

Je suis débutant et je poste pour la première fois sur le forum 😀.
J'extrais des données que je colle dans une feuille.
Les données de la colonne A sont répétées plusieurs fois dans la feuille de façon aléatoire
Je souhaites conserver les données de la colonne A et supprimer autres colonnes contenant les mêmes données
Je cherche donc désespérément à faire une macro qui tout en conservant la colonne A supprime les colonnes redondante
Il convient de supprimer les colonnes dont la cellule située sur la 3éme ligne contient le terme"00*". (exemple 003-xx)
Sub test()
Dim Cel As Range
Do
Set Cel = Cells.Find(What:="00*", LookIn:=xlFormulas, LookAt:=xlWhole)
If Cel Is Nothing Then
Exit Sub
Else
Columns(Cel.Column).Delete
End If
End Sub

Cette macro fonctionne .... mais supprime aussi la colonne A !!!
Je vous remercie pour votre indulgence dans les explications d'une part et pour d'autre part la macro qui j'en suis convaincu ne doit pas être au "top"
Merci pour votre aide
Fran6
 
Trier par date Trier par votes
Re : Macro suppression de colonne si condition, sauf la première colonne

Bonjour fran6,

Bienvenue sur XLD,

Cette macro fonctionne .... mais supprime aussi la colonne A !!!
Cliquez pour agrandir...

Avec un Do sans Loop, j'ai du mal à croire que ça fonctionne
Pourrais-tu nous fournir un fichier exemple et expliquer le résultat attendu à cette macro dans ce même fichier ?
 
Vote positif 0 Vote négatif
Re : Macro suppression de colonne si condition, sauf la première colonne

Bjr, merci pour ton attention et surtout pour ton indulgence
Ci joint (en espérant que le fichier et bien joint 😀) un exemple du résultat attendu
fran6
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro suppression de colonne si condition, sauf la première colonne

Oups, effectivement j'avais oublié de copier le Loop dans mon 1r message

Sub test()
Dim Cel As Range
Do
Set Cel = Cells.Find(What:="00*", LookIn:=xlFormulas, LookAt:=xlWhole)
If Cel Is Nothing Then
Exit Sub
Else
Columns(Cel.Column).Delete
End If
Loop
End Sub
 
Vote positif 0 Vote négatif
Re : Macro suppression de colonne si condition, sauf la première colonne

Re,

un essai

Code: 
Sub test()
Dim Cel As Range, Adr As String, Adr2 As String
    Set Cel = Cells.Find(What:="00*", LookIn:=xlFormulas, LookAt:=xlWhole)
    If Cel Is Nothing Then Exit Sub
    Adr = Cel.Address
    Do
        If Cel.Column <> 1 Then
            Adr2 = Cel.Offset(0, -1).Address
            Cel.EntireColumn.Delete
            Set Cel = Range(Adr2)
        End If
        Set Cel = Cells.FindNext(Cel)
    Loop Until Cel.Address = Adr Or Cel Is Nothing
End Sub

et surtout pour ton indulgence
Cliquez pour agrandir...

toujours, on m'appelle l'indulgent sur le forum 😉
 
Vote positif 0 Vote négatif
Re : Macro suppression de colonne si condition, sauf la première colonne

Respect môssieur l'Indulgent !!! Un grand merci pour ta réponse ça fonctionne exactement comme je le souhaitais
Serait il possible de me commenter la macro que je comprenne pourquoi je n'y arrivais pas depuis 2 jours ... j'avoue que ça commençais à me prendre la tête.
Bonne journée et au plaisir d'échanger encore avec toi sur ce forum bien sympa
Fran6
 
Vote positif 0 Vote négatif
Re : Macro suppression de colonne si condition, sauf la première colonne

Re,


Version commentée

Code: 
Sub test()
Dim Cel As Range, Adr As String, Adr2 As String
    'Recherche de la première cellule commençant par "00"
    Set Cel = Cells.Find(What:="00*", LookIn:=xlFormulas, LookAt:=xlWhole)
    'Si pas trouvé, il n'y en a pas alors c'est fini
    If Cel Is Nothing Then Exit Sub
    'sinon on note l'adresse de la 1ère trouvée
    Adr = Cel.Address
    Do
        'si la colonne de la cellule trouvée n'est pas 1 (pas A)
        If Cel.Column <> 1 Then
            'on note l'adresse de la cellule une colonne avant
            Adr2 = Cel.Offset(0, -1).Address
            'on supprime la colonne
            Cel.EntireColumn.Delete
            'On affecte la cellule Cel à la cellule une colonne avant
            Set Cel = Range(Adr2)
        End If
        'On recherche la prochaine cellule correspondant aux critères à partir de la dernière cellule trouvée
        Set Cel = Cells.FindNext(Cel)
    Loop Until Cel.Address = Adr Or Cel Is Nothing 'jusqu'à ce que la prochaine cellule ait la même adresse que la première ou qu'on ne trouve plus rien
End Sub

pour la partie

Code: 
            'on note l'adresse de la cellule une colonne avant
            Adr2 = Cel.Offset(0, -1).Address
            'on supprime la colonne
            Cel.EntireColumn.Delete
            'On affecte la cellule Cel à la cellule une colonne avant
            Set Cel = Range(Adr2)

ça a l'air un peu bizarre mais comme on supprime la colonne, Cel fait référence à une cellule qui n'existe plus, d'où la référence à cellule une colonne avant
 
Vote positif 0 Vote négatif
Re : Macro suppression de colonne si condition, sauf la première colonne

Bonjour

Une difficulté avec la macro, affichage
"erreur d'execution 91" Variable objet ou variable bloc With non définie.
Affichage de la dernière ligne de commande en surligange jaune
Merci de votre aide, je pédale grave

Dim Cel As Range, Adr As String, Adr2 As String
Set Cel = Cells.Find(What:="00*", LookIn:=xlFormulas, LookAt:=xlWhole)
If Cel Is Nothing Then Exit Sub
Adr = Cel.Address
Do
If Cel.Column <> 1 Then
Adr2 = Cel.Offset(0, -1).Address
Cel.EntireColumn.Delete
Set Cel = Range(Adr2)
End If
Set Cel = Cells.FindNext(Cel)
Loop Until Cel.Address = Adr Or Cel Is Nothing
 
Vote positif 0 Vote négatif
Re : Macro suppression de colonne si condition, sauf la première colonne

Bonjour fran6,

Là, mes pouvoirs de devin sont à leur limite
Peux-tu nous poster un fichier exemple qui provoque l'erreur ?
 
Vote positif 0 Vote négatif
Re : Macro suppression de colonne si condition, sauf la première colonne

Slt, 😉 merci de ta réactivité
Ci joint une feuille test. En fait, dans mon test de ce jour je récupère d'autres données (par rapport à hier) et je m'aprecois qu'une fois la mise en page terminée (suppression de colonne vide) il reste me une colonne vide à gauche (A). Je crois que le bug vient de là.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro suppression de colonne si condition, sauf la première colonne

Re,

Oui, en effet, difficile de lire l'adresse d'une cellule qui n'existe pas...

Essaye

Code: 
Sub index()

Dim Cel As Range, Adr As String, Adr2 As String
    Set Cel = Cells.Find(What:="00*", LookIn:=xlFormulas, LookAt:=xlWhole)
    If Cel Is Nothing Then Exit Sub
    Adr = Cel.Address
    Do
        If Cel.Column <> 1 Then
            Adr2 = Cel.Offset(0, -1).Address
            Cel.EntireColumn.Delete
            Set Cel = Range(Adr2)
        End If
        Set Cel = Cells.FindNext(Cel)
        If Not Cel Is Nothing Then
            If Cel.Address = Adr Then Set Cel = Nothing
        End If
    Loop Until Cel Is Nothing
End Sub
 
Vote positif 0 Vote négatif
Re : Macro suppression de colonne si condition, sauf la première colonne

Je m'exprime certainement mal (du probablement à mon grand âge) sur le fichier exemple je souhaites avec la macro conserver la colonne en rouge et supprimer les colonnes jaune
Désolé pour ces complications et merci de ton aide
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro suppression de colonne si condition, sauf la première colonne

Re,

Ahh, ça ?
Ah ben oui, le code ne conserve que la colonne A
Comment déterminer où elle se trouve ?
C'est toujours la première qui contient des données ?
Si non, explique la "règle" qui permettra de la déterminer
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
848
Lu76Fer
J
  • Résolu(e)
Microsoft 365 [RESOLU] VBA boucle, insertion plusieurs lignes, exécution formules, suppression sur si
Réponses
5
Affichages
845
Phil69970
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
575
fanch55
M
  • Résolu(e)
XL 2013 Macross supprimant les données de cellule en dehors d'une période définie dans deux autres cellules
Réponses
9
Affichages
807
MarineU
M
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
488
Anthony_51
A
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
873
piga25
C
  • Question Question
XL 2016 VBA Détecter la suppression de la dernière ligne d'un Tableau
Réponses
9
Affichages
729
crocrocro
C
O
  • Question Question
Autres VBA test et action selon valeur de la première cellule visible en colonne A après un tri
Réponses
8
Affichages
1 K
Oko
O
B
  • Résolu(e)
Power Query récupérer fichier excel toujours de la première à la nième colonne
Réponses
7
Affichages
811
Cousinhub
W
  • Question Question
XL 2021 Boucle copier-coller par nom d'en-tête de colonnes
Réponses
10
Affichages
887
whiteshark
W
  • Résolu(e)
XL 2019 Erreur dans ma macro
Réponses
9
Affichages
884
Nadou69
A
  • Résolu(e)
XL 2021 Boucle VBA suppression colonne si chaîne de caractère non attendue
Réponses
4
Affichages
525
Aïden
A
J
  • Résolu(e)
XL 2013 Macro et script vba : macro s'arrête dès la première condition trouvée
Réponses
11
Affichages
1 K
Janu44
J
M
  • Question Question
Microsoft 365 Colonne de la feuille 1 envoyer en une ligne sur la feuille 2
Réponses
0
Affichages
551
marcmarc
M
B
  • Question Question
XL 2016 Besoin d'une macro :création colonne+formule de test
Réponses
7
Affichages
721
bnolwalid
B
K
  • Question Question
Microsoft 365 suppression de ligne si condition (vba)
Réponses
5
Affichages
899
Dudu2
D
  • Résolu(e)
Autres Problème de séléction de la dernière colonne + Filtre [VBA]
Réponses
2
Affichages
767
delsart59
D
A
  • Question Question
XL 2016 Verrouiller automatiquement la colonne précédente après avoir modifier une cellule de la colonne suivante
Réponses
0
Affichages
511
arnoldbrice19
A
F
  • Résolu(e)
XL 2019 Effacer toute une ligne de cellules mais uniquement à l’intérieur d’un tableau
Réponses
14
Affichages
1 K
Formulatix
F
K
  • Question Question
Microsoft 365 Remplir une cellule avec la date du jour uniquement si celle-ci est vide et si la première cellule de la ligne contient quelque chose
Réponses
5
Affichages
1 K
ThierryP
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…