Résultats de la recherche

  1. Y

    Comptage de nombres identiques

    bonjour sur le fichier comptage ci joint , j'aimerais trouver une formule assez simple me permettant pour chaque colonne de calculer le nombre d'elements identiques maximum contenus dans une colonne afin de pouvoir comparer les colonnes en fonction du nombre de groupes de sous ensebmles de...
  2. Y

    Reseau de communication entre deux applications excel

    Bonjour a tous , je cherche depuis une semaine maintenant , un moyen de communiquer enter deux applications excel sur un meme reseau . autrement faire un programme me permettant , a partir de mon ordi , d'echanger , de communiquer avec le excel d un collegue , au sein d un meme reseau . J ai...
  3. Y

    Création d'une boite de dialogue avec module winsock

    Bonjour je suis un peu debutant en VBA . j aimerais pouvoir créer une boite de dialogue comme indique dans la piéce jointe . j'ai commence par cochez le module winsock mais je ne sais pas trop ni comment ma boite de dialogue ni comment insererle module dans cette derniere .
  4. Y

    Importer données Bloomberg sur Excel

    Bonjour j'aimerais savoir comment faire pour importer des flux bloomberg sous VBA?
  5. Y

    [RESOLU]Probleme Macro de remplacement

    Bonjour a tous je dispose en fait de la plutot simple macro suivante Sub testNulll() Dim i As Long With Sheets("Exotiques") For i = 1 To 10735 If Cells(i, 2).Value = "NULL" Then Cells(i, 2).Value = Cells(i, 2).Value Else: Cells(i, 2).Value = Cells(i, 2).Value + 1323 End If...
  6. Y

    [RESOLU]Macro de tri

    bonjour a tous je dispose du fichier ci joint , (qui reprensente une serie de trades effectue et releves par une societe financiere, j ai remplacer les trades par des chiffres pour simplifier mon probleme) en fait j aimerais creer une macro qui me parcours dc ma colonne A et qui me supprim les...
  7. Y

    [RESOLU]Probleme debogage?

    bonjiour a tous je dispose de ma fonction vba suivante Function stkr(code As String) As Variant Dim y, z As Variant If code Like "*Capspread*" Then z = Split(code, " ") y = Split(z(2), "/") If z(2) Like "*%*" Then stkr = Abs(Val(y(0)) - Val(y(1))) * 100 Else: stkr = Abs(Val(y(0)) -...
  8. Y

    macro de comptage inverse

    bonjour a tous , j aimerais svp creer une macro qui m indexe (numerote) les lignes de ma base excel . dans mon cas lorsque la colonne AA est non vide j aimerais lui attribue le numero 1 (pour la derniere ligne) le 2 pour l avant derniere ....... Toutefois j aimerais le faire ss avoir besoin de...
  9. Y

    [RESOLU]Probleme de renvoi de fonction

    Bonjour tout le monde je dispose de la fonction suivante ainsi que d une macro a titre d exemple Function Stk(code As String) As Variant Dim x, z As Variant Dim m As Integer x = Split(code) For m = LBound(x) To UBound(x) If x(m) Like "*%*" Then z = Split(x(m), "%") Stk = z(0) ElseIf...
  10. Y

    Fonction d'extraction et remplissage de colonnes

    Bonjour a tous , je joint un fichier excel qui explicite mon probleme je dispose d un code insere dans la colonne produit par ex, " 1m strad 10s2s SL 10.25/11.5" ce que j aimerais faire c extraire le 10s2s puis transformer et mettre 10y dans la colonne tenor1 et 2y dans la colonne 2 , sachant...
  11. Y

    [RESOLU]Copier des dates et utilisation de ISdate?

    bonjour je dispose du fichier test ci joint. ce que j aimerais faire pour l optimiser , c est de pouvoir reporter sur toutes les lignes qui ne sont pas des dates (dans la colonne A) la derniere trouvee par ma macro. En gros j aimerais par exemple si la premiere date trouvee est le 4 mars 2013...
  12. Y

    [RESOLU]Spliter une chaine de caractere

    Bonjour tout le monde , je dispose de chaine de caractere de la forme "10m10y @123 vs 10m10y @456" en fait j aimerais decouper cette chaine de carctere en 2 , a partir du vs cad obtenir "10m10y @123 " sur une ligne et "10m10y @456" sur la ligne juste en dessous ainsi que de leur attribuer un...
  13. Y

    Probléme code VBA virgules

    Bonjour svp je dispose du code suivant Function FindLast(ByVal code As String) As Variant Dim pos As Integer Dim pos1 As Integer If code Like ("*@*") Then If code Like ("*,*") Then pos = InStr(code, "@") pos1 = InStr(code, ",") FindLast = RightNum(Mid(code, pos)) & "," &...
  14. Y

    creaation code VBA pour proteger son code

    Bonjour svp j aimerais creer un programme vba qui me permettrait den mon proteger mon code de la maniere suivante . Lorsque je me connecte sous ma session , je peux modifier le code a ma guise Lorsque un autre utilisiateur se connecte , je voudrais quil ne puisse pas modifier mion code VBA...
  15. Y

    [RESOLU]Optimisation de 2 fonctions specifiques

    Bonjour a tous , je dispose de 2 fonctions FIndAsk et FindBid qui me donne le bid et le ask d un produit financier autrement pour un produit (chaine de caractere): "2m10y 100wc 245/123" le bid est le chiffre a gauche du / le ask celui situe a droite du / J aimerais savoir comment ameliorer...
  16. Y

    [RESOLU]Utilisation fonction Replace

    Bonjour a tous , je dispose du code suivant Function FindStk(ByVal code As String) As Variant Dim pos1 As Integer Dim pos2 As Integer Dim str As String Dim str1 As String str1 = LCase(code) If str1 Like "*p+*" Or str1 Like "*p *" Or str1 Like "*rec-*" Then str = Replace(str1...
  17. Y

    Optiomisation code vba

    Bonjour tout le monde alors voila je dispose du code suivant Sub test1() Dim lastlig As Long, i As Long Application.ScreenUpdating = False With Worksheets("Vanilla") lastlig = Range("AA" & Application.Rows.Count).End(xlUp).Row For i = lastlig To 2 Step -1 If...
  18. Y

    [RESOLU]Supression de lignes d une colonne

    Bonjour je dispose d une base de données sur la colonne B de ma feuille 1 , je souhaiterais supprimer les lignes en fond noir ou ecrites en rouge,pour cela j ai fait le code suivant Sub test2() Dim LastLig As Long, i As Long Application.ScreenUpdating = False With Worksheets("Feuil1")...