la fonction DatePart incompatibilité de type

Version imprimable

Bonjour le forum,
Mon code a une erreur de type.:P

J'ai un tableau où j'aimerais que si la date (ex : 20/04/2010) est de 2010 je la sourligne en vert, si elle est de 2011 je la sourligne en bleu ... ect

Sauf que mon soucis aujourd'hui c'est que ma date estsous la forme de jj/mm/yyyy et que je ne veux traiter que la valeur du mois.

Donc dans mon code voilà la ligne qui cloche

Code:

If DatePart("m", .Cells(i, 1)) = strtext Then

:aie:

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 mafonction(strtext As String, intCOlorIndex)
 
Dim i As Integer, verif As Integer, plage1 As String
Dim LaDerniere As Integer
 
 
With Worksheets("CUR ASTREINTE")
   LaDerniere = .Range("A" & .Rows.Count).End(xlUp).Row
   verif = 0
   For i = 1 To LaDerniere
         If DatePart("m", .Cells(i, 1)) = strtext Then
            verif = verif + 1
            If verif = 1 Then
               plage1 = .Range("a" & i).Address
               Else
               plage1 = plage1 & "," & .Range("A" & i).Address
            End If
         End If
   Next i
  If Not Range(plage1) Is Nothing Then Range(plage1).Select
  Range(plage1).Interior.ColorIndex = intCOlorIndex
 
End With
 
End Sub
 
 
 
Sub text1()
Call mafonction("04", 4)
End Sub

bonjour,

utilise Month à la place de DatePart,

Code:

=mafonction(2;6)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub mafonction(strtext As interger, intCOlorIndex)
Dim i As Integer, verif As Integer, plage1 As String
Dim LaDerniere As Integer
With Worksheets("CUR ASTREINTE")
   LaDerniere = .Range("A" & .Rows.Count).End(xlUp).Row
   verif = 0
   For i = 1 To LaDerniere
         If Month(Cells(i, 1)) = strtext Then
            verif = verif + 1
            If verif = 1 Then
               plage1 = .Range("a" & i).Address
               Else
               plage1 = plage1 & "," & .Range("A" & i).Address
            End If
         End If
   Next i
  If Not Range(plage1) Is Nothing Then Range(plage1).Select
  Range(plage1).Interior.ColorIndex = intCOlorIndex
End With
End Sub

Bon en fait le soucis je viens de comprendre.:ccool:
En fait quand j'appelle mafonction avec celle ligne de code, qui recherche toute les valeur de 2014, ça me crée un bug alors que les autres (avec 2010, 1011, 2012 y a pas de soucis.

Code:

Call mafonction(2014, 2)

Ca viens du fait que dans mon tableau 2014 n'existe pas alors que les autres apparaissent au moin une fois.
La ligne qui bug pour 2014 c'est

Code:

If Not Range(plage1) Is Nothing Then Range(plage1).Select

Je comprends pas pourquoi??? :roll:
erreur soulignée "méthode range de l'objet à échoué"
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 32 33 34 Sub mafonction(strtext As String, intCOlorIndex) Dim i As Integer, verif As Integer, plage1 As String Dim LaDerniere As Integer With Worksheets("CUR SEMAINE") LaDerniere = .Range("A" & .Rows.Count).End(xlUp).Row verif = 0 For i = 3 To LaDerniere If Year(.Cells(i, 1)) = strtext Then verif = verif + 1 If verif = 1 Then plage1 = .Range("a" & i).Address Else plage1 = plage1 & "," & .Range("A" & i).Address End If End If Next i If Not Range(plage1) Is Nothing Then Range(plage1).Select Range(plage1).Interior.ColorIndex = intCOlorIndex End If End With End Sub Sub text1() Call mafonction(2010, 3) Call mafonction(2011, 4) Call mafonction(2012, 4) Call mafonction(2014, 2) End Sub

19/04/2010, 15h53
sabzzz

bonjour adriennoob,

j'ai fais un test avec ta function et je n'ai pas ce message d'erreur, peut tu essayer ce fichier pour voir si tu as toujours la même erreur,

http://cjoint.com/?etpZERXTbw
19/04/2010, 16h44
adriennoob

J'ai essayé quelque truc mais ça ne marche vraiment pas.

Si j'active le tiens non pas en cliquant sut le bouton, mais en passant par l'interface VBA, il bug aussi. Par contre il marche bien si je clic sur le bouton.
???????? 8O

Pardon de surcharger la discussion mais juste tu verra que si tu eesaye avec 2009 tu ne pourra pas le sourligner. C'est là mon problème c'est que la date 2009 n'est pas compris dans le tableau de donnée car tu commence a i =3 ...
Et tu remarque que si la valeur 2009 n'est pas dans les données alors ça buggg :mouarf: :mouarf:
19/04/2010, 17h43
sabzzz

essai en modifiant la commande:

Code:

If Not Range(plage1) Is Nothing Then

par:

Code:

If Not plage1 = "" Then
19/04/2010, 18h39
adriennoob

Nikel, c'est exactement se que je voulais ça fonctionne