Comment calculer des heures dans listview vba excel

Bonjour,
Comment calculer des heures de jour et de nuit entre colonnes dans listview vba
excel
Cordialement

Le vendredi 09 Avril 2021 Í  11:34 par Gortex :

Bonjour,
Comment calculer des heures de jour et de nuit entre colonnes dans listview

vba

excel
Cordialement

Voici ce qui charge la listview
Sub Recherche_Infos_Affichage_LVW()
Dim rs As Object
Dim DT1, dt2
Dim PartTxt, Sql, Sql1, N, L, C, d, E, NbF
On Error Resume Next
Set rs = CreateObject("ADODB.recordset")
PartTxt = TextBox1
Sql = "select * from ["XXXXXXX"] where ["XXXXXXX"] like '%" & PartTxt & "%'
or ["XXXXXXX"] like '%" & PartTxt & "%' or ["XXXXXXX"] like '%" & PartTxt & "%'
or ["XXXXXXX"] like '%" & PartTxt & "%' or ["XXXXXXX"] like '%" & PartTxt & "%'
or ["XXXXXXX"] like '%" & PartTxt & "%' or ["XXXXXXX"] like '%" & PartTxt & "%'
or ["XXXXXXX"] like '%" & PartTxt & "%' or ["XXXXXXX"] like '%" & PartTxt & "%'
or ["XXXXXXX"] like '%" & PartTxt & "%'"
rs.Open Sql, Conn, 3, 3
If Not rs.EOF Then
rs.MoveFirst
NbF = rs.Fields.Count
NbRecord = rs.RecordCount
N = 1
Do While Not rs.EOF
With ListView1
.ListItems.Add , , rs.Fields(0)
For L = 2 To NbF
.ListItems(N).ListSubItems.Add , , rs.Fields(L - 1)
Next L
If .ListItems(N) = TextBox1 Then .ListItems(N).Bold = True
If .ListItems(N).ListSubItems(7).Text = "XXXXXXX" Then
.ListItems(N).Bold = True
.ListItems(N).ForeColor = vbGreen
For C = 1 To .ColumnHeaders.Count - 1
.ListItems(N).ListSubItems(C).Bold = True
.ListItems(N).ListSubItems(C).ForeColor = vbGreen
'couleur colonne 8
Next C
End If
If .ListItems(N).ListSubItems(7).Text = "XXXXXXX" Then
.ListItems(N).Bold = True
.ListItems(N).ForeColor = vbBlue
For d = 1 To .ColumnHeaders.Count - 1
.ListItems(N).ListSubItems(d).Bold = True
.ListItems(N).ListSubItems(d).ForeColor = vbBlue
'couleur colonne 7
Next d
End If
If .ListItems(N).ListSubItems(8).Text = "XXXXXXX" Then
.ListItems(N).Bold = True
.ListItems(N).ForeColor = vbRed
For E = 1 To .ColumnHeaders.Count - 1
.ListItems(N).ListSubItems(E).Bold = True
.ListItems(N).ListSubItems(E).ForeColor = vbRed
'couleur colonne 7
Next E
End If
End With
N = N + 1
rs.MoveNext
Loop
Label2.Caption = NbRecord & " enregistrement(s) !"
Else
MsgBox "Attention: pas d'enregistrement trouvé!!"
End If
rs.Close
Set rs = Nothing
End Sub

Bonjour,
Le 13/04/2021 Í  09:39, gortex a écrit :

Le vendredi 09 Avril 2021 Í  11:34 par Gortex :

Bonjour,
Comment calculer des heures de jour et de nuit entre colonnes dans listview

vba

excel
Cordialement

Voici ce qui charge la listview
Sub Recherche_Infos_Affichage_LVW()
Dim rs As Object
Dim DT1, dt2
Dim PartTxt, Sql, Sql1, N, L, C, d, E, NbF
On Error Resume Next
Set rs = CreateObject("ADODB.recordset")
PartTxt = TextBox1
Sql = "select * from ["XXXXXXX"] where ["XXXXXXX"]
like '%" & PartTxt & "%'
or ["XXXXXXX"] like '%" & PartTxt & "%' or
["XXXXXXX"] like '%" & PartTxt & "%'
or ["XXXXXXX"] like '%" & PartTxt & "%' or
["XXXXXXX"] like '%" & PartTxt & "%'
or ["XXXXXXX"] like '%" & PartTxt & "%' or
["XXXXXXX"] like '%" & PartTxt & "%'
or ["XXXXXXX"] like '%" & PartTxt & "%' or
["XXXXXXX"] like '%" & PartTxt & "%'
or ["XXXXXXX"] like '%" & PartTxt & "%'"
rs.Open Sql, Conn, 3, 3
If Not rs.EOF Then
rs.MoveFirst
NbF = rs.Fields.Count
NbRecord = rs.RecordCount
N = 1
Do While Not rs.EOF
With ListView1
.ListItems.Add , , rs.Fields(0)
For L = 2 To NbF
.ListItems(N).ListSubItems.Add , , rs.Fields(L - 1)
Next L
If .ListItems(N) = TextBox1 Then .ListItems(N).Bold = True
If .ListItems(N).ListSubItems(7).Text = "XXXXXXX" Then
.ListItems(N).Bold = True
.ListItems(N).ForeColor = vbGreen
For C = 1 To .ColumnHeaders.Count - 1
.ListItems(N).ListSubItems(C).Bold = True
.ListItems(N).ListSubItems(C).ForeColor = vbGreen
'couleur colonne 8
Next C
End If
If .ListItems(N).ListSubItems(7).Text = "XXXXXXX" Then
.ListItems(N).Bold = True
.ListItems(N).ForeColor = vbBlue
For d = 1 To .ColumnHeaders.Count - 1
.ListItems(N).ListSubItems(d).Bold = True
.ListItems(N).ListSubItems(d).ForeColor = vbBlue
'couleur colonne 7
Next d
End If
If .ListItems(N).ListSubItems(8).Text = "XXXXXXX" Then
.ListItems(N).Bold = True
.ListItems(N).ForeColor = vbRed
For E = 1 To .ColumnHeaders.Count - 1
.ListItems(N).ListSubItems(E).Bold = True
.ListItems(N).ListSubItems(E).ForeColor = vbRed
'couleur colonne 7
Next E
End If
End With
N = N + 1
rs.MoveNext
Loop
Label2.Caption = NbRecord & " enregistrement(s) !"
Else
MsgBox "Attention: pas d'enregistrement trouvé!!"
End If
rs.Close
Set rs = Nothing
End Sub

C'est bien un problème VBA Excel et pas VBA Access donc le mieux serait
de poster sur le forum Excel.