Demande d'astuce: Quelles sont les regles pour generaliser un code?

Version imprimable

14/04/2015, 11h11
scoulibri

Demande d'astuce: Quelles sont les regles pour generaliser un code?

Bonjour,

J'ai farmouille sur le site mais a part des corrections de macro, je ne trouve pas de generalite a cette question:

Citation:

Quelles sont les regles pour generaliser une macro?

Globalement, j'arrive a faire une macro correct mais je m'amuse a le copier a chaque fois pour modifier les parametres avec les risques d'instabilite et d'erreur que cela comporte.( Je passe plus de temps a corriger des erreurs de macro importe que d'en creer)

Je constate (et surtout j'utilise >> :merci: tout le monde) des procedures ou il suffit de mettre dans un module puis de l'appeler dans un autre avec les parametres voulues.

Comment on fait ca? :oops:
14/04/2015, 11h22
Nico Chg

Bonjour !

Citation:

Envoyé par Scoulibri

Je constate (et surtout j'utilise >> :merci: tout le monde) des procedures ou il suffit de mettre dans un module puis de l'appeler dans un autre avec les parametres voulues.

Comment on fait ca?

Qu'entends tu par là ? Tes macros sont dans des modules ? Peut être veux tu porter les macros d'un classeur sur d'autre ?

Si c'est bien le cas, il faut se tourner vers les AddIn .xlam. Ce sont des fichiers complémentaire, que l'on peut activer depuis n'importe quelle classeur. La méthode est plutôt simple : Tu créée un AddIn contenant les macros "générique", et tu peux l'appeler depuis d'autre classeur, pour réutiliser tes macros "générique". Attention à la construction de tes programme en ce cas, il faut être le plus générique possible !

Bonjour,

Citation:

Attention à la construction de tes programme en ce cas, il faut être le plus générique possible !

C'est exactement ma question. Quelles sont les regles pour rendre une macro le plus generique possible?

Intuitivement, je comprend que le choix du nom de la variable est determinant

par exemple je suis passée de cela

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub test()
Dim lastrow_month As Long
Dim lastrow_annual As Long
Dim month_sheet As Worksheet
Dim annual_sheet As Worksheet
Dim NoCol As Integer
Dim criteria_Cell As Range
Dim cell_destination As Range
Dim Nolign As Integer
 
 
Set annual_sheet = Sheets("citroen_sales")
lastrow_annual = annual_sheet.Range("A" & Rows.Count).End(xlUp).Row
'imaginons qu'on a le bon ordre :
 
Set month_sheet = Sheets("month")
lastrow_month = month_sheet.Range("A" & Rows.Count).End(xlUp).Row
 
'Pour chaque cellule de Q2 à QX
For Each criteria_Cell In month_sheet.Range("Q2:Q" & lastrow_month)
 
lastrow_annual = 0 'bonne position?    
 
  'Si on a "0" dans QY (Y varie de 2 à X)
        If criteria_Cell.Value = 0 Then
 
           'Je place dans annual_sheet à la dernière ligne non-vide de la colonne A avec un décalage d'une ligne l'ensemble des valeurs de la lignes criteria_Cell.
           annual_sheet.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).EntireRow.Value = criteria_Cell.EntireRow.Value
 
 
 
 
        End If
 
        lastrow_annual = lastrow_annual + 1
    Next
 
End Sub

Par exemple, je souhaite generaliser le code precedent. Meme si j'ai une erreur 438 (objet ne supporte pas la method) au niveau de "For each criteria_cell In sheetstart, j'obtiens cela en redefinissant les noms et definition de mes variables:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub Dealer_List(SheetStart, SheetDestination, Criteria_Cell, filter1, filter2)
 
For Each Criteria_Cell In SheetStart
 
 
        If Criteria_Cell.Offset(0, 1) = filter1 Or Criteria_Cell.Offset(0, 1) = filter2 Then
 
           SheetDestination.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).value = Criteria_Cell.value
           SheetDestination.Range("A" & Rows.Count).End(xlUp).Offset(0, 1).value = Criteria_Cell.Offset(0, -1).value
        End If
 
 
    Next
 
End Sub

Citation:

donc existe-il d'autre regles que la definition des variables et proprietes?

14/04/2015, 12h07
Marc-L

Citation:

Envoyé par scoulibri

Quelles sont les regles pour generaliser une macro?

De l'analyse, de la pure logique, du bon sens …

Donner la priorité aux fonctionnalités d'Excel avant le VBA,
par exemple la procédure ci-dessus serait bien plus rapide sans boucle via un filtre avancé !

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo
14/04/2015, 12h15
Nico Chg

Re-bonjour,

Nul besoin de déclarer tes subs en "Public", le fait de les mettre dans un module permet à toutes les macros du classeur d'y accéder. Si tu as besoin d'y accéder depuis un autre classeur, régulièrement, tourne toi vers les AddIn.xlam !

Afin d'être plus précis dans tes macros, type les arguments de tes subs / fonctions !

Code:

Sub macroAddition(nombre1 as single, nombre2 as single)

N'hésite pas à utiliser les arguments optionnels, pour rendre tes macros plus spécifique dans certain cas :

Code:

Sub macroAddiction(nombre1 as single, nombre2 as single, optional nombre3 as single, optional nombre4 as single)

J'utilise les "Sub" pour des procédures Excel, et des "Function" pour traiter des données. La principal différence entre ces deux instructions est que la Function retourne une valeur, ce que ne fait pas le Sub.

De manière général, essaie de découper ta macro en plusieurs petites instructions. Chacune des instructions peut être placées dans une fonction, et ainsi être réutilisées.

Voilà, ce sont quelques remarques en vrac, mais comme le dit Marc-L, il faut coder un peu pour avoir les habitudes ... C'est en forgeant qu'on devient forgeron, on ne se réinvente pas :mouarf:

Bon courage à toi !
14/04/2015, 13h18
Invité

Bonjour,
comme l'a dit Marc, de l'analyse, de l'analyse et encore de l'analyse.
ça nous occupe 80% de notre temps!
nous sommes des documentalistes, des rats de bibliothèques!

il faut découper ta problématique en plusieurs. comme le disait Descartes un problème compliqué se résume à une somme de petits problème!

c'est comme si je voulais me fabriquer un vélo!

il y a la partie cycle; il y a la partie cadre et la partie propulsion les pédales, la chaîne et le pignons!

en suite je découpe chaque module (Cadre,Cycle,etc...)
jante,pneu,moyeux, etc... pour obtenir les méthode de chaque modules!

et j'arrive tout naturellement sens vraiment me poser de question à des if then else

si tu travail comme ça les chose vont couler de source et tu de demandera pourquoi tu as posé la question!!!!
:applo: