Discussion :

[Jay29]

Bonjour!!!

J'ai créer une macro sous excel cependant il m'indique une erreur que je ne comprend pas. Voici le code en question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Ancienneté
 
  Dim firstDate As Date
 
  Dim Ancien As Date
 
  ActiveSheet.Range("AB1").Value = "Ancienneté création"
 
  firstDate = CDate(InputBox("Entrer une date"))
 
  ActiveSheet.Range("AB2").Value = DateDiff("m", ActiveSheet.Range("O2").Value, firstDate)
 
  ActiveSheet.Range("AB2").NumberFormat = "General"
 
  ActiveSheet.Range("AC1").Value = "Ancienneté instruction"
 
  ActiveSheet.Range("AC2").Value = SI(ActiveSheet.Range("F2").Value < 4, -1, SI(ActiveSheet.Range("F2").Value > 6, "", SI(ActiveSheet.Range("R2").Value = "", "NA", DateDiff("m", ActiveSheet.Range("R2").Value, firstDate))))
 
  ActiveSheet.Range("AC2").NumberFormat = "General"
 
End Sub

Lorsque je lance cette macro il m'indique une erreur au niveau de la ligne en gras, il me dit "Erreur de compilation : Sub ou Function non définie" en me surlignant le 3eme "SI" de la ligne. Merci d'avance pour votre aide !!!

[jfontaine]

Bonjour,

Tout d'abord, pense a mettre ton code entre balise code (l'icone dièse)

Si tu veux inserer une formule, il te faut utiliser l'instruction FormulaLocal

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ActiveSheet.Range("AC2").FormulaLocal= "=SI(F2< 4, -1, ...."

[Jay29]

Merci pour cette réponse rapide.
Cependant il me met encore une erreur en me surlignant "NA" et me dit " Erreur de compilation : Attendu : Fin d'instruction". Voici la ligne modifié que j'ai tapé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Range("AC2").FormulaLocal = "=SI(F2<4,-1,SI(F2>6,"",SI(R2="","NA",DateDiff("m", ActiveSheet.Range("R2").Value, firstDate))))"

Une autre petite question, est-ce que le code peut être incrémenté avec l'utilisation de FormulaLocal ?

[jfontaine]

En VBA les Guillemets permettent de sortir d'une zone de texte, si tu utilises des guillements dans une formule, il faut les doubler

J'ai corigé mais pas testé, il peut y avoir encore quelques anomalies

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Range("AC2").FormulaLocal = "=SI(F2<4,-1,SI(F2>6,"""",SI(R2="""",""NA""," & DateDiff("m", ActiveSheet.Range("R2").Value, firstDate) & ")))"

[mercatog]

Comme tu continues sur tes pas pourquoi vouloir passer par une formule alors qu'à l'intérieur de ton code tu peux récupérer ce que tu veux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Res As Variant
 
If Range("F2") < 4 Then
    Res = -1
Else
    If Range("F2") < 6 Then
        If Range("R2") = "" Then
            Res = "NA"
        Else
            Res = DateDiff("m", Range("R2").Value, firstDate)
        End If
    End If
End If
Range("AC2") = Res

Mais ça reste une proposition

[Jean-Philippe André]

salut,
en lieu et place du if then imbriqué, un select case fera aussi l'affaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Select Case Range("F2")
 Case Is < 4 : Res = -1
Case Is < 6 : Rest = "NA"
Case Else : Res = DateDiff("m", Range("R2").Value, firstDate)
End Select

à noter qu'une fois que le code entre dans un case, il ressort directement à End Select