Discussion :

[Yannv]

bonjour , je file la main a une copine sur un projet VBA et je connais pas , je fais du vb

mon pb .. je selectionne plusieur colonne afin de les supprimer mais le log me dis "impossible selection se superpose"
affectivement la case A1 est selectionne comme si il y avait eu un ctrl clik
comment faire pour supprimer cette selection ..

merci d avance

YaNn

[ouskel'n'or]

Peux-tu montrer ton code ?
Autre question : Dans les colonnes à supprimer, des cellules sont-elles fusionnées avec des collonnes à ne pas supprimer ?
A+

[Yannv]

Peux-tu montrer ton code ?
Autre question : Dans les colonnes à supprimer, des cellules sont-elles fusionnées avec des collonnes à ne pas supprimer ?
A+

ci join le bout de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Sheets("dev").Select
    Rows("1:1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
    ' supprime les colonnes
 
 
     Range("A:A,B:B,C:C,E:E,F:F,G:G,I:I,J:J,Q:Q,R:R,S:S,T:T,U:U,W:W,X:X,Z:Z,AA:AA,AB:AB,AC:AC,AD:AD,AF:AF,AG:AG,AH:AH,AI:AI,AJ:AJ,AK:AK:AL:AL,AM:AM,AN:AN").Select
 
  Selection.Delete Shift:=xlToLeft

aucun fusion cette feuille est un copier coller d une autre .. je supprime ce que je veux pas et je reinjecte dans une feuille mise en forme

Je vois que mon probleme viens de la case A1 qui est deja selectionnée mais pas comme qd tu fais un simple click dessius ( encadrée en gras ) mais comme qd tu fais un Ctrl clik dessus ( encadrée en simple )

[ouskel'n'or]

Comme ton code fonctionne chez moi sans le Paste, je pense que ça vient de là. Templace tes lignes par

Code :

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

1
2
3
     Sheets("dev").Cells(1,1).PasteSpecial Paste:=xlPasteValues
     DoEvents 'laisse au système le tps de coller les lignes
     Sheets("dev")Range("A:A,B:B,C:C,E:E,F:F,G:G,I:I,J:J,Q:Q,R:R,S:S,T:T,U:U,W:W,X:X,Z:Z,AA:AA,AB:AB,AC:AC,AD:AD,AF:AF,AG:AG,AH:AH,AI:AI,AJ:AJ,AK:AK:AL:AL,AM:AM,AN:AN").Delete

A+

[Singular]

Je comprend mal l'utilité de ce code vu qu'il supprime ce qui vient d'être collé...

Mais, bon! Pour la forme, je nettoie un peu en enlevant toutes les sélection superflues et en remaniant l'adressage de la plage ...

Si c'est pas bon, que quelqu'un me corrige !!!

Code :

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

1
2
3
4
5
6
7
    Dim sAdresses As String
 
    Sheets("dev").Cells(1, 1).PasteSpecial Paste:=xlPasteValues
 
    ' supprime les colonnes
    sAdresses = "A1:AN" & CStr(Sheets("dev").Rows.Count)
    Range(sAdresses).Delete Shift:=xlToLeft