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.