boucle if then else dans une autre boucle if then else

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : boucle if then else dans une autre boucle if then else

tibo44

voila mon problème, j'ai une boucle if then else et après le then je voudrais mettre aussi une boucle if then else. Alors voila ce que j'ai fait mais ça ne marche pas. Pourriez vous me dire pourquoi?

If Sheets("Feuil1" ).Cells(8, 1) = ">" Then
If Val(Sheets("Feuil1" ).Cells(7, 2 * k + 8)) > Val(Sheets("Feuil1" ).Cells(9, 1)) Then Sheets("Feuil1" ).Cells(9, (2 * k + 8) - (2 * a + 1)) = Val(Sheets("Feuil1" ).Cells(7, 2 * k + 8)) Else Sheets("Feuil1" ).Cells(9, (2 * k + 8) - (2 * a + 1)) = Val(Sheets("Feuil1" ).Cells(9, 1))
End If
Else: Sheets("Feuil1" ).Cells(9, (2 * k + 8) - (2 * a + 1)) = Val(Sheets("Feuil1" ).Cells(7, 2 * k + 8)) / Val(Sheets("Feuil1" ).Cells(9, 1))
End If

merci

("PS: est ce que c'est correct le = ">" pour savoir si il y a écrit > dans la cellule)

Publicité

galopin01

bonsoir,
ça c'est une putain de formule de la mort !
Tu pourrais commencer par y mettre du With...
Structurer le tout de ligne en ligne

Code :

If.. Then
If.. Then
Else
End if
Else
End if

Supprimer le " : "

indenter (un peu, juste ce qu'il faut : pas trop pour voir le bout de ta ligne)
ça clarifierait un peu ton truc et tu verrais tout de suite ce qui cloche
Déclarer en plus quelques variables complémentaires...^

Une bonne macro doit tenir dans ton écran : si tu n'en vois pas le bout il y a des chances que tu n'y arrives pas.
La solution :

Code :

Sub test()
Dim x, y
With Sheets("Feuil1" )
x = Val(.Cells(9, 1))
y = Val(.Cells(7, 2 * k + 8))
If .Cells(8, 1) = ">" Then
If Val(.Cells(7, 2 * k + 8)) > x Then
.Cells(9, (2 * k + 8) - (2 * a + 1)) = y
Else
.Cells(9, (2 * k + 8) - (2 * a + 1)) = x
End If
Else
.Cells(9, (2 * k + 8) - (2 * a + 1)) = y / x
End If
End With
End Sub

A+

---------------
roger

tibo44

merci c'est super simpa. Ca a l'air de marcher. Merci beaucoup. En plus je ne connaissais pas le with sheets("feuil1" ). ça va bien m'arranger.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

boucle if then else dans une autre boucle if then else

Sujets relatifs
Supression de ligne en boucle (Word)	[Matlab] Boucle de lecture de fichier
Pb boucle for concaténé avec une variable	boucle!!
[PHP] Boucle do while() a condition multiples (résolu)	[resolu]condition dans une boucle
probleme boucle... grosse boucle... voir probleme à la fin	[VBScript] [RESOLU] modifier une fonction dans une boucle
[VBScript] [RESOLU] Boucle Do ... Loop	processus et boucle infinie -> ressources CPU à 100% ou pas?
Plus de sujets relatifs à : boucle if then else dans une autre boucle if then else

Page générée en 0.092 secondes