Contenu récent par sunnyland

  1. S

    Commentaire

    message
  2. S

    Stat par tranche d'âge

    Un exemple de solution dans fichier joint s'il veut bien se charger sur le site. Francoise Message édité par: sunnyland, à: 25/02/2006 09:56
  3. S

    macro zoom dans userform

    Dans ce cas la si tu mets: dans le code du bouton - click ActiveWindow.Zoom = activewindow.Zoom - 10 et dans le code du bouton +click ActiveWindow.Zoom = activewindow.Zoom + 10 Je pense qu'il y a des limites de 10 a 400 dans le zoom possible. Francoise
  4. S

    macro zoom dans userform

    Message édité par: sunnyland, à: 18/02/2006 12:41
  5. S

    macro zoom dans userform

    Cher Alex Plutot que de mettre des boutons + & - mais une 'scrollbar' avec valeur minimale 10 & maximale 400. Private Sub ScrollBar1_Change() ActiveWindow.Zoom = ScrollBar1.Value End Sub Peut -etre le probleme dans ton code vient du fait que lorsque tu mets: zoom=activewindow.zoom...
  6. S

    mois en cours

    Cher Veve, En mettant ce code dans le classeur, cela devrait activer la feuille correspondant au mois courant dans la mesure ou le nom des feuilles ont le format suivant: mois en lettre 1 espace annee sur 4 chiffre Option Explicit Private Sub Workbook_Open() Dim moiscourant As...
  7. S

    Nom des feuilles dans un fichier fermé

    Message édité par: sunnyland, à: 04/02/2006 10:14
  8. S

    ? Priorité de mis en form sur mis en form condito

    Je joins une solution possible sur la colonne B ne devra pas y avoir de formattage conditionel car le code formattera selon les 4 cas de figures. J'ai note un probleme dans ton formatting regarde explication sur feuille. Le code formatte les cellules a l'ouverture du fichier et lorsque...
  9. S

    recopier la cellule du haut

    Desole le message avait ete poste en double Message édité par: sunnyland, à: 03/02/2006 02:19 Message édité par: sunnyland, à: 03/02/2006 02:36
  10. S

    recopier la cellule du haut

    Essaie donc le code suivant: Sub enleveblanc() For Each c In Selection Select Case c.Row: Case 1: Case Else: If (IsEmpty(c) = True And IsEmpty(c.Offset(-1, 0)) = False) Then c.Value = c.Offset(-1, 0).Value End If End Select Next End Sub FRancoise :side:
  11. S

    insertion date du jour dans filtre personnalisé

    CQE, Je te fais parvenir un semblant d'explication. Cela risque peut-etre de te paraitre assez confu mais c'est un debut. Le probleme avec Excel c'est que les dates sont conservees sous un format special dont pour avoir la date d'aujourd'hui la fonction now() renvoie la date avec l'heure sous...
  12. S

    Graphique avec 3 valeurs

    Bonsoir Fanny, Ma version excel etant anglaise, je vais te proposer une solution mais je n'ai pas les menus en francais alors, il te faudra improviser pour trouver les mots francais correspondants. 1)Au lieu de choisir le type standard lorsque tu inseres ton tableau. Il devrait y avoir 2...
  13. S

    Graphique avec 3 valeurs

    Message édité par: sunnyland, à: 06/02/2006 10:12
  14. S

    Graphique avec 3 valeurs

    Je ne sais pas ce qui c'est passe mais plusieurs copies ont ete telecharge sur le site. Desole Francoise Message édité par: sunnyland, à: 06/02/2006 10:11
  15. S

    Graphique avec 3 valeurs

    Bonsoir Fanny, Ma version excel etant anglaise, je vais te proposer une solution mais je n'ai pas les menus en francais alors, il te faudra improviser pour trouver les mots francais correspondants. 1)Au lieu de choisir le type standard lorsque tu inseres ton tableau. Il devrait y avoir 2...