Commentaires de bigfish_le vrai sur vbfrance

Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est h�berg� par Frontier.fr

Ce site au d�marrage

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 10 07 01:31:37

WSC08 : LE BILAN, LES PHOTOS, LES WEBCASTS à VOIR OU à REVOIR par daniel

SHAREPOINT ET SES DB : AVEZ VOUS PENSé à LES "TWEAKER" ? par themit

NTTTCP : MESURER LA VITESSE D'UN RéSEAU par findufin

UN NOUVEAU QUIZZ par Matthieu MEZIL

WEBCAST ADO.NET DATA SERVICES par Matthieu MEZIL

RE : RECHERCHER LES VALEURS MIN ET MAX D'UNE TABLE par Sator

RE : 2 MORCEAUX AVEC WMP par Redman31100

RE : TUTO DELEGATE ? par Redman31100

TUTO DELEGATE ? par Redman31100

RE : SOS par AZuRoX

+ de logiciels � t�l�charger

Saeco Talea Ring Plus Machine à Expresso au meilleur prix

1�257�028 membres
31 nouveaux aujourd'hui
14�396 membres club

Trouver une ressource

Trouvez une ressource parmi 38�802 codes, 1�183�884 messages d'aide etc...

Recherche: dans [ Derni�res recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de r�ponse � votre probl�me ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question b�te, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, �a c'est une erreur !

16 commentaire(s) de bigfish_le vrai sur des sources sur vbfrance

Le : 24/09/2008 20:24:59
Source : FICHE DE PAIE POUR LE B�TIMENT SOUS EXCEL

Salut,

donc si je comprend bien, l'objectif ici est juste de partager un fichier tout fait !
Bien qu'apparemment il soit de bonne qualité du point de vu utilisation d'excel et assez complet en therme de traitement de fiches de payes, Je ne vois pas d'interet dans ce fichier coté programation !
L'objectif premier de la mise à disposition de sources est de partager du code ors dans ce fichier il n'y a rien !

Je penses que ton fichier aurait plus d'interet sur un site dédié à excel

A+

Le : 11/09/2008 15:13:49
Source : UN GRAPHIQUE 3D TOUT EN MOUVEMENT

DAWEE : Non c'est une tres bonne question et la reponse est OUI !
Je suis meme en train de travailler sur le sujet. Pour faire l'essai c'est tres s'imple il te suffit de faire un clic droit dans le graphique et de choisir Graph type(type de graphique) et de choisir le graphique surfacique.
En suite tu cliques droit sur le sol(plancher) du graphique et tu ne lui mets pas de couleur ce qui aura pour effet de le faire disparaitre. Puis dans le code du module ClasseChart tu remplaces :

If GraphElevation < 0 Then GraphElevation = 0

par

If GraphElevation < -90 Then GraphElevation = -90

ce qui te permetra de le voir par dessous.

Amese toi bien^^

A+

Le : 08/09/2008 18:47:41
Source : MORPION2.XLS

Salut,

et on en fait quoi ? un exemple de ce qu'il ne faut pas faire ?

A+

Le : 05/09/2008 20:58:22
Source : TABLES DE MULTIPLICATION

Un exemple de passage de parametre :

voici le code modifié de ton module1 :

'Solutions L Longre, mpfe
'"Suppression" (je mets des guillemets !) :
Sub CacheBOutils()
Dim CmdB As CommandBar
  For Each CmdB In Application.CommandBars
    CmdB.Enabled = False
  Next CmdB
End Sub

'Résurrection:
Sub AfficheBOutils()
Dim CmdB As CommandBar
  For Each CmdB In Application.CommandBars
    CmdB.Enabled = True
  Next CmdB
End Sub
'sélectionne une feuille si elle existe, la crée si elle n'existe pas

Sub SelectFeuille(Nom$)
  On Error Resume Next
  Worksheets(Nom).Select
  If Err <> 0 Then Worksheets.Add.Name = Nom
End Sub 'fs

Sub Test(NumTest As Long)
  SelectFeuille ("Table des " & NumTest)
End Sub

Sub Test_11()
  SelectFeuille ("Presentation")
End Sub

apres cette modif pour activer les feuilles de test il suffit de le faire comme suit:

par exemple pour appeler le test 2 depuis le test 1 tu remplaces

test_2 par

test(2) 'la valeur entre parentheses sera passée a la sub Test qui elle meme la recuppere dans la variable NumTest

Et voila ! pas plus compliqué !

A+

Le : 05/09/2008 20:39:52
Source : TABLES DE MULTIPLICATION

Salut,

l'idée est bonne mais...

Excel est un tableur alors pourquoi utiliser des controles textbox dans les feuilles ? Cela aurais considerablement diminué la taille du fichier d'utiliser les cellules.

Apprend à boucler sur les controles cela te permetra de diminuer la taille du code.

Apprend à passer des valeurs en parametre à tes sub cela te permetra aussi de considerablement reduire le code.

Pourquoi ne pas generer, toujours dans la meme feuille, les differentes tables plutot que d'utiliser une feuille par table ?
cela aurait en plus l'avantage de ne pas etre limité et de pouvoir generer une infinité de table.

A+

Le : 04/09/2008 18:57:02
Source : TUER UNE/DES SESSION(S) CACH�E(S) D'EXCEL � PARTIR D'UNE AUTRE SESSION

Bonjour á tous,

apparemment certain d'entre vous rencontre un probleme lors de l'ouverture du fichier. Ce probleme provoquerait la fermeture d'excel.

Si vous rencontrez ce probleme merci de m'en fair part ici ou par MP

Amicalement,

3ddI7IHd

Le : 02/09/2008 23:56:41
Source : CALCUL TREMIE

Toutes mes remarques n'on rien a voir avec les specificitées d'excel2007. Elles sont basique a tout les language dérivé du VB. D'ailleur while/wend est une vieille methode qu'il est deconseillé d'utilisée et qu'il est preferable de remplacer par do/Loop.
De plus tu l'utilises mal puisque si le nom recherché n'est pas dans la tremie specifier excel vas fair sa recherche jusqu'a la derniere ligne de la feuille et planter.

Comme dirait PCPT : ce n'est pas la poubelle ici ! Donc quand tu poses une source ici c'est pour la communauté pas pour une personne en particuliée. Les sources publiées doivent servire d'exemple donc respecter les regles.

- Option explicit en debut code
- variable declarées et dimensionnées
- code commenté
- indentation

enfin il doit fonctionner un minimum pour permetre au debutant de demarrer. Comprend bien qu'un debutant ne s'aura pas debuguer et modifier un code pour pouvoir l'utiliser.

Ton intention est bonne, seulement vas jusqu'au bout.

:)

