Commentaires de bigfish_le vrai sur tout CodeS-SourceS

8 commentaire(s) de bigfish_le vrai sur des sources sur tout CodeS-SourceS

Le : 19/08/2008 15:19:10
Source : GESTION DES INTERVENTIONS SUR UN PARC MACHINES

Salut,

Bon alors GUIGUI5678 je dois te demander des excuses car il y a eu confusion de fichier excel. Tout ce que j'ai dit plus n'ai pas pour toi encore fois pardon.

Amicalement

Philippe

Le : 17/08/2008 17:55:01
Source : GESTION DES INTERVENTIONS SUR UN PARC MACHINES

Salut,

Ici on partage du code pas des applications ou fichiers excel tout fait. Pour que le partage ce fasse il faut une source accessible donc qui n'est pas protégée par mot de passe.
De fait j'ai hésité à te mettre 0 mais finalement je t'accorde le bénéfice du doute car j'ose croire que ce n'est qu'un oubli.

A+

Le : 14/08/2008 21:44:21
Source : UN GRAPHIQUE 3D TOUT EN MOUVEMENT

Salut PCPT,

bon en faite la solution était très simple. J'ai même honte de ne pas l'avoir vu avant.:{
Il suffisait de considérer le clique comme le point zéro puis d'incrémenter les positions d'origines du graphique(avant le clique) avec les valeurs de déplacement du pointeur. Ces valeurs de déplacement sont calculées à partir du point 0(point du clique souris).

J'ai essayé sur 4 pc, sans aucun pb détecté mais hélas je n'ai pas le moyen d'essayer avec excel2000.

Concernant le codage de la classe ce n'est pas très clair encore. Pourrais-tu préciser: il faudrait attacher ton graph, ce n'est pas à ta classe d'aller vérifier le document actif

A+:)

Le : 14/08/2008 03:40:57
Source : UN GRAPHIQUE 3D TOUT EN MOUVEMENT

Salut,

Merci ghuysmans99 !

PCPT: Oui en faite j'ai fait 2 grosses erreurs en postant: la 1ere est de ne pas avoir précisé que ce n'est pas fini. La 2eme erreur est de ne pas avoir expliqué pourquoi ce n'est pas fini.
En faite comme tu le sais et contrairement a la fonction GetCursorPos, excel donne des valeurs de position des objets, qui ce trouvent dans une feuille, non pas depuis le point haut gauche de l'écran, mais depuis le points haut gauche de la feuille. De faite je dois tenir compte de la hauteur de la barre de menu d'excel. Mon problème est de trouver sa hauteur.
Le ou les problème(s) que tu rencontres lors de l'utilisation de ce code doit être du a cela car j'ai en attendant de trouver une solution, mis des valeurs fixes. C'est valeur sont 25 en x et 110 en y. Evidemment elle sont approximative.

Donc promis je vais revoir tout ça, ainsi que les fautes de grammaire.

Et merci pour ton encouragement

A+:)

Le : 11/08/2008 22:52:34
Source : CLM'S GUITARE : DICO ACCORDS + ACCORDAGE

Salut,

excelente source clementio, Bravo !

gillardg : et pourquoi pas un ecran tactile que l'on prendrait sous le bras ^^

A+

Le : 06/08/2008 16:55:23
Source : TUER UNE/DES SESSION(S) CACHÉE(S) D'EXCEL À PARTIR D'UNE AUTRE SESSION

Salut us_30,

merci pour tes encouragements ^^

Amicalement,

3ddI7IHd

Le : 30/05/2008 00:01:50
Source : LISTE DES EMAILS, NUMÉRO DE TÉLÉPHONNES DES TRAVAILLEURS

Salut,

ben y a beaucoup a dire :
- code tres peut commenté
- apprend a boucler sur des controles pour simplifier le code
- apprend a te servir de la fonction Select case
- les variables sont pas suffisament declarées d'ailleur pour etre sur de toute les declareés ajoute Option Exlicit en debut de module ou du code d'un objet (feuille, formulaire...)
- pas de bouton pour fermer les formulaires on est obligé d'utiliser la croix
- pas mal de code qui ne sert a rien
- etc

un exemple de simplification :

Pour commencer ton code :

Sub filtre()

  If Me.Frame.Controls(0) = True Then
      A = 1
      ElseIf Me.Frame.Controls(1) = True Then
      A = 2
      Else: A = 3
     End If
