optimisation Macro

[Bruce68]

Bonsoir à tous
N' étant pas un surdoué dans la fabrication des macros excel je vous demande de regarder la macro dans fichier ci joint et de me dire ou on pourrait encore l'améliorer et de me donner les explications pour pouvoir encore me perfectionner.
Merci de votre aide et bonne fêtes à tous.

 

[MAZETTE]

Re : optimisation Macro

Salut,

Un essai avec la formule:

=SI(B8=MAX($B$8:$H$8);"Meilleur jour";SI(B8=MIN($B$8:$H$8);" Mauvais jour ";""))

que tu tires vers la droite et quelques calcul automatisé

@+

 

[MAZETTE]

Re : optimisation Macro

Re le fil

Désolé je me suis trompé de fil ...donc ne pas tenir compte de la réponse

@+

 

[tirex28]

Re : optimisation Macro

Bonsoir,

- Tu devrais déclarer le type de tes variables selon les données qu'elles contiennent.

Dim i As Long, Ecart As Integer .....
'Plutot que
Dim Lettre, x, u, i, l, xsel, Nbr_Ligne, j, x2, x3, v, Nbr_Lig, z, Max, T_F(1, 50), Ecart

- Ton tableau T_F semble inadapté, la premiere dimension ne contient aucune information, de plus il est déclaré au niveau module et dans la procédure.

- Certaines variables sont déclarées mais jamais utilisées (nbr_lig, nbr_ligne, x3), de plus utiliser un nom de variable ressemblant à une adresse de cellule peut porter à confusion.

- Si tes variables ne sont utilisées que dans une seule procédure il vaut mieux les déclarer à l'intérieur de cette procédure, cela évite de conserver leurs valeurs entre chaque exécution de la procédure.

- Rien ne t'oblige à sélectionner tes feuilles ou tes cellules pour les modifier, il suffit de déclarer une variable et d'y affecter une feuille au debut de la procedure pour pouvoir y acceder ensuite:

Dim Tournoi As Worksheet
Set Tournoi = Worksheets("Tournoi")
...
Tournoi.Range(....)

- Le copier-coller n'est pas nécessaire pour transférer des données, tu peux directement faire par exemple:

Worksheets("Tournoi").Range("A1").Value = Worksheets("Series").Range("F12").Value

- Lorsque tu fais une boucle, essaye d'y insérer le minimum d'instructions, par exemple applique ton format une fois que tu as transféré toutes tes données et non pas après chaque transfert.

- Quel est l'utilité de ces instructions?

If xsel = "" Then
End If

- Quand tu utilise

Range("J" & Cells.Rows.Count)
'tu récuperera toujours (sauf xl2007) la valeur 65536, autant faire:
Range("J65536")

- Dans le même ordre d'idée pour éviter une concaténation dans tes boucles:

Range("J" & i)
'se remplace par 
Cells(i,10)

Bonne chance et bonnes fêtes,

Tirex28/

 

[Bruce68]

Re : optimisation Macro

Bonsoir à tous

Merci Tirex28 pour ta repones et tes explications .
J'ai commencé à suivre tes conseils et mon remplissage de mon tableau ne fonctione plus
Voici ce que j'ai ecris:

Sheets("Ratio").Select
For i = 2 To Range("G65535" & Cells.Rows.Count) Marche pas
xsel = Left(Cells(i & 7), 1)
If xsel <> Left(Cells(i - 1 & 7), 1) Then ici marche pas (pour eviter les doublons)
T_Cat(1, u) = Left(Cells(i & 7), 1)
u = u + 1
End If
Next i

Pour moi tes explications sont un peut trop succintes, si tu pouvais developper un peut plus se serais meilleur pour moi et peut etre pour les autres.
J'apprends à faire des macros en puisant celle ci sur les forums et j'essai de les adapter.
Merci de ton aide et de tous.

 

[tirex28]

Re : optimisation Macro

Bonsoir,

Ci-joint ton fichier revu en partie avec commentaire, si tu as des questions n'hesite pas.

Cordialement,

Tirex28/

 

[Bruce68]

Re : optimisation Macro

Bonsoir à tous
Merci beaucoup Tirex28 pour ton petit bout de macro modifiée, je vais essayer de faire la 2° partie mais ce n'est pas gagné avec le With pour eviter de changer de feuille comme il y 2 feuilles sur le prochain bout de macro je ne vois pas encore comment il faut organiser tout cela, mais je vais essayer.
Merci encore pour ton aide .

 

[tirex28]

Re : optimisation Macro

Bonsoir,

je ne vois pas encore comment il faut organiser tout cela, mais je vais essayer.

C'est en forgeant ...

N'oublie pas ton ami F1 et bon courage,

Tirex28/

 

[Bruce68]

Re : optimisation Macro

Bonjour à tous, bonjour Tirex28

Je n'arrive pas à remplacer ceci sans faire : copier coller special là je séche depuis hier soir.

For j = 3 To z
If Left(Cells(j, 6), 1) = x Then
Range("A" & j & ": Q" & j).Copy
Ecart = Ecart + 1
Sheets("Serie").Select
Range("A1").Offset(Ecart, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.Interior.ColorIndex = 15
Sheets("TOURNOI").Select
v = v + 1
If v = Max Then j = z
End If
Next j

Merci pour ton aide precieuse

 

[tirex28]

Re : optimisation Macro

Bonsoir,

Code et explications dans le fichier joint, en esperant que ca t'aide.

Bonne fetes,

Tirex28/

 

[Bruce68]

Re : optimisation Macro

Bonjour à tous et bonjour Tirex28

Je te remercie Tirex28 pour ton fichier et toutes tes explications avec ça je pourrais m'en sortir beaucoup mieux.
L'exemple que j'avais mis dans le forum n'etait qu'un petit bout du fichier en réalité il est bien plus important, il sert à gerer les concours de scrabble depuis l'inscription jusqu'au tournoi final donc avec toutes tes explications je vais pouvoir l'améliorer.
Merci encore pour tout .

Bonne fete à tous