Pb selection qui se superpose

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

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

Citation:

---

Envoyé par 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+

---

ci join le bout de code

Code:

---

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 )

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

Code:

---

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+

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

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 !!!:bebe:

Code:

---

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

---