VBA pop up

[anasimo]

Bonjour

j'ai une feuille où je vais mettre une liste des abréviations (tableau de 2 colonnes et 25 lignes) ...pour ne pas encombrer mon classeur je veux supprimer cette feuille
Y a un moyen de mettre un bouton cliquable pour avoir 1 popup ou s'affiche ce tableau (excel ou word peut importe)

Merci pour votre aide

 

[patricktoulon]

re
on simplifie le tout
voila donc maintenant la gestion des fusions
bonsoir job75 plus rapide comme ca

 

[anasimo]

Vous avez fait du sacré bon boulot , je m'y attendais pas du tout à ça...j'avais juste demandé un msgbox
Je vais utilisé les deux pour des cas différents...
Merci beaucoup

 

[jcf6464]

Bonjour àvous tous et le forum,

bravo les pros bon travail

a+ jcf

 

[job75]

j'avais juste demandé un msgbox

Ah bon ? Alors il fallait être plus clair, le problème aurait été réglé en 2 posts au lieu de 49 :

Sub Message()
Dim a(1 To 12), i%, t$
a(1) = "Code produit" & Chr(9) & "Libellé"
a(2) = "CCT" & Chr(9) & Chr(9) & "Crédit court terme"
a(3) = "CF" & Chr(9) & Chr(9) & "Crédit de fonctionnement"
a(4) = "CLMT" & Chr(9) & Chr(9) & "Crédit moyen terme"
a(5) = "AAPE" & Chr(9) & Chr(9) & "Action admissible de petite entreprise"
a(6) = "CC" & Chr(9) & Chr(9) & "Coût en capital"
a(7) = "DAP 7" & Chr(9) & Chr(9) & "Déduction pour amortissement 7"
a(8) = "DAP 8" & Chr(9) & Chr(9) & "Déduction pour amortissement 8"
a(9) = "DAP 9" & Chr(9) & Chr(9) & "Déduction pour amortissement 9"
a(10) = "DAP 10" & Chr(9) & Chr(9) & "Déduction pour amortissement 10"
a(11) = "DAP 11" & Chr(9) & Chr(9) & "Déduction pour amortissement 11"
a(12) = "DAP 12" & Chr(9) & Chr(9) & "Déduction pour amortissement 12"
For i = 1 To UBound(a): t = t & vbLf & a(i): Next
MsgBox Mid(t, 2), , "Fiche produit"
End Sub

 

[patricktoulon]

re
Bonjour Job75
je sais plus il me semblait avoir vu(dans la discussion) avec couleurs etc... avec un msgbox c'est pas possible
a moins d'utiliser l'usine a gaz msgboxplus (chercher sur google)
il me semble aussi que dans la discussion il a parler d'eventuel modification(ajout,suppression,modi)

on en revient donc a ma propsition initiale a savoir les données en commentaire dans un module comme ma démo dans l'userform

a question clairement exprimée réponse rapide et concise

 

[patricktoulon]

re
par contre un truc qui m’intéresse dans ton msgbox
c'est l’alignement parfait avec des chaînes(abréviation) de différentes longueurs avec 2 vbtab
tu peux expliquer ce comportement ?

 

[job75]

Les textes concaténés utilisent le caractère de tabulation CAR(9), il en faut 1 ou 2 par ligne.

 

[patricktoulon]

en fait dans un autre sujet j'ai fait le test j'en met 2 tout le temps

je crois que ca va plus loin qu'une longueur vide
2 lignes avec le premier mot d'une longueur différente le 2d mot tombe pilpoils dans les deux lignes

 

[anasimo]

re
Ce matin quand je voulais transférer les popup vers le fichier de travail...ça bug. Je ne sais pa commet les transférer. Quand il s'agit de macro c facile pour moi, je copie juste le code vers un nv module. Cette fois-ci ça m'échappe !!!!
n'ayant pas trouvé de solution des copie ledites feuilles vers mon canevas...mais y a tjr des liaison.
Si vous pouvez m'apporter de l'aide...Merci

 

[patricktoulon]

Bonjour
il faut que tu lui mette un userform du meme nom que je lui ai donné dans ton projet sinon ca risque pas de fonctionner

 

[anasimo]

Bonjour
il faut que tu lui mette un userform du meme nom que je lui ai donné dans ton projet sinon ca risque pas de fonctionner

Ah j'ai réussi à le faire c superbe merci pour le tuyau