Fonction Find ou Replace

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:

---

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

Bonjour,

J'ai une super idée : l'enregistreur de macros :ccool:

Restons sur les lignes 4 à 8 et les colonnes 1 à 5. De plus, j'ai remplacé "0" par "TEST" histoire de bien voir 8O

Ca donne ça :

Code:

---

1 2 3 4

Range("A4:E8").Select Selection.Replace What:="0", Replacement:="TEST", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False

---

Ca te plait ? :mouarf:

EDIT : les Select c'est le mal ! Optimise donc comme cela :

Code:

---

Range("A4:E8").Replace LeBazarQuiSuit

---

Bonne aprèm !

Oui, tu peux instancier la plage de cellules concernées et n'utiliser qu'une boucle

Code:

---

1 2 3 4 5

Dim Plage As Range, Cell As Range Set Plage = Worksheets(1).Range(Cells(4, 1), Cells(8, 5)) For Each Cell In Plage If Cell = "0" Then Cell = Replace(Cell, "0", "") Next

---

Bon après-midi

Edit
Je pense que la méthode donnée par DeaD78 est plus rapide ;)

Merci DeaD78,

Ta solution me plait, mais je souhaiterai éviter de préciser "A4:E8".

Je pense qu'avec la piste que tu viens de me donner, ça devrait aller.

Je vais en profiter pour vous demander des petits renseignements, quitte à passer pour le débutant que je suis :mrgreen:

Pourquoi dans un cas, ce code fonctionne:

Code:

---

1 2 3

Selection.Replace What:="0", Replacement:="TEST", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False

---

Et dans d'autres cas, celui-ci:

Code:

---

Worksheets(1).Cells(i, j).Value = Replace(Worksheets(1).Cells(i, j).Value, "0", " ")

---

J'avoue que je ne comprends pas pourquoi il faut préciser "what" et tout ça dans le premier...:oops:

Merci de m'éclairer

Johann

Merci pour vos réponses,

J'ai essayé la première qui fonctionne bien, même trop bien...

En effet, il me rempace tous les zéros par TEST... à savoir que si j'ai "510", il me remplace par "51TEST"...

Je regarde ca de plus près et vous tiens au courant

Johann

Bonne question !

Je n'ai jamais utilisé cela comme ça donc faudrait que je recherche un petit peu mais je n'ai pas trop le temps là. Mets un coup de F1 dessus, tu seras fixé.

Sinon, ça aurait été plus simple d'écrire :

Code:

---

1 2 3

If Worksheets(1).Cells(i, j).Value = "0" Then Worksheets(1).Cells(i, j).Value = " " End If

---

Enfin, pour ce que je t'ai proposé, au lieu de Range("A4:E8"), tu peux écrire :

Code:

---

1 2 3

dl = Range("A65536").End(xlUp).row dc = Range("IV1").End(xlToLeft).column Range(Cells(1,1),Cells(dl,dc))

---

Ainsi, tu auras une plage "dynamique" où faire ton Replace. En gros, ta plage ira de la cellule A1 à la cellule ayant pour colonne la dernière colonne non vide de la ligne 1 et ayant pour ligne la dernière ligne non vide de la colonne A.

A bientôt :zoubi:

Pour ta dernière erreur, remplace xlWhole par xlPart et c'est bon :ccool:

Merci beaucoup....

Je vois que j'ai encore des progrès et qu'il ne faut pas oublier de faire l'enregistreur de macros de temps en temps... :ccool:
J'avais perdu l'habitude...:aie:

Johann

Pense au petit :resolu: une fois que tu auras réglé le problème du xlWhole :zoubi:

Pour la derniere erreur, il faut bien mettre xlWhole et non xlPart

En effet, avec xlWhole, on regarde l'ensemble du contenu de la cellule. Si cet ensemble est égal à la valeur recherchée, alors on remplace. xlPart permet de vérifier chaque caractère et chaque ensemble de caractères contenus dans la cellule. Du coup, en fonction de la recherche, on peut trouver plusieurs fois la même combinaison de caractères dans une cellule (ou pire si la recherche porte sur un seul caractère).

D'où ton problème !

Bon Week-End !