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

Button de commande

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

JoelleN

Guest
Bonjour,

Voila mon petit code pr un button de commande qui se retrouve dans un fichier 'joelle" en pièce jointe. En gros ce button devra me permettre de copier tout les feuilles du fichier "Essaiclient "commencant par "Client_"
Après compilation il m'affiche un message d'erreur : l'indice n'appartient pas à la séléction. je ne comprends pas pourquoi???


Merci pr votre aide, j'en ai vraiment besoin...
Private Sub CommandButton1_Click()

Mycount = Workbooks("EssaiClient").Worksheets.Count


For i = 1 To Mycount
If Workbooks("EssaiClient").Worksheets(i).Application.Name = "client_" Then

Workbooks("EssaiClient").Worksheets(i).Copy After:=Test
End If

Next i

End Sub
 

Pièces jointes

Trier par date Trier par votes
Re : Button de commande

bonjour Joëlle,

Où veux-tu copier les feuilles? Dans un autre classeur je suppose! est-ce celui qui contient la macro?

si oui:

Code: 
Mycount = Workbooks("EssaiClient").Worksheets.Count


For i = 1 To Mycount
If left(Workbooks("EssaiClient").Worksheets(i).Name,7)= "client_" Then

Workbooks("EssaiClient").Worksheets(i).Copy After:=ThisworkBook.Sheets("Test")
End If

Next i

A bientôt
 
Vote positif 0 Vote négatif
Re : Button de commande

bonjour hasco,

En effet je veux copier mes feuilles dans le fichier "Joelle" que j'ai mis en pièce jointe dans mon premier message. j'ai essayé ton petit code, j'ai toujours le meme message d'erreur...

Merci kan meme
 
Vote positif 0 Vote négatif
Re : Button de commande

Bonjour JoelleN

Teste ceci

Code: 
Private Sub CommandButton1_Click()
      Mycount = Workbooks("EssaiClient").Worksheets.Count
    For i = 1 To Mycount
        If Left(Workbooks("EssaiClient").Worksheets(i).Application.Name, 7) = "client_" Then
            Workbooks("EssaiClient").Worksheets(i).Copy After:=Sheets(Sheets.Count)
        End If
    Next i
End Sub

Sous reserve qu'il existe un fichier ouvert du nom de "EssaiClient"
Et si ce fichier a été enregistré change
EssaiClient par EssaiClient.xls

Edit salut Hasco 🙂
 
Vote positif 0 Vote négatif
Re : Button de commande

Un grand merci pour vous, CA MARCHE 😀. Je suis toute contente.
Par contre j'ai pas trop compri cette ligne de code?????
If Left(Workbooks("EssaiClient").Worksheets(i).Application.Name, 7)
 
Vote positif 0 Vote négatif
Re : Button de commande

Re bonjour Joëlle, PierreJean😉

@Joëlle ton message d'erreur signifie que soit c'est le classeur qui n'existe pas soit la feuille qui est en cours de copie.

Dans ton Premier message tu parles de feuilles commençant par "Client_" et dans la ligne de code du même message tu as 'client_" (sans majuscule)
cela peut provenir de cette erreur de frappe.

Edition: Left(????,7) renvoie les sept premiers caractères de la chaine passée en paramètre à la fonction Left. Ici le nom de la feuille.

A bientôt
 
Dernière modification par un modérateur:
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Y
  • Résolu(e)
XL 2019 Compter le nb de Fichier dans un dossier afin de créer une nouvelle version
Réponses
2
Affichages
550
youguybass
Y
M
  • Question Question
XL 2013 Bouton commande ne fonctionne pas
Réponses
7
Affichages
659
midovic
M
M
  • Résolu(e)
XL 2016 Amélioration de code
Réponses
3
Affichages
885
M@xu3L
M
A
  • Résolu(e)
XL 2010 Renomer copie de feuilles multiple
Réponses
5
Affichages
470
sylvanu
A
  • Question Question
XL 2016 Boucle sur sous répertoire fso.GetFolder SharePoint
Réponses
0
Affichages
1 K
Aldonanou
A
M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
1 K
Oneida
A
  • Question Question
Microsoft 365 Copier/coller en boucle avec un nb variable de ligne
Réponses
4
Affichages
1 K
A-F
A
G
  • Résolu(e)
XL 2019 [Résolu] VBA inputbox sélection d'une plage de cellulle
Réponses
2
Affichages
1 K
grodep
G
L
  • Question Question
XL 2019 Erreur 1004 méthode 'SaveAs' de l'objet '_Workbook' a échoué
Réponses
13
Affichages
2 K
Dranreb
T
  • Question Question
Renommer les doublons
Réponses
3
Affichages
937
Tickaff
T
K
  • Résolu(e)
XL 2019 Copier Seulement les lignes affichée après un filtre de tableau
Réponses
9
Affichages
2 K
Kushi
K
T
  • Résolu(e)
XL 2016 Erreur vba lors de l'enregistrement de plusieurs feuilles excel
Réponses
2
Affichages
950
tikazor
T
B
  • Question Question
XL 2019 Macros renommer plusieurs feuilles de plusieurs fichiers Excel
Réponses
3
Affichages
2 K
Bastien43
B
B
  • Résolu(e)
Microsoft 365 Choisir l'emplacement de la duplication de l'onglet
Réponses
2
Affichages
715
Bender56
B
C
  • Question Question
XL 2019 Je rencontre une erreur 9 : "L'indice n'appartient pas à la sélection"
Réponses
3
Affichages
1 K
chris4785478547
C
N
  • Question Question
Autres Incorporer date dans mail via userform calendrier
Réponses
0
Affichages
822
nouun
N
C
  • Résolu(e)
Microsoft 365 SI remplissage cellule (MFC) ALORS transposer la réponse dans une colonne
Réponses
3
Affichages
2 K
Chaine
C
C
  • Résolu(e)
XL 2016 Condition en fonction du nom du fichier
Réponses
6
Affichages
1 K
Hogwarts
H
S
  • Résolu(e)
Microsoft 365 automatiser macro pour copier/coller des données d´un classeur à un autre et sauver à chaque fois le classeur rempli
Réponses
8
Affichages
5 K
sevenkingdom
S
P
  • Question Question
XL 2019 Bloc if sans End If
Réponses
3
Affichages
1 K
Pounet95
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…