Contenu récent par systmd

  1. systmd

    [VBA] équivalent de "Me" pour une CheckBox

    Re : [VBA] équivalent de "Me" pour une CheckBox @ F22Raptor je confirme ça fonctionne sous 2007
  2. systmd

    [VBA] équivalent de "Me" pour une CheckBox

    Re : [VBA] équivalent de "Me" pour une CheckBox Bonjour, Private Sub CheckBox1_Click() CBClick End Sub Private Sub CheckBox2_Click() CBClick End Sub Private Sub CheckBox3_Click() CBClick End Sub ' A mettre dans le code de votre USF Sub CBClick()...
  3. systmd

    code VBA - Zoom sur liste déroulante

    Re : code VBA - Zoom sur liste déroulante Bonjour, Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next If Target.Column = 5 And Target.Row >= 2 And Target.Row <= 1000 Then ActiveWindow.Zoom = 120 Else ActiveWindow.Zoom = 85 End If End Sub
  4. systmd

    Problème de tableau et graphique évolutif

    Re : Problème de tableau et graphique évolutif Bonjour 1- Faire Ctrl F3 pour afficher la fenêtre " Gestionnaire de noms" 2- Double click sur "E3_Graph_Etiquettes" 3- Copie colle la formule supra-citée dans "Fait référence à" 4- Faire OK puis Fermer Sinon regarde ici pour plus d'info...
  5. systmd

    Problème de tableau et graphique évolutif

    Re : Problème de tableau et graphique évolutif Bonjour il faut modifier le Nom E3_Graph_Etiquettes et remplacer 10 par 12 =SI(E3_NbMaxVal<1;Tableau!$A$1;DECALER(Tableau!$A$2;SI(E3_NbMaxVal<12;0;E3_NbMaxVal-12);;SI(E3_NbMaxVal<12;E3_NbMaxVal;12)))
  6. systmd

    position listbox

    Re : position listbox Bonsoir, Voici un exemple Public Pos As Integer Private Sub essai_Click() Dim celluletrouvee As Date Dim jour As Date jour = essai.Value With Range("a3:a80") End With If jour = 0 Then Exit Sub 'Null Set celltrouvee = Range("a:a").Find(what:=jour...
  7. systmd

    Demande d'aide alimentation textbox

    Re : Demande d'aide alimentation textbox Bonsoir, Je ne vois pas de problème, ça a l'air de fonctionner :confused:
  8. systmd

    Forme automatique légende

    Re : Forme automatique légende Bonsoir, J'ai pas trouvé dans Excel mais dans Word 2007 il faut faire: - Click droit sur la légende - Format de la forme automatique - onglet zone de texte - Bouton Options de légende
  9. systmd

    Forme automatique légende

    Re : Forme automatique légende Bonsoir, il suffit de cliquer sur la légende et de bouger les losanges jaunes aux extrémités de la flèche.
  10. systmd

    VBA - Problème recordset - objet fermé

    Re : VBA - Problème recordset - objet fermé Bonsoir, il ne faudrait pas rajouter la fonction seek pour mettre le pointeur en début de liste, du style rsRecherche.seek (pas testé)
  11. systmd

    Macro Excel 2013 qui ne fonctionne pas sous Excel 2010

    Re : Macro Excel 2013 qui ne fonctionne pas sous Excel 2010 Bonsoir, c'est bien un problème de référence apparemment en fonction de la version d'Excel je suis sous 2007 mais essaye ceci: Sub AjoutReferenceOutlook() Dim xRef As String xRef = "C:\Program Files\Microsoft Office\Office"...
  12. systmd

    Interdire supp onglets suivant cellule...

    Re : Interdire supp onglets suivant cellule... Bonjour Roby I faudrait quand même nous envoyé un bout de ton fichier épurer, bien sûr, des données confidentielles, car même avec la protection du VBA je n'arrive pas à reproduire l'erreur. sinon désactive les commandes que tu as rajouter une...
  13. systmd

    Excel calculs intérêts composés différents de banque

    Re : Excel calculs intérêts composés différents de banque Y aurais pas une histoire du calcul du TEG ... trop complexe pour moi :-/ désolé
  14. systmd

    Excel calculs intérêts composés différents de banque

    Re : Excel calculs intérêts composés différents de banque Bonsoir Je pense que ça viens du fait qu'ils ajoutent une part d'assurance en fonction de la durée. (calcul propre à eux) A confirmer
  15. systmd

    Interdire supp onglets suivant cellule...

    Re : Interdire supp onglets suivant cellule... Re Bin ça fonctionne même avec Listing en très caché (xlSheetVeryHidden).