Au secours je m'arrache les cheveux sur du VB Fermé

Question

Bonjour,

je ne trouves pas pourquoi cette foutue macro ne veut pas fonctionner, elle plante sur le collage spécial...

Range("K1").Select
    Selection.Copy
    Sheets("BdD_Repas").Select
    Selection.AutoFilter Field:=7, Criteria1:="="
    Range("A1").Select
   ' Selection.End(xlDown).Select
   '  Do Until IsEmpty(Selection.Offset(1, 0))
   '     Selection.Offset(0, 7).Select
   
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Selection.Offset(0, -7).Select

pour lequel Excel me dit que la méthodePasteSpécial de la classe range à échoué...

un grand merci à qui pourra me sortir de cette impasse
Cordialement

Maninred7 · Answer

Je ne comprend pas je me mets en mode enregistrement de macro.... je sélectionne ma cellule source, je fais copier, je me déplace vers ma feuille et ma cellule destination... je fais collage spécial : valeur... et tout fonctionne. Je stop la macro.

Je vais dans l'éditeur VB pour reprendre le code ainsi généré et le coller dans ma propre séquence à réaliser et là si je me fais un mode pas à pas il me plante ma macro sur le collage spécial .... !!!!!! ?????

What's up ! Doc!

jjsteing · Answer

Bonjour,

si tu met tout à false, pourquoi un collage spécial alors?? vu que tu ne veux que la valeur apparement =>

Selection.PasteSpecial Paste:=xlPasteValues 

ou

Selection.Paste

Maninred7 · Answer

Effectivement les options avec False sont inutiles... mais ne sont pas à l'origine de l'anomalie, j'ai essayé la version toute simple que tu me décrit... idem !

Au secours je m'arrache les cheveux sur du VB

3 réponses

Discussions similaires