Contenu récent par AeroPlanneur

  1. A

    Combo+MouseMove

    bonjour FanFan, peux-tu jeter un oeil sur cet exemple ? http://cjoint.com/?gti1M1WeSE cordialement
  2. A

    Retour de xlminimize

    bonjour Eric, moi je te conseillerais une chose très simple, à savoir utiliser les événements suivants Worksheet_Activate() Worksheet_Deactivate() et Workbook_Activate() Workbook_Deactivate() Si tu veux que toutes les feuilles de ton classeur soient en 'Fullscreen' : Private Sub...
  3. A

    ouvrir auto d'un 2eme class

    bonjour Domico, ce code déclenche l'ouverture du fichier lorsque l'on double-clique sur la cellule A1 : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target = [A1] Then nomFichier = 'C:' & Target & '.xls' Workbooks.Open nomFichier End If End Sub...
  4. A

    Besoin d'aide pour VBA

    bonjour Bruno, moi je tenterais comme ceci : Nom='Q:GARDOSSIER TRAVAUXLSB'&[client]&'.htm' ActiveWorkbook.PublishObjects.Add(xlSourceSheet, Nom,'nom de la feuille' ,'',xlHtmlStatic, 'BT_2704', '').Publish (True) cordialement
  5. A

    ListBox Selected Item

    Marino, ton code devrait marcher, regarde ce lien Il se peut néanmoins que tu doives préciser l'endroit où se trouve ta listbox, par exemple Feuil1.listbox1 cordialement
  6. A

    ListBox Selected Item

    bonjour Marino, tout simplement If ListBox1.Selected(x) = True Then Range('D4').Value = ListBox1 End If cordialement
  7. A

    separator chiffre, calcule de moyenne

    Sabrina, tu es parente avec Sabrina de la série sur M6 ou tu regardes derrière mon épaule ? :silly: J'ai à peine envoyé la réponse, que ton remerciement apparaissait ! cordialement
  8. A

    separator chiffre, calcule de moyenne

    Sabrina, >car je ne peux changer les centaines de données tu peux faire Edition->Remplacer->Rechercher(tu saisis ',' (sans parenthèse), Remplacer '.' (sans parenthèse)->remplacer tout C'est instantané cordialement
  9. A

    HELP PLEASE

    jmps, >Comment tu fais pour AeroPlanner ? Moi j'y suis pas arrivé ... le secret, garder une vitesse entre celle de la lumière et celle du son ! cordialement
  10. A

    HELP PLEASE

    jmps, >En plus je viens de réaliser que Line est un mot réservé de VBA. >Renomme ta variable en 'Maligne' ou ce que tu veux mais pas Line 'Maligne' n'est pas un mot déposé France Telecom ? :eek: cordialement
  11. A

    alimenter combobox par nom de feuille

    Marco, For i = 4 to ThisWorkbook.Worksheets.count ComboBox1.AddItem Worksheets(i).Name Next non testé, mais ça doit le faire cordialement
  12. A

    Saisie obligatoire d'une date

    Christine, connais-tu la validation de cellule ? menu ->Données->validation->autoriser date->indiquer dates mini-maxi cordialement
  13. A

    Macro trop longue à s'exécuter

    bonjour Bobby, Law, j'ai simplifié un peu la macro qui, du coup est plus nerveuse : '************************************************ Sub Sup_Act() Dim LastLine As Long Workbooks('EBT2.3.xls').Activate Application.ScreenUpdating = False 'Tri des activités...
  14. A

    Tri des feuillets par ordre alphabétique

    bonjour Stéph, une macro toute faite de Laurent Longre Ce lien n'existe plus cordialement
  15. A

    2 formes conditionnelles

    bonjour Monique, >...un peu plus court ... bien sûr, bravo cordialement
Voir plus