Au secours je m'arrache les cheveux sur du VB

Maninred7 Messages postés 104 Date d'inscription   Statut Membre Dernière intervention   -  
Maninred7 Messages postés 104 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

3 réponses

Maninred7 Messages postés 104 Date d'inscription   Statut Membre Dernière intervention   7
 
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!
0
jjsteing Messages postés 1670 Date d'inscription   Statut Contributeur Dernière intervention   181
 
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
0
Maninred7 Messages postés 104 Date d'inscription   Statut Membre Dernière intervention   7
 
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 !
0