Discussion :

[spanc27]

Bonjour à tous,

Je me permets de me tourner vers vous pour un peu d'aide. J'utilise un fichier excel qui dispose d'une macro (bouton de contrôle). Cette macro permet à la feuille que j'ai constituée d'être dupliquée sur une nouvelle feuille excel en prenant le n° qui lui est donnée (il s'agit en l’occurrence de factures). CA marche très bien!

Cependant, j'aimerais reproduire ce bouton de macro sur d'autres classeurs (car c'est vraiment très pratique) mais je ne dispose de suffisamment de connaissances malheureusement et mes tentatives ont échoué.
Voici le code en question:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton1_Click()
 
Dim NFeuil As String
    If Range("G11") <> "" Then
        NFeuil = Range("G11")
        If FeuilExist(NFeuil) Then
            Sheets(NFeuil).Activate
            Exit Sub
        Else
            Sheets("Modele").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
            ActiveSheet.Name = NFeuil
 
        End If
    End If
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function FeuilExist(NomFeuil As String) As Boolean
Dim a
    FeuilExist = False
    On Error GoTo Err1
    a = Sheets(NomFeuil).Range("A1").Value
    FeuilExist = True
    Exit Function
Err1:
End Function

Quelqu'un pourrait m'expliquer comment utiliser ce bouton de commande avec cette macro dans un autre classeur svp? CA m'aiderait beaucoup.
J'espère que je ne suis pas trop brouillon dans mes explications.
D'avance merci.

[Zirak]

Bonjour,

quelles tentatives as-tu essayé et quels ont été les messages indiqués le cas échéant ?

Normalement, il te suffit d'insérer un bouton dans tes autres fichiers, de réaliser un click droit dessus => affecter une macro

un nouvel écran s'ouvre pour sélectionner la macro à affecter, la 2 cas possibles :

- La macro n'existe pas, tu click sur "nouvelle" et tu copies ce code dedans :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim NFeuil As String
 If Range("G11") <> "" Then
NFeuil = Range("G11")
 If FeuilExist(NFeuil) Then
 Sheets(NFeuil).Activate
 Exit Sub
 Else
 Sheets("Modele").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
 ActiveSheet.Name = NFeuil
 
 End If
 End If

et l'autre partie du code en dessous du 1er End Sub.



- soit tu as déjà copier ces 2 bouts de code dans un nouveau module, et tu as juste à choisir le nom de la macro dans la liste.



Après il ne te reste qu'à modifier le code en fonction de tes nouveaux fichiers (par exemple si le nom de la feuille à vérifier / générer, ne se trouve plus en cellule G11).


Sinon une petite recherche Google, qui mène directement sur le site de Microsoft :

http://office.microsoft.com/fr-fr/ex...010342137.aspx

[spanc27]

Lorsque je souhaite intégrer un contrôle active X, excel ouvre une fene^tre de dialogue pour me dire: "impossible d'insérer un objet".
Par contre, je peux insérer un contrôle de formulaire.

Comment cela se fait-il?

[casefayere]

Bonjour
Plusieurs discussions sur le sujet, regardes, entre autres ici :http://www.developpez.net/forums/d14...inserer-objet/

et ici http://www.developpez.net/forums/d14...d/#post8066977

[spanc27]

Bonjour,

Pour le contrôle active x, c'est résolu. Cependant en copiant le code dans le bouton, ça m'affiche ceci:

Erreur d’exécution '9": l'indice n'appartient pas à la sélection

Quesako?

[casefayere]

Comme je ne connais pas le code utilisé, peux-tu le publier

[spanc27]

Bon, j'ai à priori réussi à résoudre mon problème. Merci de vos interventions.

Cordialement