Discussion :

[Mrfreeze117]

Bonjour à tous et à toute,

J'ai un petit soucis avec ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[casefayere]

sinon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Mrfreeze117]

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

casefayere

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

Je ne comprends pas pourquoi cela ne fonctionne pas.

[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.

[Mrfreeze117]

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

[antonysansh]

Peut-être comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

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)

[casefayere]

tu me surprends, envoies le fichier (le même, avec données bidon)

[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.

[Philippe Tulliez]

Bonjour,

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.

[Mrfreeze117]

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.

test sup col.xlsx

[casefayere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Mrfreeze117]

Désolé je ne sais pas ce qu'est un tableau structuré. C'est un "extrait" d'un tableau dynamique.

[casefayere]

Bonjour,
en cherchant un tout petit peu => http://silkyroad.developpez.com/excel/tableau/

[Mrfreeze117]

Merci beaucoup.