Macro multiples conditions

Moonshine · 31 Janvier 2012

Bonsoir,
j'ai un problème avec une macro... Mon but est de créer deux variables qui pourront changer de valeur en fonction de la valeur d'une colonne. Ces variables seront intégrées dans un SelectCase qui comprend d'autres variables. Cette macro marche sans la partie avec X et Y en fait et je ne comprend pas ce qui ne marche pas. Je vous mets le code que j'ai fait. Je peux vous joindre un fichier Excel exemple si besoin.

Sub Réalisation_opération()

Dim i As Long
Dim LigDep As Long
Dim Nb_Lignes As Long
Dim Nb_Lignes1 As Long
Dim Nb_Lignes2 As Long
Dim Nb_Lignes3 As Long
Dim X As Long
Dim Y As Long

Dim varValH As Variant
Dim varValLG As Variant

' Ligne de départ et nombre de lignes à traiter
LigDep = 7
Nb_Lignes = 500

' Dernières lignes de chaque colonne
Nb_Lignes1 = Range("G" & Cells.Rows.Count).End(xlUp).Row
Nb_Lignes2 = Range("H" & Cells.Rows.Count).End(xlUp).Row ' Non utilisé ?
Nb_Lignes3 = Range("J" & Cells.Rows.Count).End(xlUp).Row ' Non utilisé ?

' Effacer le contenu de la colonne N à partir de la ligne 18
If Nb_Lignes1 >= LigDep Then Range("J" & LigDep & ":J" & Nb_Lignes1).ClearContents

' A partir de la ligne 18 jusqu'à la dernière
For i = LigDep To Nb_Lignes

' Vérifier que le contenu des cellules soient numériques
varValH = 0
If IsDate(Range("H" & i).Value) Then varValH = Range("H" & i).Value
varValG = 0
If IsDate(Range("G" & i).Value) Then varValG = Range("G" & i).Value

' Initialiser le fond de couleur de la cellule L
Range("J" & i).Interior.ColorIndex = xlNone
Range("J" & i).Font.ColorIndex = 1

If Range("F" & i).Value = "Hebdomadaire" Then Y = 2 And X = 7
If Range("F" & i).Value = "Bimensuel" Then Y = 4 And X = 15
If Range("F" & i).Value = "Mensuel" Then Y = 6 And X = 20
If Range("F" & i).Value = "Trimestriel" Then Y = 6 And X = 20
If Range("F" & i).Value = "Quadrimestriel" Then Y = 8 And X = 20
If Range("F" & i).Value = "Semestriel" Then Y = 8 And X = 40
If Range("F" & i).Value = "Annuel" Then Y = 10 And X = 45
If Range("F" & i).Value = "Biennal" Then Y = 10 And X = 45
If Range("F" & i).Value = "Quinquénal" Then Y = 10 And X = 45

Select Case varValH - varValG

Case -Y To Y
Range("J" & i).Value = "Dans les temps"
Range("J" & i).Interior.ColorIndex = 27

Case Y To X
Range("J" & i).Value = "Retard < " & X & " jours"
Range("J" & i).Interior.ColorIndex = 46

Case -7 To -X
Range("J" & i).Value = " Avance < " & X & " jours "
Range("J" & i).Interior.ColorIndex = 43

Case Is > X
Range("J" & i).Value = " Retard > " & X & " jours "
Range("J" & i).Interior.ColorIndex = 3

Case Is < -X
Range("J" & i).Value = " Avance > " & X & " jours "
Range("J" & i).Interior.ColorIndex = 4

End Select

If Range("H" & i).Value = "" Then
Range("J" & i).Interior.ColorIndex = xlNone
Range("J" & i).Value = ""
End If

Next
End Sub

Merci d'avance pour vos suggestions!

Victor21 · 31 Janvier 2012

Re : Macro multiples conditions

Moonshine à dit:
[...]

Merci d'avance pour vos suggestions!

Je vous suggère de joindre votre fichier, en ayant pris soin d'en modifier les éventuelles informations confidentielles. Les contributeurs pourront ainsi tester sur votre fichier les propositions qu'ils pourront être amenés à suggérer.

flyonets44 · 31 Janvier 2012

Re : Macro multiples conditions

Bonsoir
cette ligne me pose question : Select Case varValH - varValG
as tu vérifier les valeurs de ces deux variables dans le déroulement de ta macro
cordialement
Flyonets

Moonshine · 2 Février 2012

Re : Macro multiples conditions

Bonjour,

Désolée, voici le fichier qui peut servir de test. Mon but sur la macro Réalisation_opération est :
- qu'en fonction de la colonne F, la valeur de X et Y varie (ces valeurs se référant à la feuille référence).
- ensuite, pour chaque ligne, lorsque la valeur de X et Y sont attribuées (en fonction de la colonne F), faire la soustraction de la cellule G et H. La valeur pourra se situer dans différents cas (ex: entre -Y et Y), ce qui affectera une valeur dans la cellule en J.

Merci d'avance pour vos propositions.

Moonshine · 2 Février 2012

Re : Macro multiples conditions

J'ai oublié de te remercier Flyonets pour ta proposition ! Malheureusement cette ligne fonctionne (en fait avec des valeurs à la place des X et Y, ma macro marche bien). Mais merci, toutes les suggestions sont bonnes!!
Cordialement

Moonshine · 3 Février 2012

Re : Macro multiples conditions

Personne n'a d'idées sur cette macro ?? Help 🙂 !

Macro multiples conditions

Moonshine

Guest

Victor21

XLDnaute Barbatruc

flyonets44

XLDnaute Occasionnel

Moonshine

Guest

Pièces jointes

Moonshine

Guest

Moonshine

Guest

Discussions similaires

Macro multiples conditions

Moonshine

Guest

Victor21

XLDnaute Barbatruc

flyonets44

XLDnaute Occasionnel

Moonshine

Guest

Pièces jointes

Moonshine

Guest

Moonshine

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency