Discussion :

[tibss]

Bonjour,

J'ai créé un code de mise en forme, que j'aimerais appliquer à quatre tableaux totalement similaires.
Problème : le code fait plusieurs centaines de lignes, et je n'ai pas envie de le copier coller 4 fois pour l'appliquer au retraitement des quatres tableaux.

Je ne maîtrise pas trop les fonctions VBA, et je voulais donc savoir si il était possible de créer une fonction pour ce type de code ?

Si oui, comment l'implémenter?

Je vous remercie d'avance

A bientôt

[Jean-Philippe André]

salut,

tu peux écrire le code en question dans un module plutôt qu'ua niveau de la feuille de tes tableaux.

Pour l'appliquer à plusieurs reprises sur différents tableaux, il faut utiliser les paramètres dans ta fonction/procédure.

Tu pourras y passer des plages de cellules ou un nom de tableau, voire une combinaison des deux

Peut-on avoir une partie de ton code actuel, pour proposer des adaptations ?

[ucfoutu]

Bonjour,

Une fonction reçoit des paramètres et retourne une valeur (du type défini pour la fonction).
Elle s'utilise en lui passant les paramètres qu'elle doit traiter.
exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
  Dim toto As Integer, titi As Integer
  toto = 5
  titi = 3
  MsgBox tafonction(toto, titi)
 
End Sub
 
Private Function tafonction(byval n1 As Integer,  byval n2 As Integer) As Integer
  tafonction = n1 + n2
End Function

Reste à savoir ce que fait ton code et si c'est vraiment d'une fonction que tu as besoin ...

[tibss]

Merci de vos réponses !

Pour être plus précis, on considère que j'ai des tableaux sur "feuil1", "feuil2", "feuil3", "feuil4" ayant tous le même format et des données différentes.

J'ai voulu créer une fonction de mise en forme.
Individuellement, mon code fonctionne, mais lorsque j'essaie de le mettre sous forme de fonction, le message d'erreur suivant m'est retourné : "objet requis"

Par exemple, j'appelle la conction de la manière suivante pour la mise en forme sur feuil1:
MEF_1er_slide(Feuil1)

Voici mon code qui concerne la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
39
40
41
42
43
44
45
46
47
 
 
Static Function MEF_1er_slide(nom_table As Worksheet)
ThisWorkbook.Sheets("nom_table").Activate
'Mettre en forme les en-têtes du tableau
Range(Cells(1, 1), Cells(1, 4)).Select
Selection.Font.Bold = True ' mettre en gras
Selection.Font.ColorIndex = 2 ' mettre en blanc
Selection.Interior.ColorIndex = 30 ' mettre la cellule en bordeau
Cells(1, 1).Value = "Notations"
Cells(1, 2).Value = "Circuit"
Cells(1, 3).Value = "En nombre"
Cells(1, 4).Value = "En %"
 
'Centrer les données du tableau
Cells(1, 1).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
With Selection
.HorizontalAlignment = xlHAlignCenter
.VerticalAlignment = xlVAlignCenter
End With
 
'On tri la colonne A de façon décroissante en déclarant A1 comme en-tête
Range("A1").Sort , Key1:=Columns("A"), Header:=xlGuess, Order1:=xlDescending
i = 0
Cells(1, 1).Select
 
'On compte le nombre de OK
For Each cellule In Range(Selection, Selection.End(xlDown))
If cellule.Value = "OK" Then i = i + 1
Next
 
'Réalise la somme pour les "Total"
Rows(i + 2).Insert
Cells(i + 2, 1).Value = "Total"
Cells(i + 2, 3).Value = Application.WorksheetFunction.Sum(Range(Cells(2, 3), Cells(i + 2, 3)))
Cells(i + 2, 4).Value = Application.WorksheetFunction.Sum(Range(Cells(2, 4), Cells(i + 2, 4)))
 
'Calcul somme pour "notations (*)"
Cells(k + 2, 1).Value = "Notations (*)"
Cells(k + 2, 3).Value = Cells(i + 2, 3).Value + Cells(k + 1, 3).Value
Cells(k + 2, 4).Value = Cells(i + 2, 4).Value + Cells(k + 1, 4).Value
 
etc... plein d'autres retraitements
 
End Function

Apparemment, je ne peux pas créer ma fonction dans ma "macro1"... donc je l'ai fait en dehors, et j'ai l'impression qu'à aucun moment ma fonction est lue...
Quand je fais : "outil => Macros => macros" je en vois que ma macro1 et pas ma fonction...


Je vous remercie d'avance pour votre aide.

[Jean-Philippe André]

dans un premier temps, sur le code en lui-même,

- est-ce voulu de passer en paramètre une worksheet globale ?
- est-ce voulu de passer en dur le nom de la feuille à activer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Sheets("nom_table").Activate

[tibss]