Le : 02/09/2008 21:26:59
Source : CALCUL TREMIE

Salut,

beaucoup de chose a dire :

- ce code ne marche pas !
- recherche de valeur par boucle while/wend qui ne marche
- code non commenté
- variable pas declarées ou pas dimensionées
- des condition if qui ne servent a rien
- une redondance de code qui aurait pu etre facilement evitée
- code difficile a lire... indentation douteuse...

voila pour les principales remarques.

ci-dessous le code de la form que j'ai en partie modifié, mais la partie soutirage ne fonctionne toujous pas,
car je n'ai pas compris ce que tu eux faire avec la listbox.
J'ai remplacé la textbox3(fournisseur) par une combobox pour avoir une liste, par tremie, des fournisseurs deja existants
La combobox est mise a jour automatiquement lors de la selection de la tremie.
J'ai aussi ajouté quelque commentaire.

Option Explicit
Dim silo As String

Private Sub CommandButton1_Click()
    ' on verifi qu'un fournisseur a été spécifié
    If Me.ComboBox1.Text = "" Then 'si pas de fournisseur
        MsgBox ("Entrez le nom du fournisseur")
    Else ' si fournisseur il y a
        ' on verifi qu'un tonnage a été specifié
        If Me.TextBox1.Text = "" Or Me.TextBox1.Text = "0" Then 'si pas de tonnage ou tonnage = 0
            MsgBox ("Veuillez entrer un poid en Tonne")
        Else 'tout est ok ! on lance la suite
            detect_fournisseur
        End If
    End If
