Problème pour une boucle en vba

Bonjour,

J'aurais vu un truc comme cela si vous êtes certaine d'avoir un caractère " " entre la valeur et son unité :

Dans cette solution, je mets les mesures en mV et en V dans deux colonnes distinctes pour exploiter plus facilement les résultats.

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
 
Sub TestMesuresSelonLesUnites()
 
    MesuresSelonLesUnites Sheets("Mesures"), 4, 2, 8, 3, 4
 
End Sub
 
Sub MesuresSelonLesUnites(ByVal FeuilleMesure As Worksheet, ByVal LigneTitreMesure As Long, ByVal ColReference As Long, ByVal ColTolerance As Long, ByVal ColMesuresmV As Long, ByVal ColMesuresV As Long)
 
Dim AireReference As Range
Dim CelluleReference As Range
Dim DerniereLigneReference As Long
 
Dim ValeurMesure As Double
 
    With FeuilleMesure
 
         DerniereLigneReference = .Cells(.Rows.Count, ColReference).End(xlUp).Row
         Set AireReference = .Range(.Cells(LigneTitreMesure + 1, ColReference), .Cells(DerniereLigneReference, ColReference))
 
         For Each CelluleReference In AireReference
             If UBound(Split(CelluleReference, " ")) > 0 And UBound(Split(CelluleReference.Offset(0, ColTolerance - ColReference), " ")) > 0 Then
                Select Case LCase(Split(CelluleReference, " ")(1))
                       Case "mv"
 
                            Select Case LCase(Split(CelluleReference.Offset(0, ColTolerance - ColReference), " ")(1))
                                   Case "µv"
                                       CelluleReference.Offset(0, ColMesuresmV - ColReference) = Split(CelluleReference, " ")(0) + (Split(CelluleReference.Offset(0, ColTolerance - ColReference), " ")(0) / 1000)
                                   Case "mv"
                                       CelluleReference.Offset(0, ColMesuresmV - ColReference) = Split(CelluleReference, " ")(0) + Split(CelluleReference.Offset(0, ColTolerance - ColReference), " ")(0)
                                   Case "v"
                                       ' Ce cas n'a pas de sens / tolérance
                                       CelluleReference.Offset(0, ColMesuresmV - ColReference) = " A vérifier"
                            End Select
 
                       Case "v"
 
                            Select Case LCase(Split(CelluleReference.Offset(0, ColTolerance - ColReference), " ")(1))
                                   Case "µv"
                                       ' Ce cas n'a pas de sens / tolérance
                                       CelluleReference.Offset(0, ColMesuresV - ColReference) = " A vérifier"
                                   Case "mv"
                                       CelluleReference.Offset(0, ColMesuresV - ColReference) = Split(CelluleReference, " ")(0) + (Split(CelluleReference.Offset(0, ColTolerance - ColReference), " ")(0) / 1000)
                                   Case "v"
                                       CelluleReference.Offset(0, ColMesuresV - ColReference) = Split(CelluleReference, " ")(0) + Split(CelluleReference.Offset(0, ColTolerance - ColReference), " ")(0)
                            End Select
 
                End Select
             End If
         Next CelluleReference
 
    End With
 
End Sub

Explications :

La fonction Split permet de "découper" en N+1 parties, une chaîne en fonction de la présence du ou des caractères spécifiés, ici le caractère " ".Si le caractère existe dans la chaîne et dans votre cas , l'indice 0 du tableau contient logiquement la valeur mesurée, l'indice 1 contient l'unité.
LCase permet de comparer les unités par rapport aux caractères minuscules, cela évitera les erreurs où V est écrit en minuscule.

La condition :

Code:

 If UBound(Split(CelluleReference, " ")) > 0 And UBound(Split(CelluleReference.Offset(0, ColTolerance - ColReference), " ")) > 0 Then

permet de vérifier qu'il y a deux parties dans la chaîne que le calcul sera possible. Dans le vidage d'écran ci-dessous, seules les mesures remplissant les conditions ont un résultat.

Pièce jointe 208466

Le fichier de l'exemple : Pièce jointe 208467

Cordialement.