La methode pastespecial de la classe range a echoué

[Résolu/Fermé]
Signaler
Messages postés
8
Date d'inscription
vendredi 15 février 2013
Statut
Membre
Dernière intervention
5 janvier 2015
-
Messages postés
8
Date d'inscription
vendredi 15 février 2013
Statut
Membre
Dernière intervention
5 janvier 2015
-
Bonjour,
Alors je suis nouveau en VBA et j'ai ce message d'erreur lorsque lance mon code alors qu'auparavant quelque copié collé dans mon code, celui-ci fonctionnais
Pourriez vous m'éclairez de vos précieux conseils
Désolé pour la présentation, je ne connais pas beaucoup la présentation

Voila l'origine de mon problème

Range("A6:L61").Select
Selection.Copy
Sheets("Fiche de présentation").Select
Range("B16:K16").Select
Selection.Font.Underline = xlUnderlineStyleSingle

Dim r As Integer
Dim m As Integer
m = 1
r = m + 1

While Range("A" & m).Value = 1 And Not (Range("D" & r) = code)
m = m + 56
Wend

Range("A" & m).Select
Selection.pastespecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Lorsque je consulte le débogeur c'est les deux dernières lignes qui sont en jaune

Merci pour vos réponses

2 réponses

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 175
Bonjour,
Quel est le N° et le libellé de l'erreur ?
Et si possible, dépose ton classeur (sans donnée confidentielle) sur https://www.cjoint.com/ par exemole.
A+
Messages postés
8
Date d'inscription
vendredi 15 février 2013
Statut
Membre
Dernière intervention
5 janvier 2015

Merci pour la réponse mais j'ai trouvé mon erreur qui consistait à effacer la ligne concerné : Selection.Font.Underline = xlUnderlineStyleSingle