Optimisation possible ou non?

[mercure26]

Bonjour le forum,

Etant débutant sur Excel/VBA j'aimerai savoir si les plus confirmé pouvai me dire si mon code est optimisé ou si il y a des risques de bugs ou autre choses.

Normalment ca fonctionne je l ai testé sous Excel 2000.

Merci de votre aide

Gaetan

Ps: ci-joint mes fichiers

 

[vbacrumble]

Re : Optimisation possible ou non?

Bonjour

Ton code ne ressemble pas à celui d'un débutant 😕

 

[mercure26]

Re : Optimisation possible ou non?

Et pourtant si j ai commencé le VB il ya 1mois et c'est mon tout 1er code

 

[vbacrumble]

Re : Optimisation possible ou non?

Re

Alors bravo

Un exemple de modif possible
Remplacer

If valider = False Then
sh.Cells(numero, 1).Value = ""
sh.Cells(numero, 2).Value = ""
sh.Cells(numero, 3).Value = ""
sh.Cells(numero, 4).Value = ""
sh.Cells(numero, 5).Value = ""
sh.Cells(numero, 6).Value = ""
sh.Cells(numero, 7).Value = ""
sh.Cells(numero, 8).Value = ""
sh.Cells(numero, 9).Value = ""
sh.Cells(numero, 10).Value = ""
Else

par

If valider = False Then
for z=1 to 10
sh.Cells(numero, z).clearcontents
next z
Else

 

[mercure26]

Re : Optimisation possible ou non?

Ah oui j avais pas penser a ça

Merci vbacrumble ca marche nikel

 

[mromain]

Re : Optimisation possible ou non?

bonjour,

ou alors pour éviter la boucle :

If valider = False Then: sh.Range(sh.Cells(numero, 1), sh.Cells(numero, 10).ClearContents
Else

 

[mercure26]

Re : Optimisation possible ou non?

Super merci a toi aussi mromain je vais me la garder de coté cette formule 😀

 

[vbacrumble]

Re : Optimisation possible ou non?

re


houps pas pensé à cela 😱

la solution de mromain est plus élégante.

 

[mercure26]

Re : Optimisation possible ou non?

Ok merci de votre aide je suis sur que je vais apprendre beaucoup de chose encore à vos cotés

 

[mercure26]

Re : Optimisation possible ou non?

bonjour,

ou alors pour éviter la boucle :

If valider = False Then: sh.Range(sh.Cells(numero, 1), sh.Cells(numero, 10).ClearContents
Else

Il manque une parenthèse dans ta formule je me permet de la remmettre correctement

If valider = False Then: sh.Range(sh.Cells(numero, 1), sh.Cells(numero, 10)).ClearContents
Else