En ce qui concerne le paramètre « worksheet », c’est normal qu’il soit en variable de ma fonction.
J’aimerais pouvoir appliquer mon code à plusieurs feuilles qui contiennent des tableaux de même format.
Ainsi il me faudrait appeler 4 fois la même fonction, avec en paramètre le nom de chacune des feuilles, au lieu d’avoir à répéter 4 fois le même code.

J’aimerais donc pouvoir écrire :
ma_fonction (feuil1)
ma_fonction (feuil2)
ma_fonction (feuil3)
ma_fonction (feuil4)

( "ma_fonction" étant la fonction "MEF_1er_slide" évoquée plus haut dans le topic)

En ce qui concerne le fait de passer en dur le nom de la feuille à activer est sans doute une erreur de ma part. il aurait probablement été plus judicieux d’enlever les guillemets ?:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Sheets(nom_table).Activate

Je ne suis pas certain de la procédure à suivre pour mettre un nom de worksheet en variable d'une fonction
Il en est de même pour le "type" renvoyé par la fonction... je ne sais pas trop quel type renseigner étant donné qu'il s'agit d'un tableau...

bref, je suis un peu perdu

Je ne sais pas si je suis suffisamment clair... :s

[jojo86]

Pour ma part, j'aurais pas fait comme ça.

J'aurais juste passé le nom de la feuille qui appel la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Call NomDuModule.ma_fonction(CStr("feuil1"))

Si Feuil1 est la feuille active, tu peux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call NomDuModule.ma_fonction(CStr(ActiveSheet.Name))

Ensuite, ta Fonction doit être de cette forme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Function ma_fonction(NomFeuil As String)
  MsgBox NomFeuil 'affiche le nom de la feuille qui appelle la fonction
End Function

Voila !

[tibss]

Merci pour cette réponse !

Dois-je tapper cette instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call NomDuModule.ma_fonction(CStr("feuil1"))

dans un nouveau module ?
Et à quel moment la feuille à "activer" est spécifiée ?

[jojo86]

Si je comprend ce que tu veux faire (j'éspère que c'est ça), tu as ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Static Function MEF_1er_slide(nom_table As Worksheet)
ThisWorkbook.Sheets("nom_table").Activate
'Mettre en forme les en-têtes du tableau
Range(Cells(1, 1), Cells(1, 4)).Select
Selection.Font.Bold = True ' mettre en gras
Selection.Font.ColorIndex = 2 ' mettre en blanc
Selection.Interior.ColorIndex = 30 ' mettre la cellule en bordeau
Cells(1, 1).Value = "Notations"
Cells(1, 2).Value = "Circuit"
Cells(1, 3).Value = "En nombre"
Cells(1, 4).Value = "En %"
etc... plein d'autres retraitements
End Function

Qui est générique a plusieurs onglets.

Donc, si c'est le cas, place tout ton code (celui du dessus) dans un Module mais modifi ton code de cette façon:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Function MEF_1er_slide(nomtable As String)
ThisWorkbook.Sheets(nomtable ).Activate
'Mettre en forme les en-têtes du tableau
etc... plein d'autres retraitements
End Function

Ensuite, si sur ta feuil1 tu veux appeler cette fonction utilise cette procedure (ce code tu peux l'utiliser pour toute tes feuilles):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub AppelerFunction ()
  Call NomDeTonModule.MEF_1er_solide(CStr(ActiveSheet.Name))
End Sub

Par contre je ne comprend pas à quel moment tu veux mettre en forme tes feuilles, est-ce que la mise en forme dois ce refaire plusieurs fois?

Si tu veux mettre en forme tout tes tableaux d'un coup, essaye ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Call NomDeTonModule.MEF_1er_solide(CStr("Feuil1"))
Call NomDeTonModule.MEF_1er_solide(CStr("Feuil2"))
Call NomDeTonModule.MEF_1er_solide(CStr("Feuil3"))

Si tu ne comprend pas quelque chose, n'hesite pas !

[patricktoulon]

a suposer que ta fonction s'apelle "tartanpion" que tu a bien evidement place dans un module normal

si ta fonction doit ce faire au depart (a louverture du fichier)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
workbook.open()
 
call tartanpion

sita fonction est declenche par un bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
private sub nomdubouton()
 
call tartanpion

et ta fonction tartanpion

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    sub tartanpion()
 
dim nom, i as variant
nom=feuil
for i =1 to X ( X represente le nombre de feuille que tu veux traiter)
 
'dans ta fonction que tu a citer plus haut dans le topic tu remplace les nom de feuilles par
"feuil"& i
 
et le reste de ta fonction
 
 
'et a la fin de la fonction 
next
'tu a donc boucler le meme nombre de fois que tu a de feuilles a traiter
'et a chaque fois le "i"et incrementer de 1
 
'voila en gros mon idée

mais ya bien d autre solution

[tibss]

Une fois de plus, merci à tous pour vos réponses, elles m'ont toutes apportées une vision des différentes opportunités qui s'offraient pour résoudre mon problème.

J'ai finalement utilisé la solution de jojo86 qui correspond tout à fait à ce que je voulais faire.

Merci encore à tous !

A bientôt