Supprimer colonne non continue

Version imprimable

29/07/2016, 10h21
Mrfreeze117

Supprimer colonne non continue

Bonjour à tous et à toute,

J'ai un petit soucis avec ce code:

Code:

Range("A:C,E:E,H:I,M:Q,T:T").delete

C'est une erreur d'exécution 1004," la méthode Delete de la classe range a échoué"

Je pense que mon problème viens du faite que les colonnes ne sois pas contiguë.

Je n'arrive pas à trouver de solution sans supprimer chaque section séparément.

Pouvez-vous m'aider?

Merci d'avance
29/07/2016, 10h50
joe.levrai

Bonjour,

aucun problème avec cette instruction, qui supprime bien ces colonnes de la feuille active. Testé en revanche sur 2016 et 2013

prend un nouveau classeur, écris en ligne 1 un truc bidon, de la colonne A à la colonne T

exécute la ligne de code et tu es censé te retrouver avec des données uniquement sur la colonne A à H1

sinon

Code:

1
2
3
Dim lesCols As Range
Set lesCols = Union(Range("A1:C1"), Range("E1"), Range("H1:I1"), Range("M1:Q1"), Range("T1"))
lesCols.EntireColumn.Delete

29/07/2016, 11h20
Mrfreeze117

Dans un nouveau classeur cela fonction effectivement. Mais pas dans le mien :-(

Citation:

casefayere

Cela ne fonctionne pas mieux pourtant je suis bien en .xlsx

Je ne comprends pas pourquoi cela ne fonctionne pas.
29/07/2016, 11h29
unparia

Bonjour
Vérifie que l'une (une seule suffirait à provoquer l'erreur) qu'aucune des colonne concernée n'est verrouillée ou contient une cellule verrouillée.
29/07/2016, 11h37
Mrfreeze117

Non rien de verrouillé, je peux bien les supprimer une par une sans problème du moment quelles sont contiguë

Peut-être comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
 
Sub test()
    Dim s$, t$(), i&
        s = "A:C,E:E,H:I,M:Q,T:T": t = Split(s, ",")
        With ActiveSheet
            For i = UBound(t) To LBound(t) Step -1
                .Range(t(i)).Delete
            Next i
        End With
End Sub

29/07/2016, 11h55
casefayere

Citation:

Cela ne fonctionne pas mieux pourtant je suis bien en .xlsx

aucun rapport car tu prends un xlsx, tu ajoutes une macro, elle fonctionnera jusqu'à l'enregistrement, si tu enregistres en xlsx, tu perdras cette macro, de mon coté ma macro fonctionne (logique)

Citation:
Envoyé par antonysansh
Peut-être comme ça :
Code:

1 2 3 4 5 6 7 8 9 10 Sub test() Dim s$, t$(), i& s = "A:C,E:E,H:I,M:Q,T:T": t = Split(s, ",") With ActiveSheet For i = UBound(t) To LBound(t) Step -1 .Range(t(i)).Delete Next i End With End Sub
Cela revient a les supprimer une par une. Je souhaite savoir pourquoi ça ne fonctionne pas en masse, pour ma culture personnel et pas me refaire avoir une autre fois.
Mais merci quand même

29/07/2016, 12h07
antonysansh

Je sais mais si un endroit de la boucle bug, tu va savoir quelle colonne est en défaut.
29/07/2016, 12h12
Mrfreeze117

Aucun défaut n’apparaît lors de l’exécution.
29/07/2016, 12h17
casefayere

tu me surprends, envoies le fichier (le même, avec données bidon)
29/07/2016, 12h33
Mrfreeze117

Je viens de trouver.

Cela viens du fait que je travaille sur ma clé USB lorsque j'ai enregistrer sur le PC ça fonctionne.

Il y a des truc bizarre par moment.

Merci de votre aide.
29/07/2016, 12h59
Philippe Tulliez

Bonjour,

Citation:

Il y a des truc bizarre par moment.

Si tu appliquais une règle de base qui précise la filiation complète de l'objet Range (feuille, classeur-ThisWorkbook par exemple- ), tu ne devrais pas avoir de problème.
29/07/2016, 13h53
Mrfreeze117

1 pièce(s) jointe(s)

Ok merci du conseil

En faite non ça ne marche pas.

Je n'arrive pas à les supprimer même en manuel, le problème ne viens donc pas du code.

Pièce jointe 216753

je viens de voir pourquoi, ton tableau est structuré (il fallait le préciser) donc en l'état, impossible de supprimer des colonnes discontinues, seule solution que je vois actuellement, le transformer en plage normale et supprimer les colonnes quitte à le re-transformer en tableau structuré après

voilà une solution
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub supcol() Dim Dcel As Range, Dcol As Long With Sheets("Liste OS") .ListObjects("tableau1").Unlist 'mets le bon nom de tableau Dcol = .Cells(1, .Columns.Count).End(xlToLeft).Column Set Dcel = .Cells(.Rows.Count, Dcol).End(xlUp) .Range("A:C,E:E,H:I,M:Q,T:T").Delete Dcol = .Cells(1, .Columns.Count).End(xlToLeft).Column Set Dcel = .Cells(.Rows.Count, Dcol).End(xlUp) .ListObjects.Add(xlSrcRange, .Range("$A$1", Dcel), , xlYes).Name = _ "Tableau1"'ou ce que tu veux End With End Sub

01/08/2016, 10h27
Mrfreeze117

Désolé je ne sais pas ce qu'est un tableau structuré. C'est un "extrait" d'un tableau dynamique.
01/08/2016, 13h17
casefayere

Bonjour,
en cherchant un tout petit peu => http://silkyroad.developpez.com/excel/tableau/
02/08/2016, 11h20
Mrfreeze117

Merci beaucoup.