Discussion :

[exelan]

bonsoir

comment reduire mon code de 15x15 boutons qui et tres lourd et tres long a ouvrir

un extrait des 255 codes

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
Private Sub CommandButton1_Click()
Application.Goto Reference:=Range("c4"), Scroll:=True
End Sub
Private Sub CommandButton2_Click()
Application.Goto Reference:=Range("c39 "), Scroll:=True
End Sub
Private Sub CommandButton3_Click()
Application.Goto Reference:=Range("c74 "), Scroll:=True
End Sub
Private Sub CommandButton4_Click()
Application.Goto Reference:=Range("c109 "), Scroll:=True
End Sub
Private Sub CommandButton5_Click()
Application.Goto Reference:=Range("c144 "), Scroll:=True
End Sub
Private Sub CommandButton6_Click()
Application.Goto Reference:=Range("c179 "), Scroll:=True
End Sub
Private Sub CommandButton7_Click()
Application.Goto Reference:=Range("c214 "), Scroll:=True
End Sub
Private Sub CommandButton8_Click()
Application.Goto Reference:=Range("c249 "), Scroll:=True
End Sub
Private Sub CommandButton9_Click()
Application.Goto Reference:=Range("c284 "), Scroll:=True
End Sub
Private Sub CommandButton10_Click()
Application.Goto Reference:=Range("c319 "), Scroll:=True
End Sub
Private Sub CommandButton11_Click()
Application.Goto Reference:=Range("c354 "), Scroll:=True
End Sub

pour être plus clair j ai 15 tableaux avec 15 boutons
ex:les boutons 3,18,33,48 ect ect correspondent au tableau 3 donc j ai 15 bouton qui vont au tableau 3
j espère être clair

merci d avance

[patricktoulon]

bonsoir ben non pas tres clair
tes boutons sont dans quoi? ou ?

une listebox ou une combobox avec les address suffirait non? une !!!

[clementmarcotte]

Je prêche encore dans le désert, mais bon.

Avec VB.net (ou C#), on peut gérer plusieurs boutons dans une procédure click. Un petit bloc select case et le nom du contrôle qui a été automatiquement transmis à la procédure.
Avec VB.net (ou C#), on peut faire des menus presque les yeux fermés
Avec VB.net (ou C#), on peut faire des applications Office qui seront compatibles Office 2003 à Officem2016 (et, espérons, Office 2019), parce que les PIA ont le même GUID
Avec VB.net (ou C#), on peut des applications Office avec tous les contrôles .net compatibles Office 32 bits et Office 64 bits et même une seule application directement compatible 32 et 64 bits.
Avec VB.net (ou C#), on peut des applications compilées qui vont mieux supporter 225 boutons, même si cela n'a pas l'air d'avoir de l'allure.
Avec VB.net (ou C#), on peut piloter Excel comme si c'était, du moins en apparence, de piloter Word par Excel

Sans renier VBA, il y a des fois, où il faut accepter qu'il n'est peut-être pas adapté pour toutes les simagrées que l'on veut faire avec Excel

[Menhir]

Tu ne dis pas ce que sont supposé faire les boutons, ni comment ils sont placés mais je suppose que ceci pourrait le faire :

Code :

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

1
2
3
4
5
6
7
8
Sub GotoTableau
   Dim Choix As Integer, Tableau As Long
 
   Choix = Application.InputBox( prompt:="Tableau à atteindre", Type:=1)
   Tableau = Choose(Choix, 39, 74, 109, 144, 179, 214,249, 284, 319, 354)
 
   Application.Goto Reference:=Range("c" & Tableau), Scroll:=True
End Sub

Il ne te reste plus qu'à relier cette macro à une icone de la barre d'outils à accès rapide ou à une simple forme.

Ca pourrait sans doute encore être simplifié puisque, visiblement, tes tableaux sont toutes les 35 lignes.
Si c'est le cas, le Choose pourrait être remplacé par un petit polynôme du premier degré.

Code :

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

1
2
3
4
5
Sub GotoTableau
   Dim Choix As Integer
   Choix = Application.InputBox( prompt:="Tableau à atteindre", Type:=1)
   Application.Goto Reference:=Range("C" & (Choix * 35 + 4)), Scroll:=True
End Sub

Cela dit, si ton appli se résume à des Goto, ça peut se faire sans VBA avec de simples liens hypertextes liés à des cellules ou des formes.

[exelan]

salut tous

si je fais 15 bouton comme ca

je peux pas lui affecter une macro (la placer dans un module pour que ça fonctionne dans plusieurs feuilles)
et mettre un de c 15 boutons dans chaque tableau

merci de me répondre je patauge grave la !!!

ps:g tester les hyperliens marche bien en descendant mais décale les lignes en remontant ???

[Transitoire]

Bonsoir a tous.
Voyons voir si j'ai bien compris votre problème: vous avez 15 feuilles avec chacune 1 tableau qui contient 15 boutons vous permettant d'atteindre 15 endroits différents du tableau?
Si ce n'est pas cela, merci de préciser exactement ce que vous avez et ce que vous désirez.
en ce qui concerne les boutons, aucuns problèmes pour accéder à une macro. (Click droit sur le bouton. apparition d'un menu/ affecter une macro/ choix de la macro (exemple Sub commandButton1_click))
Les macros peuvent être sur un module.
Mais vous pouvez très bien aussi utiliser le code deux de Menhir dans un UserForm, pour avoir seulement des adresses(numTableau et adresseTableau) que vous choisiriez dans une listeBox 2 colonnes et qui vous emmenerais au bon endroit
Cdt

[Menhir]

merci de me répondre je patauge grave la !!!

C'est normal si tu ne lis pas les réponses qui te sont faites...