Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

la methode pasteSpecial de la classe Range a echoue

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion djedje13
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

djedje13

XLDnaute Nouveau
bonjours a tous

depuis quelque jours j'essai de faire quelques petit programme pour apprendre
la je butte sur une erreur d'execution '1004'
voici mon programme pouriez vous m'aider merci

Code: 
Sub transpose_dans_tableau()

'modifier par gerald le 17/04/07

'attendre le formulaire et mémoriser les données
Sheets("formulaire" ).Select
Range("b1:b4" ).Select
Selection.Copy
'oter protection feuille + deverouillage cellule
    Sheets("Base de donnée" ).Select
    ActiveSheet.Unprotect Password:="mon_code"
    Columns("A:D" ).Select
'Test pour déterminer la ligne ou coller les infos dans tableau
Sheets("Base de donnée" ).Select
valeurA2 = Range("A2" ).Value
If valeurA2 = "" Then
Range("A2" ).Select
Else
Range("A1" ).Select
Selection.End(xlDown).Select
ligne_active_base = ActiveCell.Row
Range("A" & ligne_active_base + 1).Select
End If
'Memorise le N° de la ligne ou coller les données
ligne_active_base = ActiveCell.Row
'collage avec transposition
Range("A" & ligne_active_base).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
'verroillage + protection base de donner
Sheets("Base de donnée" ).Select
    Columns("A:D" ).Select
    ActiveSheet.Protect Password:="mon_code"
'rendre vierge le formulaire
Sheets("formulaire" ).Select
Range("B2:B4" ).Select
Selection.ClearContents
Range("B2" ).Select

End Sub

quand j'active la macro mon probleme survient 1 fois sur 2 si quelqu'un a une idée de mon probleme

je vous en remerci
 
Trier par date Trier par votes
Re : la methode pasteSpecial de la classe Range a echoue

Salut,

Il faudrait que tu mettes en ligne un bout de ton fichier !

Sinon comme ça c'est difficile à dire 😉
 
Vote positif 0 Vote négatif
Re : la methode pasteSpecial de la classe Range a echoue

Salut DjeDje13,

Ton problème vient du fait que tu déprotège ta feuille "base de donnée" après avoir éffectué la copie

Fait le test manuellement :
1) tu copies les cellules B1 à B4
2) Tu déprotège ta feuille "base de donnée"
Maintenant essayes de coller les données copiée !?

Ton code devra être
Code: 
'oter protection feuille + deverouillage cellule EN PREMIER
Sheets("Base de donnée").Select
ActiveSheet.Unprotect Password:="code"
Columns("A:D").Select
'attendre le formulaire et mémoriser les données EN SECOND
Sheets("formulaire").Select
Range("b1:b4").Select
Selection.Copy
'Test pour déterminer la ligne ou coller les infos dans tableau
...

Voilà 😉
 
Vote positif 0 Vote négatif
Re : la methode pasteSpecial de la classe Range a echoue

Bonsoir,

J'ai simplifié un peu le code.
On peut eviter plein de Select inutiles 🙂
L'objectif est de copier les données à la suite dans la base ?
Normalement, ca doit faire la meme chose que le tien.
Ce qui plante, c'est le fait de copier avant d'enlever la protection.
(Ca annule la copie)
Il faut donc inverser les lignes.
Sinon, je n'ai pas compris pourquoi tu copies B1:B4 et à la fin tu effaces B2:B4 ?!

voir le fichier joint.

Sub transpose_dans_tableau()
Sheets("Base de donnée").Unprotect Password:="mon_code"
Sheets("formulaire").Range("B1:B4").Copy
Sheets("Base de donnée").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Transpose:=True
Sheets("Base de donnée").Protect Password:="mon_code"
Sheets("formulaire").Range("B2:B4").ClearContents
End Sub

>> Bonsoir Bruno
>> Petite collision 🙂
 

Pièces jointes

Vote positif 0 Vote négatif
Re : la methode pasteSpecial de la classe Range a echoue

Salut Catrice,

