Discussion :

[myk636]

Bonjour à tous et merci pour l'aide que vous pourrez m'apporter.

Je cherche à simplifier le code suivant pour éviter que mon macbook ne rame trop en l'exécutant

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub ballonperduA1()
Rows("9").EntireRow.Hidden = True
Rows("10:12").EntireRow.Hidden = False
Rows("13:20").EntireRow.Hidden = True
Rows("29:30").EntireRow.Hidden = False
Rows("31:32").EntireRow.Hidden = True
Rows("33").EntireRow.Hidden = False
Rows("34:36").EntireRow.Hidden = True
End Sub

SI vous avez une idée car je ne parviens pas à mettre plusieurs lignes en True ou False. J'ai essayé les virgules

Code :

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

1
2
3
4
5
 
Sub ballonperduA1()
Rows("9, 13:20, 31:32, 34:36").EntireRow.Hidden = True
Rows("10:12, 29:30, 33").EntireRow.Hidden = False
End Sub

mais cela engendre une erreur.

Merci beaucoup

Mickael

[unparia]

Bonjour
Je n'ai en général pas envie de répondre lorsque je vois que l'on abuse de la tolérance de VBA.
Un numérique n'est pas une chaîne de caractère
Si vba se montre tolérant et parvient à interpréter Rows("3") (comme étant rows(3) ), comment veux-tu qu'il interprète par exemple , en dépit de toute sa tolérance, Rows("10:12, 29:30, 33") ???

Nonobstant (tu es débutant), regarde ce que fait ceci (exemple) :

Code :

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

Union(Rows(1), Range(Rows(12), Rows(14))).EntireRow.Hidden = True

[myk636]

Merci pour ta réponse.
Le temps passe de 8" à environ 5" pour exécuter le code ! top !
L'objectif est de masquer ou afficher certaines lignes dans lesquels se trouvent des boutons et ceci selon un algorithme de jeu en basket.
Je peux cliquer sur 8 boutons auxquels sont associés des actions : perdre le ballon, faire une faute, intercepter, tirer, marquer .... mais quand je clic sur " tirer" je veux qu'il ne reste que 2 boutons correspondant à 2 choix d'actions : ballon récupéré ou panier.
Je ne connais pas d'autres solutions que de masquer ou afficher les lignes pour cela.
Si tu as une autre idée qui soit plus rapide je suis preneur aussi.


En tout cas un grand merci pour votre expertise et conseils.

Mickael

[patricktoulon]

Bonjour
perso je mettrais tout en hidden et afficherais que les voulus

Code :

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

1
2
3
4
Sub ballonperduA1()
Range("A9:A36").EntireRow.Hidden = True
Range("A10:A12,A29:A30,A33").EntireRow.Hidden = False
End Sub

[myk636]

Merci pour ta suggestion mais cela ne permet pas de réduire significativement le temps de réalisation de la macro...
Dommage. Avec un autre PC les calculs seraient peut être plus rapides.

Merci pour vos aides respectives

A bientôt

Mickael