1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

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

Signaler
Messages postés
140
Date d'inscription
lundi 9 juin 2008
Statut
Membre
Dernière intervention
18 avril 2012
 -
Messages postés
140
Date d'inscription
lundi 9 juin 2008
Statut
Membre
Dernière intervention
18 avril 2012
 -
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
Afficher la suite

2 réponses

Réponse 1 / 2
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
 9
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+
Réponse 2 / 2
Messages postés
140
Date d'inscription
lundi 9 juin 2008
Statut
Membre
Dernière intervention
18 avril 2012
 1
super ca marche tres bien, je te remercie.
Répondre Posez votre question