Discussion :

[Grimlands]

Bonjour,

Je cherche à faire une feuille calcul faisant la somme d'heures passés en maintenance. Pour cela, il faut trier les lignes en fonction d'une certaine colonne puis faire la somme des heures notées dans une autre colonne. Jusque là, rien de sorcier, j'y suis arrivé seul. C'était sans compter les erreurs de saisi. En effet, lors de l'exécution de ma macro, j'ai eu la fameuse erreur 13 : incompatibilité de type. Après investigation, j'ai trouvé des cases rempli avec du texte dans la colonne des heures (impossible à additionner donc). D'où l'erreur. Je cherche donc un moyen de supprimer ces lignes, inexploitables, ou de les trier au moins.

Merci d'avance

Pour un info voici mon code :

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
Sub Count()
Dim nligne As Long
Dim TotHeures As Double
Dim HeuresPanne As Double
 
nligne = Range("B2").CurrentRegion.Rows.Count
For i = (nligne + 1) To 1 Step -1
TotHeures = TotHeures + Cells(i, 8).Value
Next
For i = (nligne + 1) To 1 Step -1
If Cells(i, 6).Value = "902" Then
HeuresPanne = HeuresPanne + Cells(i, 8).Value
End If
Next
Cells(2, 1).Value = TotHeures
Cells(3, 1).Value = HeuresPanne
Cells(4, 1).Value = (HeuresPanne / TotHeures)
End Sub

[BENNASR]

Bonjour
A mon avis c'est plus rapide et peut être ça te permet de surmonter ton message d'erreur de travailler avec un tableau :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Count()
Dim i As Long
Dim Tablo
Tablo = Sheets("Tonfiche").Range("A2", "H" & Sheets("Tonfiche").Range("H" & Rows.Count).End(xlUp).Row)
 For i = LBound(Tablo, 1) To UBound(Tablo, 1)
    If Tablo(i, 6) = "902" Then
        HeuresPanne = HeuresPanne + Tablo(i, 8)
    End If
Next i
Sheets("Tonfiche").Range("A3") =  HeuresPanne
End Sub

[riaolle]

Bonjour,
Tu peux ajouter une ligne à ton tableau avec la fonction =ESTTEXTE() et ne faire l'addition que sur les cellules pour lesquelles cette fonction renvoie VRAI.
Sinon, dans ta procédure, tu peux ajouter une condition :

Code :

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

If IsNumeric(laCellule) Then ajouter à la somme

[Grimlands]

Merci pour vos réponses.

BENNSAR travailler par tableau est bien pensé, cependant je débute sur vba je préfère donc garder ma méthode pour l'instant, et puis cela me permet de pratiquer un peu la fonction que viens de me donner riaolle. (je garde les tableaux dans un coin de ma tête).

riaolle ton idée marche niquel dans mon programme.

Encore un grand merci à vous deux !

[riaolle]

Au passage, plutôt que de créer une procédure en VBA, ne peux tu pas utiliser SOMME.SI.ENS ?

[Grimlands]

Si, SOMME.SI.ENS aurait été tout à fait adapté.