Discussion :

[adriennoob]

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

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 :

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

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

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

[sabzzz]

bonjour,

utilise Month à la place de DatePart,

Code :

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

=mafonction(2;6)

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

[adriennoob]

Bon en fait le soucis je viens de comprendre.
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 :

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

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 :

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

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

Je comprends pas pourquoi???
erreur soulignée "méthode range de l'objet à échoué"

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

[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

[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.
????????

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

[sabzzz]

essai en modifiant la commande:

Code :

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

If Not Range(plage1) Is Nothing Then

par:

Code :

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

If Not plage1 = "" Then