chris09300
Messages postés140Date d'inscriptionlundi 9 juin 2008StatutMembreDernière intervention18 avril 2012
-
2 mai 2010 à 21:34
chris09300
Messages postés140Date d'inscriptionlundi 9 juin 2008StatutMembreDernière intervention18 avril 2012
-
3 mai 2010 à 14:20
Bonsoir
J'ai une macro, dont une partie me parais fastidieuse, je mets une partie du code en dessus. Je souhaterais simplifier cette derniere. si la cel O12 inf a 0 etcet j'ai cela jusqu'a la cel O40 et chaque foir je recopie le if et end if. Quelqu'un peux t'il me dire comment simplifier tout ca.
merci
If Range("O12") > "0" Then
Sheets("1").Activate
Range("E4") = "Especes"
Range("B4") = Range("E1")
End If
Sheets("Menu").Select
If Range("O13") > "0" Then
Sheets("1").Activate
Range("E5") = "Especes"
Range("B5") = Range("E1")
End If
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 201315 3 mai 2010 à 12:34
Salut,
Une solution parmi d'autres:
Dim i as Integer
For i=12 To 40
If Range("O" & i).value > "0" Then
With Sheets("1")
.Range("E" & i-8) = "Especes"
.Range("B" & i-8) = .Range("E1")
End With
End If
Next