Discussion :

[johannj]

Bonjour le forum,

Le code suivant me sert à ouvrir et à récupérer des données (telles que la moyenne, valeur maximun ...) à partir d'un fichier texte que je copie dans un fichier excell.

Cependant, je recherche la valeur mimimum des données et celle-ci est parfois égale à zéro (voir fichier texte joint).
Je souhaite donc ne pas prendre en compte les valeurs égales à zéro et j'ai pour cela utiliser la fonction replace imbriqué dans deux boucles for...

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
35
36
37
38
39
40
41
42
43
 
Sub Sheet_resistance()
 
Dim WB As Workbook
Dim TreatedFile As Workbook
Dim Counter As Variant 'Declaration de counter
Dim a As Integer 'declaration de la varaible a comme nombre entier
Dim maximum As String
Dim minimum As String
Dim i As Integer
Dim j As Integer
 
i = 4
j = 1
 
Set WB = ThisWorkbook  'creation d'un nouveau fichier
 
Counter = Application.GetOpenFilename(",*.map", , , , True) 
If VarType(Counter) = vbBoolean Then Exit Sub
 
For a = 1 To UBound(Counter)
 
    Set TreatedFile = Application.Workbooks.Open(Counter(a), xlMSDOS)
 
    With TreatedFile
        newname = Worksheets(1).Name
 
        For i = 4 To 8
            For j = 1 To 5
                If Worksheets(1).Cells(i, j).Value = 0 Then
                    Worksheets(1).Cells(i, j).Value = Replace(Worksheets(1).Cells(i, j).Value, "0", " ")
                End If
            Next j
        Next i
        maximum = Application.WorksheetFunction.max(range(Cells(4, 1), Cells(9, 5)))
        minimum = Application.WorksheetFunction.Min(range(Cells(4, 1), Cells(9, 5)))
        .Close (False)
     End With
 
    i = 4
    j = 1
 
Next a 'fin condition

Ce code fonctionne bien mais je me dit que faire deux boucles for, ça doit pas être terrible et il doit surement y avoir moyen de gagner du temps et que ça soit plus simple.

J'ai essayé la fonction "find", mais j'avoue que meme avec l'aide et les divers posts sur le net, je n'y suis pas arrivé.

Y en a t-il parmi vous qui aurait des idées SVP?
Merci d'avance,
Johann