Select Case A
Case 1
Me.TextBox5 = "Tel Fixe / Ext Number"
     Set c = Range("b:b").Find("*" & Me.nom & "*", LookIn:=xlValues)
        If Not c Is Nothing Then
        premier = c.Address

        i = 0
        Me.ListBoxdon.Clear


        Do

        Me.ListBoxdon.AddItem

                  Me.ListBoxdon.List(i, 0) = c.Offset(0, 0).Value ' code
                  Me.ListBoxdon.List(i, 1) = c.Offset(0, 1).Value ' Nom
                  Me.ListBoxdon.List(i, 2) = c.Offset(0, 2).Value ' Nom
                  Me.ListBoxdon.List(i, 3) = c.Offset(0, 4).Value ' Fonction




        Set c = Range("b:b").FindNext(c)
        i = i + 1
        f = i - 1
        Loop While Not c Is Nothing And c.Address <> premier

        End If

  Case 2
  Me.TextBox5 = "Cell Number"
     Set c = Range("b:b").Find("*" & Me.nom & "*", LookIn:=xlValues)
        If Not c Is Nothing Then
        premier = c.Address


        i = 0
        Me.ListBoxdon.Clear


        Do

        Me.ListBoxdon.AddItem

                  Me.ListBoxdon.List(i, 0) = c.Offset(0, 0).Value ' code
                  Me.ListBoxdon.List(i, 1) = c.Offset(0, 1).Value ' Nom
                  Me.ListBoxdon.List(i, 2) = c.Offset(0, 2).Value ' Nom
                  Me.ListBoxdon.List(i, 3) = c.Offset(0, 5).Value ' Fonction




    Set c = Range("b:b").FindNext(c)
        i = i + 1
      Loop While Not c Is Nothing And c.Address <> premier

    End If
   Case Else
   Me.TextBox5 = "E-Mail Chemaf"
     Set c = Range("b:b").Find("*" & Me.nom & "*", LookIn:=xlValues)
    If Not c Is Nothing Then
      premier = c.Address


      i = 0
      Me.ListBoxdon.Clear


      Do

      Me.ListBoxdon.AddItem

                  Me.ListBoxdon.List(i, 0) = c.Offset(0, 0).Value ' code
                  Me.ListBoxdon.List(i, 1) = c.Offset(0, 1).Value ' Nom
                  Me.ListBoxdon.List(i, 2) = c.Offset(0, 2).Value ' Nom
                  Me.ListBoxdon.List(i, 3) = c.Offset(0, 6).Value ' Fonction


    Set c = Range("b:b").FindNext(c)
        i = i + 1
      Loop While Not c Is Nothing And c.Address <> premier

    End If
    End Select
End Sub

Puis la version simplifié :

Sub filtre()
    Dim MaColonne As Long, c As Range, i As Long
    If Me.Frame.Controls(0) = True Then
        Me.TextBox5 = "Tel Fixe / Ext Number"
        MaColonne = 4
    ElseIf Me.Frame.Controls(1) = True Then
        Me.TextBox5 = "Cell Number"
        MaColonne = 5
    Else
        Me.TextBox5 = "E-Mail Chemaf"
        MaColonne = 6
    End If
    Set c = Range("b:b").Find("*" & Me.nom & "*", LookIn:=xlValues)
    If Not c Is Nothing Then
        premier = c.Address
        i = 0
        Me.ListBoxdon.Clear
        Do
            Me.ListBoxdon.AddItem
            Me.ListBoxdon.List(i, 0) = c.Offset(0, 0).Value ' code
            Me.ListBoxdon.List(i, 1) = c.Offset(0, 1).Value ' Nom
            Me.ListBoxdon.List(i, 2) = c.Offset(0, 2).Value ' Nom
            Me.ListBoxdon.List(i, 3) = c.Offset(0, MaColonne).Value ' Fonction
            Set c = Range("b:b").FindNext(c)
            i = i + 1
        Loop While Not c Is Nothing And c.Address <> premier
    End If
End Sub

j'ai pas trop reflechi mais j'entre vois encore plus simple

Honnetement ca ne vaut pas une bonne note mais pour t'encourager je ne la donne pas

^^

Le : 27/05/2008 18:58:17
Source : LECTEUR AVI MP3 SOUS EXCEL API ET VBA

Salut,

Plein de choses interessantes dans ce code.

y aurais bien des petites bricoles pour simplifier le code comme par exemple

dans le code de ton userform depuis le sub CmdOuvreFichier_Click tu appels cmdPlay_Click qui lui meme appel

L_LectureVideo. Un appel a L_LectureVideo directement aurait suffit... bon ok je chippote ce ne sont que des broutilles.

aller ça vaut 10 ^^

A+