Discussion :

[Medde]

Bonjour,
Ma boucle "if" ne fonctionne avec ma colonne horaire (14:00:00, 15:00:00, 16:00:00)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub copy_if()
Dim rg As Range, cell As Range
Dim i As Integer, j As Integer
Set rg = Worksheets("Sheet1").Cells(1).CurrentRegion
j = 0
i = 2
For Each cell In Worksheets("Sheet1").Range("A2:A4322")
If cell = "14:00:00" Then
j = j + 1
rg.Rows(i).Copy Worksheets("Sheet2").Range("A1").End(xlUp).Offset(j, 0)
End If
i = i + 1
Next cell
End Sub

Lorsque je remplace les valeurs de ma colonne horaire en y insérant le chiffre 2 (Condition : If cell = "2") mon code fonctionne nickel ! (Copie toutes les lignes dont la colonne horaire contient le chiffre 2)
D'où vient le problème ?

Merci.
Bonne journée.

[Theze]

Bonjour,

Essai avec :

Code :

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

1
2
 
If cell.Text = "14:00:00" Then

Hervé.

[Medde]

Oui, ça marche nickel. Merci Hervé.
J'ai pourtant définit le format de ma colonne horaire au format temps ! Pourquoi c'est du texte ?

[Theze]

Re,

La propriété par défaut de Cell c'est Value donc, si tu as entré une valeur numérique dans la cellule et que tu l'as formaté au format heure, la valeur reste la valeur numérique par contre ce que tu vois de la cellule c'est le texte affiché du format donc la valeur de la propriété Text. Pour voit ça, entre la valeur de 0,5 en A1, formate en Heure (tu auras 12:00:00 puisque c'est la valeur d'une demi journée) et lance ce code :

Code :

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

1
2
3
4
5
6
7
 
Sub Test()
 
    MsgBox Range("A1").Value
    MsgBox Range("A1").Text
 
End Sub

Hervé.

[Medde]

Là c'est beaucoup plus clair. Merci.
Bonne journée.