Je vois que tu as fait le travail, effectivement on pouvait allègrement simplifié le code 😉

Mais est-ce que DejDje13 va s'y retrouver !?
 
Vote positif 0 Vote négatif
Re : la methode pasteSpecial de la classe Range a echoue

je selection b1:b4

et a la fin j'efface de b2:b4 parce que b1 et automatique now
il y a ma formule dedans qui s'active par rapport a b2

=SI(NBVAL(B2)>0;Datation();"")

pour tous le reste j'essai je vous tien au courant

en tous cas merci boucoup

gerald
 
Vote positif 0 Vote négatif
la methode pasteSpecial de la classe Range a echoue [resolu]

ca fait que 3 4 jours que je me suis mis au vba

il y avait beaucoup action pour rien parce que j'avais compilé plusieur enregistrement de macro

j'ai compris tous se que vous m'avez conseiller

j'ai juste a dire que vous ete impressionant

merci beaucoup a vous deux

gerald😀
 
Vote positif 0 Vote négatif
Re : la methode pasteSpecial de la classe Range a echoue

Re,

Je n'avais pas vu la cellule B1.
Je l'ai modifiée pour éviter de faire appel à une Function.
J'ai mis une condition sur le code pour qu'il ne remplisse la base que s'il y a des données.

Si ce n'est pas clair n'hésite pas à revenir ...
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Résolu(e)
XL 2013 méthode pastespecial de la classe range a échoué
Réponses
3
Affichages
1 K
Joujita31
J
C
  • Question Question
Microsoft 365 VBA erreur impossible de lire la propriete pastespecial de la classe range
Réponses
2
Affichages
1 K
Catsnroses
C
C
  • Résolu(e)
Microsoft 365 La méthode PasteSpecial de la classe Range a échoué
Réponses
8
Affichages
4 K
comardud
C
A
  • Question Question
La méthode select de la classe range a échoué
Réponses
1
Affichages
2 K
Staple1600
  • Question Question
[RESOLU] : Erreur : "La méthode pastespecial de la classe range a échoué"
Réponses
9
Affichages
2 K
joedu31
  • Question Question
XL 2013 [résolu]insérer une recherche et une message box dans une macro existante
Réponses
13
Affichages
1 K
Papou-net
C
  • Question Question
problèmes de macro pour filtres avancés
Réponses
6
Affichages
2 K
christophedb
C
D
  • Question Question
La méthode select de la classe Range à échoué
Réponses
3
Affichages
997
Robert
R
  • Question Question
Erreur exécution '1004' Macro VBA [la méthode Autofilter de la classe Range a échoué]
Réponses
3
Affichages
10 K
Orodreth
O
C
  • Question Question
Erreur 1004 : la methode pastespecial de la classe range à échouée
Réponses
4
Affichages
4 K
chill
C
G
  • Question Question
Macro récupération de données
Réponses
6
Affichages
1 K
GHITZI
G
S
  • Question Question
enregistrer un formulaire, erreur 400
Réponses
5
Affichages
2 K
Softmama
S
R
  • Question Question
Erreur d'execution 1004 "la methode select de la classe range a echoué
Réponses
2
Affichages
1 K
romain1708
R
M
  • Question Question
Formulaire/Base de données
Réponses
3
Affichages
2 K
matnav
M
I
  • Question Question
Help - Erreur 400
2
Réponses
28
Affichages
3 K
kjin
K
R
  • Question Question
Calendrier, décalage de date + effacer l'heure...
Réponses
2
Affichages
2 K
Gorfael
D
  • Question Question
Erreur d'exécution 1004 - Methode select classe range a échoué
Réponses
6
Affichages
9 K
domduf33
D
H
  • Question Question
Aide sur Macro
Réponses
12
Affichages
2 K
liloo972
L
P
  • Question Question
pb range.select
Réponses
2
Affichages
2 K
phili
P
R
  • Question Question
Probleme Deactivate et la methode select de la classe range qui echoue
Réponses
3
Affichages
2 K
Rootdown
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…