[Déplacé .Net --> VBA] simplification d'une macro

Résolu
chris09300
Messages postés
140
Date d'inscription
lundi 9 juin 2008
Statut
Membre
Dernière intervention
18 avril 2012
- 2 mai 2010 à 21:34
chris09300
Messages postés
140
Date d'inscription
lundi 9 juin 2008
Statut
Membre
Dernière intervention
18 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

2 réponses

bigfish_le vrai
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
12
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


A+
3
chris09300
Messages postés
140
Date d'inscription
lundi 9 juin 2008
Statut
Membre
Dernière intervention
18 avril 2012
1
3 mai 2010 à 14:20
super ca marche tres bien, je te remercie.
0