La methode pastespecial de la classe range a echoué
Résolu
MP202013
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
MP202013 Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
MP202013 Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- La méthode select de la classe range a échoué
- L'accès a la carte sd a échoué 3ds - Forum Jeux vidéo
- Méthode Select de la classe Range ✓ - Forum VB / VBA
- La méthode range de l'objet _global a échoué ✓ - Forum VB / VBA
- Ajoutez à la liste de contacts ana le goff, inscrite le 27 novembre 2015, dans la catégorie i. puis triez les contacts en les classant : par ordre alphabétique de leur nom de famille (critère principal), puis par date du plus récent au plus ancien (critère secondaire). quel mot apparaît à la verticale dans la colonne "catégorie" entre les lignes 200 et 209 (en-tête compris) ? ✓ - Forum Word
- Input signal out of range - Forum Ecran
2 réponses
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+
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+
