Commentaires de mortalino sur tout CodeS-SourceS

322 commentaire(s) de mortalino sur des sources sur tout CodeS-SourceS

Le : 10/05/2008 10:29:55
Source : MIDDLEBUTTON COPYPASTE [ADDIN VB6]

Source MAJ
Merci Renfield ;)

Le : 09/05/2008 15:31:44
Source : COMPARATEUR EXCEL EN MASSE, AMÉLIORATIONS

Effectivement Renfield,

je ne l'avais pas vu comme ça ;)
C'est vrai que récemment j'ai du faire un Ctrl H d'une chaine de caractères déjà comprise dans une autre.. bonjour les dégâts :$

Bonne remarque !

Le : 09/05/2008 00:51:12
Source : COMPARATEUR EXCEL EN MASSE, AMÉLIORATIONS

Salut,

j'ai juste regardé comme ça, pas testé.

Toi qui veux optimiser, voici qques pistes :

1/ Dim i, j, k As Integer
Attention, seul k est de type Integer, i et j sont Variant (donc plus lourd en octets)
Voici la bonne syntaxe :
Dim i As Integer, j As Integer, k As Integer

Ensuite au début, j'ai vu :
2/ Const CouleurCellModifiee = vbRed
vbRed étant déjà une constante VB, cela ne sert à rien de créer ta propre constante, ayant la même valeur qu'une autre. Quand t'en as besoin dans ton dev, utilise tout simplement vbRed au lieu de CouleurCellModifiee.

3/ Les boucles.
Il est plus rapide de faire une boucle sur les collections plutôt que par leurs items

Dim sSheet As Sheet

For Each sSheet in ActiveWorkBook.Sheets
    MsgBox sSheet.Name
Next sSheet

là ce sera plus rapide que

Dim i As Integer

With ActiveWorkBook
    For i = 1 to .Sheets.Count
        Msgbox .Sheets(i).Name
    Next i
End With

Aller pour finir (ça c'est ma spécialité grâce à MZTools) :
* dans Sub CompareTwo(indexS, IndexC)  --> la variable 'j' n'est pas utilisée
* dans Sub FindMaxRangeSource(ind)  --> le paramètre 'ind' n'est pas utilisée
* dans Sub FindMaxRangeSource(ind)  --> le paramètre 'ind' n'est pas utilisée

Voilà, en espérant d'avoir filé une astuce d'optimisation  ;)
++

Le : 08/05/2008 23:54:40
Source : MIDDLEBUTTON COPYPASTE [ADDIN VB6]

Salut Jack, et merci pour ton comm  ;)

Il est vrai que c'est pratique, dommage que je n'arrive pas à l'adapter pour vba  :(
(erreur incompatibilité, impossible à débugger vu que la dll est déjà lié en tant que complément à Office)

J'essaie juste de restaurer le clipboard (voir ne pas l'utiliser, ce serait mieux) mais ça ne fait pas ce que je veux (Topic ouvert d'ailleurs à ce sujet, aujourd'hui).
On verra si l'avenir m'est favorable  :D

C & V étant proche, je reconnais qu'il est facile de se mélanger les pinceaux. pareil, sous notre OS, on a F3 pour copier et F4 pour coller. Bien pratique aussi.

++

Le : 08/05/2008 22:40:08
Source : RESTRICT MOUSE REGION

Salut Kenji,

regarde les infos de sa source (à côté de 'Aucune Note') :
Catégorie :Souris, Clavier, etc. .NET

C'est pour ça, ça m'a induit en erreur, bien que je trouvais le code fort ressemblant au vb6.
(pis à force de voir des développeurs imbriquer les deux..)

Du coup cette source est un doublon de la mienne :
http://www.vbfrance.com/codes/CLASS-RESTREINDRE-CURSEUR-SOURIS-ZONE-CONTROLE_43074.aspx

Merci pour tes yeux de Lynx ;)
@ bientôt Kenji
++

Le : 08/05/2008 21:46:29
Source : RESTRICT MOUSE REGION

Salut,

tiens c'est amusant, j'ai fait une source de genre il y a qques temps, en vb6 :D

Bref, bien que je ne sois pas en dot Net, l'api que tu utilises (GetClientRect) à sa propre fonction désormais dans le framework : System.Windows.Forms.Form.ClientSize.

Voilou, bonne continuation,
@++

Le : 08/05/2008 18:25:09
Source : [CLASS] RESTREINDRE LE CURSEUR DE LA SOURIS À UNE ZONE DE CONTRÔLE

Salut,

merci ;)
@++

Le : 07/05/2008 19:37:25
Source : MIDDLEBUTTON COPYPASTE [ADDIN VB6]

Salut Cirec,

excellente question, il faudrait tester !
Ca a beau être sous-classé, je ne sais pas comment cela fonctionne avec une affectation de click par un programme tiers.

T'as plus qu'à te mettre à VB pour le savoir :D

Ou si quelqu'un d'autre connait la réponse ;)
@++

Le : 07/05/2008 07:14:20
Source : MIDDLEBUTTON COPYPASTE [ADDIN VB6]

merci pour les infos, j'avais pas vu Lines, j'y travaille déjà pour ne récupérer que la sélection.

Le : 07/05/2008 04:49:29
Source : GESTION DE STOCK

Salut,

j'ai pas testé mais juste regardé le code. D'ailleurs heureusement qu'on ait accès au projet vba, c'est le but de ce site.

Je pense que tu peux optimiser deux domaines, un moment, tu répètes des instructions pour différentes plages de cellules. Une boucle voir une fonction avec boucle serait plu simple.

Et tu gagnerais à faire des boucles sur des variables de type tableau.

Sinon, pourquoi deux UserForms pour la création et la modification ?
Il suffirait de modifier le Caption du bouton selon ce que l'utilisateur fait, et ensuite ton bouton lance la procédure qui est associé au caption.

Allez, une tite dernière, dans l'UserForm 'Uf', tu as une sub : FIlTReR.
Le paramètre 'Col', et les variables 'Lg', 'i' & 'NbChamP2' ne sont pas utilisés

Voilà en gros,
bonne continuation