Optimisation de code en vba pour excel

[rimbaut]

Euh, excuse moi, je ne vois pas quelle serait cette structure assez simple. Pourrais tu m'en dire un peu plus ?

 

Je te remercie vivement

[sebdraluorg]

re,

 

Quand je dis structure assez simple, je veux dire que tu garde un code simple, (simple a mettre en place, a lire et a modifier)

 

Exemple:

 

Do While Sheets("Balance").Cells(y, 1).Value <> "" ' la boucle s'arrete quand la cellule
' est vide

lVal = CLng(Left(Sheets("balance").Cells(y, 1).Value, 3))


Select Case lVal
	Case 601

	Case 603
		'6031 ici on verifie si le chiffre apres le 3 est bien 1
		if mid(Sheets("balance").Cells(y, 1).Value, 4, 1) then

		end if

End Select

 

Autre chose, tu as 2 fois la case 6031, la deuxieme ne sera jamais utilisée...

 

++

[rimbaut]

Bonjour sebdraluorg,

En fait j'ai fait 2 boucles, une pour les entiers à 3 chiffres et l'autre pour les entiers à 4 chiffres. Ceci me permet de mieux structurer ma pensée.

Merci beaucoup pour ton aide qui m'a été fort précieuse