Au secours je m'arrache les cheveux sur du VB
Maninred7
Messages postés
116
Statut
Membre
-
Maninred7 Messages postés 116 Statut Membre -
Maninred7 Messages postés 116 Statut Membre -
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
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
Configuration: Windows XP Firefox 3.0.12
3 réponses
-
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! -
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 -
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 !
