Erreur de Compilation Macro

Version imprimable

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:

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 !!!

17/09/2009, 16h37
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:

1 2 ActiveSheet.Range("AC2").FormulaLocal= "=SI(F2< 4, -1, ...."
17/09/2009, 16h50
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:

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 ?
17/09/2009, 17h52
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:

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

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:

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

17/09/2009, 18h15
Jean-Philippe André
salut,
en lieu et place du if then imbriqué, un select case fera aussi l'affaire ;)
Code:

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 ;)
17/09/2009, 18h24
mercatog

Certes d'accord, mais tu n as pas vu une condition sur le R2;);)
17/09/2009, 23h35
Jean-Philippe André

autant pour moi, j'étais resté sur le F2 :oops:

Vraiment merci a tous pour votre aide.
Effectivement mercatog, ton code a l'air de fonctionner. J'ai essayé de l'incrémenter mais ça ne fonctionne pas :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub Macro1()
'
' Macro1 Macro
'
Dim firstDate As Date
Dim i As Long
 
Range("AC1").Value = "Ancienneté Instruction"
firstDate = CDate(InputBox("Entrer une date"))
For i = 2 To Range("O65536").End(xlUp).Row
 
Dim Res As Variant
 
If Range("F2" & i) < 4 Then
    Res = -1
Else
    If Range("F2" & i) < 6 Then
        If Range("R2" & i) = "" Then
            Res = "NA"
        Else
            Res = DateDiff("m", Range("R2" & i).Value, firstDate)
        End If
    End If
End If
Next i
Range("AC2:AC" & Range("AB65536").End(xlUp).Row).Value = Res
'
End Sub

Si tu essayais d'abord de fouiller un petit peu pour comprendre
pour incrémenter, nous avions utilisé une boucle sur i
à chaque tour de boucle le i n'incrémente pour obtenir par exemple:
i=2 -->F2
i=3-->F3
...etc Donc
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 Sub Macro1() ' ' Macro1 Macro ' Dim firstDate As Date Dim i As Long Range("AC1").Value = "Ancienneté Instruction" firstDate = CDate(InputBox("Entrer une date")) For i = 2 To Range("O65536").End(xlUp).Row 'Regarde ici si ta colonne O n'est pas vide Dim Res As Variant If Range("F" & i) < 4 Then Res = -1 Else If Range("F" & i) < 6 Then If Range("R" & i) = "" Then Res = "NA" Else Res = DateDiff("m", Range("R" & i).Value, firstDate) End If End If End If Range("AC" & i)=Res Next i 'Range("AC2:AC" & Range("AB65536").End(xlUp).Row).Value = Res ???? Que signifie ceci, tu mets dans toute la colonne AB la veleur Res récuppérée??? ' End Sub
PS. ça ne marche pas reste toujours vague
dans vba il y a plusieurs méthodes pour vérifier sois-même le déroulement de la procédure et trouver ce que ne fonctionne pas.
par exemple, tu dois te servir du pas à pas. En fin de compte, il est fait pour servir, non?
F8 dans le code, tu parcours ton code ligne par ligne (toujours par F8); si tu mets ton curseur sur une variable, un petit commentaire indique le contenu de ta variable. Bref, commençons par ceci d'abord

18/09/2009, 10h20
Jay29

Ah oui effectivement je n'avais pas vu ce détail et merci pour le pas à pas je ne savais pas l'utiliser (c'est la première fois que je fais des macros sous excel).
Par contre à ce moment là il faut que je créer deux variable alors. Une pour F et une pour R. Est-ce-possible de faire :

Code:

For i = 2 To Range("F65536").End(xlUp).Row and j = 2 To Range("R65536").End(xlUp).Row

Code:

1
2
3
4
5
For i =2 to X
For j=17 to Y
...'code
Next j
Next i

Voici le code arrangé que j'ai fait avec votre aide. Cependant il me reste une dernière erreur a résoudre. Il m'indique "Erreur d'exécution 1004 : La méthode Range de l'objet _Global a échoué" sur la ligne de code que j'ai mise en gras. J'ai tenté de la modifier en vain. Merci d'avance pour vos réponses.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 Sub Macro1() ' ' Macro1 Macro ' Dim firstDate As Date Dim i As Long Dim Res As Variant Range("AC1").Value = "Ancienneté Instruction" firstDate = CDate(InputBox("Entrer une date")) For i = 2 To Range("F65536").End(xlUp).Row For j = 2 To Range("R65536").End(xlUp).Row If Range("F" & i).Value < 4 Then Res = -1 Else If Range("F" & i).Value < 6 Then If Range("R" & j).Value = "" Then Res = "NA" Else Res = DateDiff("m", Range("R" & j).Value, firstDate) End If End If End If Range("AC" & j & i).Value = Res Next j Next i ' End Sub

18/09/2009, 18h32
mercatog

D'abord, si tu veux expliquer ce que tu veux faire avec tes boucles sur i et sur j.
Ensuite penser comment y arriver
Pour formaliser le tout, il faut avoir un minimum de notions sur vba
Regarde les tutos et les FAQ, ils sont intéressants.
21/09/2009, 09h32
Jay29

Les boucles sur i & j sont là pour incrémenter mon code. Comme cela, il prendra la cellule d'après automatiquement et j'en ai créer 2 car il y a 2 colonne a incrémenter, ici F et R. Cependant je ne sais pas si je m'y suis pris de la bonne façon. L'utilisation que j'ai faite de mes 2 boucles ont l'air bonne puisque il n'y a pas d'erreur lors de l'exécution de ma macro cependant le problème se trouve au niveau de cette ligne :

Code:

Range("AC" & j & i).Value = Res

De plus, ayant fait des recherche sur internet et m'être un peu plus informé sur le langage VBA, j'ai modifié cette ligne par :

Code:

Range("AC" & j , "AC" & i).Value = Res

Cependant j'ai toujours une erreur. Cette ligne consiste a stocké le résultat de mon code dans la colonne AC cependant je n'arrive pas à trouvé la bonne syntaxe malgré mes recherche. Merci pour votre aide.
21/09/2009, 09h41
mercatog

Bonjour,
Je doute bien si ce que tu veux faire: voilà pour simplifier:

Citation:

Si 4<F2<6 -->On boucle sur toute la colonne j-->On écrit quelque chose quelque part dans la colonne AC
ensuite
Si 4<F3<6 -->On boucle sur toute la colonne j-->On écrit quelque chose quelque part dans la colonne AC
ensuite
....

C'est pour quoi je réitère ma question: si tu peux expliquer en des termes claires ce que tu veux faire et non ce que ton code voudrait faire

En fait j'ai trouvé la solution, je me suis obstiné a faire 2 boule alors qu'une seul suffisait!! Voila comment je l'ai fait :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub Macro1()
'
' Macro1 Macro
'
Dim firstDate As Date
Dim i As Long
Dim Res As Variant
 
Range("AC1").Value = "Ancienneté Instruction"
firstDate = CDate(InputBox("Entrer une date"))
For i = 2 To ActiveSheet.UsedRange.Rows.Count
 
If Range("F" & i).Value < 4 Then
    Res = -1
Else
    If Range("F" & i).Value < 6 Then
        If Range("R" & i).Value = "" Then
            Res = "NA"
        Else
            Res = DateDiff("m", Range("R" & i).Value, firstDate)
        End If
    End If
End If
 
Range("AC" & i).Value = Res
Next i

Voila et merci beaucoup pour votre aide précieuse !!! :ccool: