Discussion :

[DeaD78]

Bonjour à toutes et à tous.

J'ai un petit problème et je me demandais par quel bout le prendre. Je dois effectuer une recherche d'une certaine valeur, au sein de ma feuille. Bon, pour la recherche, pas de problème, ça sera un classique .Find dans une boucle For.

Mon problème commence donc maintenant. Les valeurs que je dois rechercher dans cette feuille sont des lettres majuscules seules (pas de chiffres ni de O, X, I) ou des combinaisons de la forme A-B. Le pourquoi de cette recherche ? Une fois trouvées, je dois doubler ces lettres : A deviendra AA et A-B deviendra AA-BB.

Pour résoudre ça et agir seulement aux endroits nécessaires (je ne veux tout de même pas doubler tous mes A dans ma feuille), je me suis débrouillé de la manière suivante : j'ai entouré là où il fallait mes A ou mes A-B de "|" qu'on ne peut trouver ailleurs dans le document. J'ai donc des |A| et des |A-B| qui se balladent dans mon document.

Ma question : comment rechercher les valeurs qui sont entre ces "|" ? Il faudrait que je puisse rechercher tous les |x| dans ma feuille où x est une variable (A, B, Z ou A-B, Z-F etc). Comment peut-on mettre cela dans un .Find ?

Merci d'avance

André

[ouskel'n'or]

Code :

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

1
2
    Cells.Find(What:="|*|", LookIn:=xlFormulas, LookAt:= _
    '.... etc

Tu adaptes à ton code.

[DeaD78]

Sympa le coup de la petite "*", je connaissais pas

Merci beaucoup

[ouskel'n'or]

Oui ! Je pense que tu as mis un espace entre "MsgBox" et "Hello" mais... tu as une question ?

[DeaD78]

C'est encore moi et j'ai un petit problème

J'en suis arrivé à :

Code :

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

1
2
3
4
5
6
For j = 1 To Cells(65536, "B").End(xlUp).Row
        Set c = Range(Range("A" & j), Range("V" & j)).Find(What:="|*|", lookat:=xlPart)
        If Not c Is Nothing Then
            MsgBox (c)
        End If
    Next

J'ai 2 questions à ce niveau. Quand j'affiche ce qu'il trouve dans mon "c", j'ai des : "1 - (Référence : |A|)" ou encore "1 - (Référence locale : |A|)". Bien entendu, il trouve les |*| seuls dans une cellule, ceux où y'a d'autres choses à côté comme dans ce cas. Cependant, je ne voudrais qu'il ne garde en mémoire que les |*| et pas ce qu'il y a à côté afin de les modifier sans modifier le reste de la cellule.

Deuxième question : comment écrire simplement "je parcours toute la feuille du début à la fin lors de ma recherche" autrement que ce que j'ai fait (en plus propre

Merci encore

EDIT : oups, désolé pour le message précédent, je l'ai supprimé, c'était une fausse manip

[ouskel'n'or]

1 - Tu peux utiliser Replace pour remplacer par exemple "Bidule à machin - |A| - et c'est tes rats" par "Bidule à machin - Ah Ah ! - et c'est tes rats"

Code :

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

c = replace("Bidule à machin - |A| - et c'est tes rats", "|A|", Ah Ah !")

Tu sauras adapter ?
2 - En effet, tu peux simplifier. Mais j'ai besoin d'une précision : Souhaites-tu remplacer tous les "|A|" par les mêmes "Ah Ah !" ou seulement certains. Le code ne sera pas le même. Le code suivant les remplace tous.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
bidule = "|A|"
With Worksheets("NomDeTaFeuille").Range(Cells(1,1) , Cells(Range("B65536").end(xlup).row, 2))
    Set c = .Find(Bidule, lookin:=xlValues, lookat:=xlpart)
    If Not c Is Nothing Then
        Deb = c.Address
        Do
            Range(c.address) = replace("Bidule à machin - |A| - et c'est tes rats", "|A|", Ah Ah !")
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> Deb
    End If
End With

Tu dis
A+

[DeaD78]

Alors, simplement, tous mes |A| au sein de ma feuille devront être, selon la condition dans laquelle je suis dans mon code, soit doublés (|AA|), soit triplés (|AAA|) soit encore plus. Le seul truc c'est que ça doit agir sur tout ce qui est entre "||". Si j'ai du |B-C|, toujours selon ma condition, cela va devenir du |BB-CC| à chaque fois que j'en trouverai dans ma feuille.

En tout cas, merci de ton aide

EDIT : Je viens de tester, toutes les cellules de la feuille ne sont pas parcourues, seulement la colonne "B" j'ai l'impression. En effet, j'ai callé 6 ou 7 |x| dans la feuille où x change. J'ai lancé la recherche avec

Code :

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

Set c = .Find("|*|", LookIn:=xlValues, lookat:=xlPart)

et lors de mon affichage pour tester, je n'en ai qu'un seul

[ouskel'n'or]

Si tu ne passes pas par la boucle que j'ai faite, ce n'est pas étonnant. Une fois trouvé, la recherche ne se poursuit pas.
(pour la boucle, j'ai oublié un guillemet "Ah ! Ah !"tu l'ajoutes et tu testes.
Sinon, précise où peuvent se trouver tes |*| (quelle plage ?) Tu as mis la colonne V (22)
Par contre, tu recherches la dernière ligne de la colonne B

For j = 1 To Cells(65536, "B").End(xlUp).Row

vérifie que ce soit bien la colonne la plus longue.
Dis-nous tout

[DeaD78]

Bon, je suis plus bête qu'un parpaing J'avais utlisé ta boucle mais j'ai oublié le "loop"

Sinon, les |*| peuvent être seulement dans la colonne D mais je préférais les remplacer comme s'ils étaient n'importe où dans la feuille, au cas où ils se déplacent

Donc on peut rester sur la colonne D au final qui sera, par la même occasion, la plus longue

EDIT : la chaîne de caractères avant le |*| varie elle-aussi comme celle qui se trouve après. Il faudrait donc que peu importe où dans la feuille, ****|x|**** (x une variable) soit remplacé par ****|xx|****.

Merci de l'aide

[ouskel'n'or]

Tu sauras adapter mon code ?

[DeaD78]

Je vais tenter On va voir ce que ça donne.

[ouskel'n'or]

Faut tout y dire

Code :

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

Range(c.address) = replace(c, "|A|", "Ah Ah !")

Ce coup-ci, c'est bon ?
A+ quand même

[DeaD78]

Bonjour ! Désolé de n'avoir pas répondu plus tôt mais je me suis refais une santé

Voilà ce à quoi j'en suis arrivé ! (Ce qui est ce que m'a donné ouskel'n'or.)

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
Sub Repeattttttt()
 
Dim c As Range
 
With Worksheets("1").Range(Cells(1, 1), Cells(Range("D65536").End(xlUp).Row, 2))
    Set c = .Find("|*|", LookIn:=xlValues, lookat:=xlPart)
    If Not c Is Nothing Then
        MsgBox (c)
        Deb = c.Address
        Do
           Range(c.Address) = Replace(c, "|*|", "Ah Ah !")
        Loop While Not c Is Nothing And c.Address <> Deb
    End If
End With
 
End Sub

Sachant que les valeurs à modifier ne se trouvent que dans la colonne D, Cells(Range("D65536") me semblait juste. Ensuite, j'ai mis une "*" dans mon find car je recherche toutes les valeurs entre "||". Et pareil dans mon replace.

Le problème c'est que ce que tu m'as donné fonctionne avec une valeur |A| dans la colonne B mais dans une autre colonne ça ne fonctionne pas. En plus, il ne me trouve pas mes |*| s'il y'a du texte avant ou après ).

Je ne comprends plus...

[ouskel'n'or]

On est reparti !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Repeattttttt()
Dim c As Range
Worksheets("Feuil1").activate 'nécessaire pour le usedrange que j'utilise ici
With Activesheet.usedrange
    Set c = .Find("*|*|*", LookIn:=xlValues, lookat:=xlPart)
    If Not c Is Nothing Then
        MsgBox (c)
        Deb = c.Address
        Do
           Range(c.Address) = Replace(c, "|*|", "Ah Ah !")
        Loop While Not c Is Nothing And c.Address <> Deb
    End If
End With 
End Sub

Sans filet, pas testé. Tu peux tester pour moi ?

[DeaD78]

Malheureusement, on est reparti

Je viens de tester et ça avance mais c'est y'a quelques problèmes. Tout d'abord, ça ne boucle pas. Ca détecte une valeur |*| peu importe où dans la feuille mais ne passe pas à la suivante. En tout cas, les valeurs sont détectées peu importe s'il y'a du texte avant ou pas. Je dis que ça ne boucle pas parce que la valeur suivante est détectée lorsque j'efface celle d'avant

Et deuxième chose, le remplacement ne se fait pas. (J'ai bien la MsgBox qui s'affiche mais pas de remplacement : par contre là où j'aurais dû avoir mon remplacement, le texte change de couleur Enfin bon...).

En tout cas merci, tu me donnes beaucoup de ton temps et j'apprécie vraiment (C'est par où les donnations? )

[ouskel'n'or]

Je t'avais donné un code incluant "aut'chose... (malheureusement effacé le triste mercredi noir 23 juillet à 5h00)
Si tu l'as, alors regarde-le... et ajoute ce qui manque...
Allez, je suis brave !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
With Activesheet.usedrange
    Set c = .Find("*|*|*", LookIn:=xlValues, lookat:=xlPart)
    If Not c Is Nothing Then
        MsgBox (c)
        Deb = c.Address
        Do
           Range(c.Address) = Replace(c, "|*|", "Ah Ah !")
           Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> Deb
    End If
End With

Bonne journée

Edit
Tiens, cela n'a pas été effacé, regarde là, manque un guillemet mais Set c = .FindNext(c) est bien là

C'est l'ajout du guillement qui a été effacé, je savais bien !

[DeaD78]

Merci !!! On y est presque, c'est juste le replace qui ne marche pas et ça ne va pas tarder

Pour mon test, j'ai, dans la colonne D, deux cellules qui contiennent les valeurs "1 - (Référence : |A|)" et "1 - (Référence locale : |A|)". A la base, ces valeurs étaient en rouge. Elles ont juste été passées en noir et mes |A| n'ont pas été transformés en "Ah Ah !"

EDIT : après un petit test, voilà d'où ça vient !

Code :

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

Range(c.Address) = Replace(c, "|*|", "Ah Ah !")

Le programme n'arrive pas à faire le "replace" d'un caractère variable contenu entre deux "|". Si je remplace par |A| dans la formule, ça marche et mes |A| sont bien replacés par "Ah Ah !".

[ucfoutu]

Bonjour (et ce sera ma seule intervention dans cette discussion)...

Je pars ici de la chaîne que tu as localisée. Appelons-là toto ...

Voilà comment la traiter (sans ce Replace,)

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
  dim toto as string, machin as string, pos1 as integer, pos2 as integer
  toto = "blabla blabla |A-B| blablabla blabla"
  pos1 = InStr(toto, "|")
  pos2 = InstrRev(toto, "|")
  machin = Mid(toto, pos1 + 1, pos2 - pos1 - 1)
  toto = Left(toto, pos1) & "coucou me voilà" & Mid(toto, pos2)
  MsgBox toto & vbCrLf & _
  "pour ton information , tu avais la chaîne " & machin & " entre tes deux |"
End Sub

Tu noteras que j'ai voulu isoler machin (juste pour le cas où tu en aurais également besoin). Tu peux le supprimer si non nécessaire.

Refléchis juste un peu et bonne chance...

Edit : note bien que ce n'est là qu'une solution parmi des dizaines possibles (et toutes du niveau débutant).

[ouskel'n'or]

J'aurais une autre approche car je pense que les remplacements varient en fonction de ce que |*| te "ramène (ce que ucfoutu ne peut pas savoir, la première discussion ayant été effacée)
De mémoire tu as dit que ce pouvait être |A| ou |B| ou |A-B| ou ... à remplacer selon les cas par ceci ou cela...
Si je ne me trompe pas, alors je ferais ainsi

Code :

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

1
2
3
4
5
6
7
Sub appel()
Dim Remplaçants, i as byte
     Remplaçants = array("|A|", "|B|", "|A-B|")
     For i = 0 to Ubound(Remplaçants)
          Repeattttttt Remplaçants(i)
     Next
End sub

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
Sub Repeattttttt(Mot)
Dim c As Range
Worksheets("Feuil1").activate With Activesheet.usedrange
    Set c = .Find("*|*|*", LookIn:=xlValues, lookat:=xlPart)
    If Not c Is Nothing Then
        Deb = c.Address
        Do
           Select case Mot
                Case "|A|"
                     Range(c.Address) = Replace(c, Mot, "Ah Ah !")
                Case "|B|"
                     Range(c.Address) = Replace(c, Mot, "Eh Béh !")
                Case "|A-B|"
                     Range(c.Address) = Replace(c, Mot, "Ah Béh !")
           End select
           Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> Deb
    End If
End With

Tu dis
A+

[DeaD78]

Bon, ça m'a enervé et je crois, en fait, qu'il n'est pas possible de faire un Replace sur des "*". J'ai donc procédé autrement, en y réfléchissant un peu, mais j'ai juste un petit problème de syntaxe.

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
Sub Repeattttttt()
 
Dim c As Range, Var As String
 
Worksheets("Albert").Activate
With ActiveSheet.UsedRange
    Set c = .Find("*|*|*", LookIn:=xlValues, lookat:=xlPart)
    If Not c Is Nothing Then
        Deb = c.Address
        Do
            Var = Mid(c, InStr(c, "|"), (Len(c) - InStr(c, "|")))
            MsgBox (Var)
            'Range(c.Address) = Replace(c, Var, VarVar)
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> Deb
    End If
End With
 
End Sub

Dans ma variable "Var" (épatant non? ), j'ai stocké ce que je devais doubler (mes |*| donc). Il ne me reste donc plus qu'à faire un replace dans ma chaîne "c" de "Var" par "VarVar". Mais comment l'écrire?

'Range(c.Address) = Replace(c, "&Var", "&Var&Var") ?

EDIT : j'avais pensé à ce que tu as mis au-dessus mais j'ai vite abandonné. Effectivement, il peut y avoir A, B ou A-B. Le problème c'est que ça peut être n'importe quelle lettre de l'a(na?)lphabet et n'importe quelle combinaison et j'aime pas le copier-coller pour résoudre tous les cas