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

la méthode activate de la classe range à échouée

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion pascal21
  • 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

pascal21

XLDnaute Barbatruc
bonsoir à tous
j'ai un bouton sur la feuille "Totaux du mois" qui active entre-autre la macro suivante
Code: 
Sheets("Totaux du mois").SelectRange("a53:p53").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("analyse").Select
    Range("a65536").End(xlUp).Offset(1, 0).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

y a en un truc que je ne comprends pas dans ce code qui habituellement fonctionne très bien pour recopier des lignes dans un tableau
j'ai l'erreur:
la méthode activate de la classe range à échouée
Cliquez pour agrandir...
😕
qu'est-ce qui cloche?
y a pas de protection sur les 2 feuilles
faut-il continuer à mettre pour excel 2007 "a65536" ou le nombre de lignes réelles (que je ne connais pas exactement)
merci

edit:
je viens de mettre le code dans un module (c'est mieux puisque le code gère 2 feuilles différentes)
maintenant ça copie bien dans la feuille analyse mais j'ai l'erreur 1004
la méthode select de la classe range à échouée
Cliquez pour agrandir...
 
Dernière édition:
Trier par date Trier par votes
Re : la méthode activate de la classe range à échouée

Bonsoir Pascal21

Tu peux également, éviter les Select et autre Activate par
Code: 
Sheets("Totaux du mois").Range("a53:p53").Copy
Sheets("analyse").Range("a65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, _
    Operation:=xlNone, SkipBlanks:=False, Transpose:=False

A+
 
Vote positif 0 Vote négatif
Re : la méthode activate de la classe range à échouée

bonjour Bruno
merci pour cette précision
mais qu'apporte réellement la suppression des select et des activate dans un code?
rapidité? moins de risque d'erreurs?
petite question
sur ce genre de ligne de code assez longue
on voit très souvent pour ne pas dire tout le temps le _ qui permet le retour à la ligne du code
est-ce uniquement pour un confort de lecture? ou alors le VBA l'impose t'il?
si c'est comme je le pense, pour un confort de lecture, peut-on le mettre où l'on veut dans le code ou est-ce imposé?
merci
 
Vote positif 0 Vote négatif
Re : la méthode activate de la classe range à échouée

Re,

pascal21 à dit:
qu'apporte réellement la suppression des select et des activate dans un code?
rapidité? moins de risque d'erreurs?
Cliquez pour agrandir...
La rapidité, c'est indéniable
Moins de risque d'erreurs, c'est certain, si le codage est fait comme il faut
A savoir : ObjetConteneur.ClasseObjet.Méthode

pascal21 à dit:
petite question, sur ce genre de ligne de code assez longue
on voit très souvent pour ne pas dire tout le temps le _ qui permet le retour à la ligne du code
est-ce uniquement pour un confort de lecture? ou alors le VBA l'impose t'il?
Cliquez pour agrandir...
VBA n'impose pas me semble t'il ce genre de chose
C'est simplement pour une meilleure lisibilité à l'écran, donc tout dépend de la taille de l'écran

Ceci n'est que mon avis 😉
 
Vote positif 0 Vote négatif
Re : la méthode activate de la classe range à échouée

Bonjour pascal21, BrunoM45 🙂
Si il s'agit de transférer uniquement des valeurs, il est peut être préférable, et plus rapide, de ne pas copier.
VB: 
Sheets("analyse").Range("a65536").End(xlUp).Offset(1, 0).Resize(, 16).Value = _
Sheets("Totaux du mois").Range("A53:P53").Value
Cordialement
 
Vote positif 0 Vote négatif
Re : la méthode activate de la classe range à échouée

bonjour efgé
il me semble, mais je peux me tromper, que ton code recopie aussi le format de la feuille source
ce qui n'est pas toujours désiré
j'ai voulu mettre ton code Bruno
mais je me suis heurté à un "activesheet unprotect" pour la feuille("totaux du mois") (qui n'apparait pas sur mon 1er post) que je ne sais pas où mettre, du coup!!
 
Vote positif 0 Vote négatif
Re : la méthode activate de la classe range à échouée

Re
pascal21 à dit:
il me semble, mais je peux me tromper, que ton code recopie aussi le format de la feuille source ce qui n'est pas toujours désiré
Cliquez pour agrandir...
Non, non.
Le code ne transfert que les valeurs (Les valeurs de la plage d'arrivée sont égales aux valeurs de la plage de départ)
Cordialement
 
Vote positif 0 Vote négatif
Re : la méthode activate de la classe range à échouée

re Efgé
je ne sais pas si il est plus rapide à l'exécution en tout cas c'est plus rapide à écrire et à rectifier si besoin est
j'adopte
merci
j'ai trouvé pour la protection des feuilles
 
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

M
  • Question Question
XL 2019 La méthode select de la classe range a échoué
Réponses
4
Affichages
143
job75
  • Résolu(e)
XL 2019 Renvoyé à la ligne suivante si la ligne demandé n'est pas libre
Réponses
9
Affichages
149
Phil69970
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
280
AtTheOne
A
  • Question Question
XL 2019 la méthode AutoFilter de la classe range a échoué
Réponses
5
Affichages
388
Phil69970
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
269
sylvanu
T
  • Question Question
XL 2016 Erreur d'exécution 1004 : Impossible de définir la propriété Hidden de la classe Range
Réponses
3
Affichages
443
Phil69970
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
659
robpellan52
R
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
P
  • Question Question
XL 2016 Compteur avec incrémentation de la ligne suivante
Réponses
11
Affichages
319
Pascal THIDET
P
J
  • Résolu(e)
XL 2013 méthode pastespecial de la classe range a échoué
Réponses
3
Affichages
1 K
Joujita31
J
X
  • Question Question
XL 2016 Copier à partir de la dernière ligne renseignée.
Réponses
8
Affichages
727
Xender
X
D
  • Question Question
Microsoft 365 Application.WorksheetFunction.VLookup ne fonctionne pas au delà de 8500 lignes
Réponses
4
Affichages
675
DimiJuju
D
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
1 K
mouchtre
O
  • Question Question
XL 2010 aide sur code VBA collationnement de données
Réponses
10
Affichages
797
olivier388
O
B
  • Question Question
Microsoft 365 Erreur code VBA Excell à partir de la 5ème boucle avec ActiveSheet.Paste
Réponses
1
Affichages
505
Staple1600
R
  • Question Question
XL 2021 Erreur d'exécution '-2147417848 (80010108). La méthode '-Default' de l'objet 'Range' a échoué après quelques saisies d'enregistrement
2
Réponses
23
Affichages
3 K
Rv_38
R
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
  • Résolu(e)
XL 2021 Affecter la valeur "ok" en colonne "F" uniquement sur les lignes visibles
Réponses
6
Affichages
597
Usine à gaz
D
  • Question Question
XL 2010 La méthode Delete de la classe Range a échoué
Réponses
3
Affichages
1 K
Dranreb
W
  • Question Question
XL 2021 Boucle copier-coller par nom d'en-tête de colonnes
Réponses
10
Affichages
720
whiteshark
W
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…