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

Problème de macro

Créer une discussion

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

speedtriple

XLDnaute Junior
Bonjour,

Je suis à la recherche d’une macro pour faire une copie d’un tableau X d’une feuille d’un classeur dans un autre tableau Y avec une mise en page différente sur une autre feuille du même classeur.
La mise en page de mon tableau Y n’est pas définitive, je suis juste au essai. Mon but est au faire à mesure des années, il me suffira de remplir un textbox pour définir quelle année je veux mettre dans mon calendrier (tableau Y).
Un userform est ouvert via le bouton 4, et dans cet userform, je dois rentrer le nom du tableau que je souhaite coller dans mon tableau Y. Le nom du tableau est le nom de la feuille.

Mon problème est que je n’arrive pas à copier/coller de tableau à tableau via une macro (bouton 6). Je ne comprends pas car elle bloque sur l’action selection.copy.
Et je n’ai pas réussi à trouver le code pour lui envoyer le nom inscrit dans le textbox dans ma macro .

Ci-joint, mon fichier exemple.

Merci pour votre aide.
 
Dernière édition:
Trier par date Trier par votes
Re : Problème de macro

Bonjour SpeedTriple,

voici la macro corrigée, sans select, cela devrait aller plus vite (3 fois?😉)

Appelée sur évènement click du commandbutton:

Code: 
Private Sub CommandButton1_Click()
If TextBox1.Text <> "" Then Macro5 TextBox1.Text
End Sub

Code: 
Sub Macro5(NomFeuille As String)
'
' Macro5 Macro
' Macro enregistrée le 25/08/2008 par Fabs
'
    Dim sh As Range
    On Error Resume Next
    Set sh = ThisWorkbook.Sheets(NomFeuille)
    On Error GoTo 0
    If sh Is Nothing Then
        MsgBox "La feuille ' " & NomFeuille & "' est introuvable.", vbExclamation, "MAcro5"
        Exit Sub
    End If
    sh.Range("B2:D32").Copy
    Sheets("Mini").Range("A2").PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    sh.Range("E2:G30").Copy
    Sheets("Mini").Range("E2").PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    sh.Range("H2:J32").Copy
    Sheets("Mini").Range("I2").PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    sh.Range("K2:M31").Copy
    Sheets("Mini").Range("M2").PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    sh.Range("N2:P32").Copy
    Sheets("Mini").Range("Q2").PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    sh.Range("Q2:S31").Copy
    Sheets("Mini").Range("U2").PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
End Sub

A bientôt
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Problème de macro

Bonjour le fil, bonjour le forum,

Hasco, que je tape 2008 ou 2009 la variable sh me renvoie Nothing et donc j'ai toujours le message "Feuille introuvable"... Je ne comprends pas ???
 
Vote positif 0 Vote négatif
Re : Problème de macro

Bonjour,

Autant pour moi🙄,

Il faut remplacer la ligne

Code: 
Dim sh As Range
par:

Code: 
Dim sh As Worksheet

En tête de macro.

A bientôt
 
Vote positif 0 Vote négatif
Re : Problème de macro

Bonjour le fil, bonjour le forum,

Ben oui ! Pourtant je lisais et relisais le code sans comprendre... Évidemment ça ne m'est pas venu à l'esprit. Merci.
 
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

C
  • Résolu(e)
XL 2016 Macro permettant d'automatiser le tri d'un tableau Excel et de différencier les lignes
Réponses
5
Affichages
251
Chris1263
C
M
  • Résolu(e)
Microsoft 365 $ Macro pour copier un exemple et$.....
Réponses
9
Affichages
521
sousou
  • Résolu(e)
Microsoft 365 Macro de tri
Réponses
2
Affichages
242
Phil Du59
M
  • Résolu(e)
XL 2021 Copier le texte d’une cellule
Réponses
9
Affichages
663
sylvanu
M
  • Résolu(e)
XL 2021 Fonction pour rechercher des données, puis à reporter dans une 2ème feuille avec 1 critère
Réponses
13
Affichages
379
job75
B
  • Question Question
XL 2016 Macro "Double-clic + Entrée"
2
Réponses
16
Affichages
403
job75
  • Question Question
XL 2019 Recherche d'une cellule avec 2 produits
Réponses
4
Affichages
140
sylvanu
  • Résolu(e)
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
6
Affichages
769
SAMUAL_2023
S
C
  • Résolu(e)
Microsoft 365 ajouter un lien dans une colonne
Réponses
5
Affichages
144
sylvanu
C
  • Résolu(e)
Microsoft 365 bouton pour un userform
Réponses
14
Affichages
590
C'est Génial
C
F
  • Question Question
Microsoft 365 Remplir des cellules automatiquement
3 4 5
Réponses
65
Affichages
2 K
Fanny53
F
D
  • Question Question
XL 2016 enregistrement feuille excel directement sur le drive par l'intermédiaire d'un bouton
Réponses
9
Affichages
780
fanch55
C
  • Résolu(e)
XL 2021 Reporter la valeur d'une cellule dans le pied de page.
2
Réponses
17
Affichages
307
sylvanu
D
  • Question Question
Microsoft 365 problème d'index
2
Réponses
19
Affichages
498
dad621
D
  • Question Question
Microsoft 365 Macro vba envoi par mail
Réponses
9
Affichages
305
Nain porte quoi
D
  • Résolu(e)
XL 2019 Report valeur et mise en couleur
Réponses
9
Affichages
224
DST
D
M
  • Résolu(e)
XL 2021 Verrouillage de cellules après exécution d'une macro
2
Réponses
23
Affichages
1 K
MATLEA
M
Y
  • Question Question
XL 2019 macro pour dupliquer un tableau
Réponses
3
Affichages
562
Yogean
Y
D
  • Question Question
XL 2021 Problème de macro
Réponses
5
Affichages
250
Didierpasdoué
D
  • Résolu(e)
XL 2010 Création de listes déroulantes interactive
6 7 8
Réponses
113
Affichages
5 K
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…