VBA pop up

patricktoulon

XLDnaute Barbatruc

• 3 Novembre 2019

• #46

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

 

Pièces jointes

• POP U V pat.xlsm

  29.7 KB · Affichages: 16

Vote positif 0 Vote négatif

anasimo

XLDnaute Occasionnel

• 3 Novembre 2019

• #47

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

 

Vote positif 0 Vote négatif

jcf6464

XLDnaute Occasionnel

• 3 Novembre 2019

• #48

Bonjour àvous tous et le forum,

bravo les pros bon travail

a+ jcf

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Novembre 2019

• #49

anasimo à dit:

j'avais juste demandé un msgbox

Cliquez pour agrandir...

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

VB:

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Novembre 2019

• #50

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Novembre 2019

• #51

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 ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Novembre 2019

• #52

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Novembre 2019

• #53

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

 

Vote positif 0 Vote négatif

anasimo

XLDnaute Occasionnel

• 4 Novembre 2019

• #54

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 4 Novembre 2019

• #55

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

 

Vote positif 0 Vote négatif

anasimo

XLDnaute Occasionnel

• 4 Novembre 2019

• #56

patricktoulon à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif