Discussion :

[cellela]

bonjour,

Je viens de créer un ruban personnalisé avec CustomUIEditor en suivant le tutorial et tout fonctionne parfaitement.
Une de mes macros créée de nouveaux onglets automatiquement et j'aimerai que ces onglets soient visibles dans le ruban après l'exécution de la macro, mais je n'ai pas réussi à le faire.

Voici le code de mon ruban:

Code xml :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="false">
<tabs>
 
<tab id = "SFH" label="SFH" insertAfterMso="TabAddIns">
 
	<group id="divers" label="Accueil">
	<button id="accueil" label="Aller à l'accueil" onAction="B01" size="large" imageMso="BlogHomePage" />
	</group>
 
	<group id="DonneesMontage" label="Données Montage">	
	<button id="Donnees" label="Données Montage" onAction="B02" size="large" imageMso="TableStyleClear" />
	<button id="Aleas" label="Liste des Aléas" onAction="B010" size="large" imageMso="HighImportance" />
	</group>
 
	<group id="Syntheses" label="Synthèses">
	<button id="SyntheseManu" label="Synthèse Manuelle" onAction="B03" size="large" imageMso="DefaultView"/>
	<button id="SynthesAuto" label="Synthèse Auto" onAction="B04" size="large" imageMso="DefaultView"/>
	</group>
 
	<group id="Paretos" label="Paretos">
	<button id="ParetoManu" label="Pareto Manuel" onAction="B05" size="large" imageMso="ChartLines" />
	<button id="ParetoAuto" label="Pareto Auto" onAction="B06" size="large" imageMso="ChartLines" />
	</group>
 
	<group id="Chem" label="Chemin">
	<button id="CheminJ" label="Chemin Jour" onAction="B07" size="large" imageMso="AppointmentColor6" />
	<button id="CheminS" label="Chemin Semaine" onAction="B08" size="large" imageMso="AppointmentColor3" />
	<button id="CheminM" label="Chemin Mois" onAction="B09" size="large" imageMso="AppointmentColor1" />
	</group>
 
	<group id="Trames" label="Trames">
	<button id="TrameManu" label="Trame Manuelle" onAction="B011" size="large" imageMso="BlackandWhiteWhite" />
	<button id="TrameAuto" label="Trame Auto" onAction="B012" size="large" imageMso="BlackandWhiteWhite" />
	</group>
 
</tab>
 
</tabs>
</ribbon>

Merci d'avance à ceux qui auraient une petit idée ...

Sylvie

[GastonLagaffe25]

j'aimerai que ces onglets soient visibles dans le ruban après l'exécution de la macro, mais je n'ai pas réussi à le faire.

Bonjour,

Que veux-tu faire exactement ?
Qu'as-tu déjà essayé ?

[cellela]

bonjour,

Je voudrais que lorsque la macro s'est executée et que mes onglets sont créés, cela modifie le ruban et ajoute un bouton qui me permette d'aller sur l'onglet. Le but étant de masquer les onglets du classeur et d'utiliser uniquement le ruban. L'autre possibilité est de créer les boutons du ruban au départ, de les masquer et de les afficher quand les onglets sont créés. Mes onglets ont tous un CodeName défini à l'avance, il n'y a que le Name qui change à la création.

Voici la partie du Code qui créé les onglets:

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub CreationPostesAutos()
'stocke les noms de postes precedents
    Dim TableauPosteAut(10) As String
    Dim i As Integer
    i = 0
    For COLONNI = 3 To 10 Step 7
        For LIGNE = 30 To 38 Step 2
        TableauPosteAut(i) = Cells(LIGNE, COLONNI).Value
        i = i + 1
        Next LIGNE
    Next COLONNI
 
Sheets("TrameAuto").Visible = True
 
For COLONNI = 3 To 10 Step 7
    For LIGNE = 30 To 38 Step 2
    Donnees_Manu.Select
    Nom3 = Cells(LIGNE, COLONNI).Value
    AutoOuiNon = Cells(LIGNE, COLONNI + 2).Value
    NombreProd = Cells(LIGNE, COLONNI + 4).Value
    If Nom3 = "" Then
    GoTo 8
    Else
        'Test onglet si existant
        If TestOnglet(Nom3) = True Then
        'MsgBox "Le Poste " & Nom3 & " existe déjà: il ne sera pas remplacé"
        GoTo 8
        Else
        GoTo 7
        End If
    End If
 
    Application.ScreenUpdating = True
7:     'Crée les nouvelles feuilles Postes autos
    Worksheets("TrameAuto").Copy After:=Worksheets("BD Codes")
    ActiveSheet.Name = Nom3
 
    Application.ScreenUpdating = False
 
 
8:
    Next LIGNE
Next COLONNI
 
Sheets("TrameAuto").Visible = False
End Sub

[GastonLagaffe25]

Pour cela, tu peux effectivement travailler avec des boutons mais tu peux aussi utiliser une liste déroulante...
Par contre, et selon le nombre d'onglet, ton l'interface peut vite perdre son coté ergonomique.

Dans tous les cas, tu devrais trouver ton bonheur avec ce lien (que tu as peut-être déjà) qui permet de définir le ruban et ces contrôles depuis ton code:
http://silkyroad.developpez.com/excel/callbacks/

[cellela]

Merci GastonLagaff25, je vais essayer avec les exemples cités dans le lien ....