End Sub
Sub detect_fournisseur()
    Dim i As Long, total As String, nom As String
    nom = Me.ComboBox1.Text
    'on ce decale sur la colonne de gauche pour le tonnage
    total = Chr(Asc(silo) - 1)

    With Feuil1
        ' on cherche si le nom existe deja dans la liste des fournisseur de la tremie choisie
        ' et on recuppere le numero de ligne
        On Local Error Resume Next
        i = .Columns(silo).Find(nom, .Range(silo & 1), , , xlByRows, xlPrevious).Row
        ' on ne peut rien rajouter si la tremie est pleine donc on verifi avant de continuer
        If i = 1 Or .Range(total & "8").Value >= 220 Then 'la tremie est pleine
            MsgBox ("Tremie pleine")
            Exit Sub 'on arrete tout
        'on verifi que la somme du contenu + l'ajout ne depasse pas le maxi
        ElseIf .Range(total & "8").Value + Me.TextBox1.Value > 220 Then 'on depasse le maxi
            MsgBox ("Cette tremie ne peut accepter plus de " & 220 - .Range(total & "8").Value & "T ")
            Exit Sub 'on arrete tout
        Else 'tout est ok
            If Err = 0 Then 'si err = 0 c'est que le fournisseur est deja dans la liste
                .Range(total & i) = Me.TextBox1.Text + .Range(total & i)
            Else 'le fournisseur n'est pas dans la liste
                i = .Columns(silo).Find("*", .Range(silo & 1), , , xlByRows, xlPrevious).Row + 1
                If i < 8 Then 'limitation a 6 fournisseur par tremie
                    .Range(silo & i).Value = Me.ComboBox1.Value
                    .Range(total & i) = Me.TextBox1.Text
                Else
                    MsgBox "le nombre de fournisseur est limité a 6 par tremie"
                End If
            End If
        End If
    End With
End Sub

Private Sub CommandButton2_Click()
    If Me.TextBox2.Text = "" Or Me.TextBox2.Text = "0" Then
        MsgBox ("Veuillez entrer un poid en Tonne")
    Else
        soutirage
    End If
End Sub

Sub soutirage()
    Dim i As Long, retour, total, poid As Integer
    poid = TextBox2.Text
    i = 0 + ListBox1.ListCount
    total = Chr(Asc(silo) - 1)
    retour = total & "2:" & silo & "6"
    If Feuil1.Range(total & "7") - poid <= 0 Then
        While poid > 0
            If poid > Feuil1.Range(total & "7") Then
                ListBox1.AddItem Feuil1.Range(total & "7") & " T de " & Feuil1.Range(silo & "7").Text
            Else
                ListBox1.AddItem poid & " T de " & Feuil1.Range(silo & "7").Text
            End If
            poid = poid - Feuil1.Range(total & "7")
            With Worksheets("Feuil1")
                .Range(total & "2:" & silo & "6").Copy
                .Range(total & "3").PasteSpecial 'operation:=xlPasteValues
            End With
            Feuil1.Range(total & "2:" & silo & "2").Value = ""
        Wend
    Else
        Feuil1.Range(total & "7").Value = Feuil1.Range(total & 7).Value - poid
        ListBox1.AddItem TextBox2.Text & " T de " & Feuil1.Range(silo & "7").Text
    End If
End Sub

Private Sub OptionButton1_Change()
    If OptionButton1.Value = True Then
        silo = "B"
        UpdateCombo
    End If
End Sub

Private Sub OptionButton2_Change()
    If OptionButton2.Value = True Then
        silo = "E"
        UpdateCombo
    End If
End Sub

Private Sub OptionButton3_Change()
    If OptionButton3.Value = True Then
        silo = "H"
        UpdateCombo
    End If
End Sub

Private Sub UserForm_Initialize()
    'initialisation de la form avant affichage
    Me.OptionButton1.Value = True 'tremie A par defaut
    UpdateCombo
End Sub

Sub UpdateCombo()
    'mise a jour de la combobox en fonction de la tremie choisie
    Me.ComboBox1.List = Feuil1.Range(silo & "2:" & silo & "7").Value
    Me.ComboBox1.Value = Me.ComboBox1.List(0)
End Sub

j'en ai deja fait pas mal donc a toi de faire le reste.

Pour la note j'attend de voir la suite pour juger mais franchement pour l'instant cela vaut 3

A+:)

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+