Astuces Excel
  1. Astuces Excel
  3. Erreur d'exécution Excel copyr et coller
Intereting Posts
Pouvez-vous utiliser des formules Excel sur datatables de rapport? Solver pour exécuter la régression logistique en utilisant VBA export javascript table pour excel ou pour console table Commentaire Excel tronqué pendant la lecture Power Query n'importait aucun file d'access Définissez les valeurs dans une colonne R en fonction de valeurs dans trois autres colonnes La mise à jour ne fonctionne pas Excel VBA Programmation Excel: exception de HRESULT: 0x800A03EC. à Microsoft.office.Interop Comment contrôler une cellule spécifique de XL? Bouclez toutes les feuilles, si cellule = string, copyz trois cellules sur une feuille spéciale Affichage Excel différent de la valeur Excel count unique en gamme si Excel – Comment countr les cellules avec des conditions relatives Comment résumer les valeurs des colonnes uniquement dans la relation 2 voies sur un count unique (exemple de vérification) Erreur 1004 lors de la suppression d'une ligne dans Excel à l'aide de vba

Erreur d'exécution Excel copyr et coller

J'ai créé un carnet de travail qui imite le jeu yahtzee pour un projet. Grâce à une macro, je l'ai fait pour que vous puissiez bash un button pour copyr et coller un groupe de 9 cellules qui ressemblent au visage des dés. Tout semble fonctionner bien, mais randomment, j'aurai une erreur d'exécution 1004. Je n'ai pas écrit le code simplement parce que je ne suis pas encore à ce niveau. J'ai plusieurs buttons différents qui font la même copy et colle, mais ce n'est pas toujours le même qui me donne l'erreur. Voici une copy de celui-ci. J'apprécierais tout type d'aide à ce sujet. 

Sub Hold4() ' ' Hold4 Macro ' ' Selection.Copy Range("N10").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False With Selection.Font .Name = "Wingdings 2" .Size = 28 .Ssortingkethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontNone End With Range("N2:P4").Select With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With With Selection.Font .ThemeColor = xlThemeColorDark1 .TintAndShade = 0 End With End Sub

Voici la section qui est mise en évidence dans l'erreur … 

 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

Essayez d' éviter l'utilisation de .Select et utilisez les variables à la place: 

 Sub Hold4() Dim myRng As Range Set myRng = Selection myRng.Copy Range("N10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False With myRng.Font .Name = "Wingdings 2" .Size = 28 .Ssortingkethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontNone End With With Range("N2:P4") With .Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With With .Font .ThemeColor = xlThemeColorDark1 .TintAndShade = 0 End With End With End Sub