Sujet Précédent Sujet Suivant

[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

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

Discussions similaires

créer un tirage de tarot divinatoire
copersil -
bultez -

12 réponses
Tchat en C via internet
born2be -
katsankat -

5 réponses
Comment fonctionne la fonction FormulaR1C1
cs_razmokets -
wape -

2 réponses
fonction modulo en VBA
krisprolss -
Benouille -

2 réponses
macro, supprimer une feuille Excel SANs confirmation...
Bruno_65 -
Bruno_65 -

2 réponses
Rejoignez-nous