rechercher mots exact

[ychc]

Bonjour tout le monde.

Voilà mon problème:

J'ai un dossier avec plusieurs onglets. Dans un de ces onglets, j'ai un TCD et je voudrais pouvoir récupérer uniquement toutes les valeurs et les énoncés des sommes de ce TCD dans un autre onglet.
Le problème, c'est qu'en fonction des filtres que j'affiche, la liste est alors plus ou moins longue et le début de mes sommes se trouve jamais au même endroit dans la colonne.
Je voudrais de ce fait pouvoir rechercher les thermes exact en sachant que mon TCD m'affiche pour chaque ligne de somme:
Somme xxx 3:25(avec un "S" MAJUSCULE")
Somme yyy 4:15
Somme zzz 4:10

De plus certaines sommes n'ont pas de valeurs. Je voudrais alors ne pas tenir compte de celles-ci.

Faut il que je m'acharne avec une fonction?
Quelqu'un a t il une une solution à me proposer?
Merci d'avance

 

[Paritec]

Re : rechercher mots exact

bonsoir ychc
moi je te propose de nous joindre un bout de fichier avec les explications dans le fichier de ce que tu as, et de ce que tu souhaites obtenir et tu auras ta réponse
a+
Papou 😱

 

[Robert]

Re : rechercher mots exact

Bonsoir Ychc, Papou, bonsoir le forum,

Je me suis dit : "Putain il est balèze le Papou, il a donné une réponse alors que moi j'avais rien compris !". Alors j'ouvre le fil et je lis... Mort de rire !
Ychc puisque tu es nouveau je profite pour te souhaiter la bienvenue mais je te conseille aussi vivement de lire la Lien supprimé du forum qui explique les bon plans pour obtenir de l'aide rapidement.

 

[jmps]

Re : rechercher mots exact

Comment ça t'as rien compris Robert ?

Tu me déçois 🙂

Bon, on va attendre Dan, c'est du TCD 😉

 

[klin89]

Re : rechercher mots exact

Bonjour à tous,
Bonjour ychc 🙂

Un peu d'indulgence Robert. 😉😉😉
Si notre ami a le discours confus, tu peux comprendre ceci :

Je voudrais de ce fait pouvoir rechercher les thermes ...

L'alcool non, mais l'eau ferru, l'eau ferru l'eau ferrugineuse oui.

Klin89

 

[ychc]

Re : rechercher mots exact

Bonjour et merci de vous interresser à mon petit problème.

Je vous joint un exemple avec à l'intérieur des feuilles les explications de ce que je n'arrive pas à faire.
J'espère être asser claire dans mes explications.
J'attend un retour pour essayer ensemble de résoudre ce petit détail.
Merci d'avance.

 

[Robert]

Re : rechercher mots exact

Bonjour le fil, bonjour le forum,

En pièce jointe ton fichier modifier avec un bouton vers Graph et le code ci-dessous :

Sub Macro1()
Dim r As Range 'déclare la variable r (Recherche)
Dim dest As Range 'déclare la variable dest (DESTination)
Dim ld As Integer 'déclare la variable ld (Ligne de Départ)
Dim lf As Integer 'déclare la variable lf (Ligne de Fin)
Dim x As Integer 'déclare la variable x (incrément)
 
'définit la variable r (recherche dans la colonne B de l'onglet "tableau" le mot "Somme", à partir de B1, en partie)
Set r = Sheets("tableau").Columns(2).Find("Somme", Sheets("tableau").Range("B1"), xlValues, xlPart)
'définit la cellule de destination dest
Set dest = Sheets("graph").Range("B2")
'supprime les anciennes valeurs dans l'onglet "graph"
Range(dest, dest.Offset(3, 1)).ClearContents
ld = r.Row 'définit la ligne de départ
lf = Sheets("tableau").Range("C65536").End(xlUp).Row - 1 'définit la ligne de fin
For x = ld To lf 'boucle sur les cellules comprises entre la ligne de départ et la ligne de fin
    'condition : si la cellule en colonne C contient une valeur
    If Cells(x, 3).Value <> "" Then
        Range(Cells(x, 2), Cells(x, 3)).Copy dest 'copie les deux cellules en B et C et les colle dans dest
        Set dest = dest.Offset(1, 0) 'redéfinit dest (une ligne en dessous)
    End If 'fin de la condition
Next x 'prochaine cellule de la boucle
With Sheets("graph") 'prend en compte l'onglet "graph"
    .Activate 'active l'onglet
'tri par ordre croissant en fonction de la colonne C
    .Range("B2:C5").Sort Key1:=Sheets("graph").Range("C2"), Order1:=xlDescending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
End With 'fin de la prise en compte de l'onglet "graph"
End Sub

 

[ychc]

Re : rechercher mots exact

Merci pour ton travail Robert. Mais chez moi, lorsque j'exécute la fonction vers le graph, j'ai une erreur 1004.
De plus il me semble que te total n'est pas pris en compte.
Sinon tout le reste à l'air correct.
J'ai bien essayé de comprendre, mais je connais mes limites.
Je joint une copie de l'erreur.
Merci.

 

[Robert]

Re : rechercher mots exact

Bonsoitr ychc, bonsoir le forum,

En effet le total n'est pas pris en compte j'ai mis dans C6 de l'onglet graph la formule :

=SOMME(C2:C5)

ça me parraisait plus simple...

Sinon le tri marche impec chez moi je ne sais pas pourquoi il plante chez toi. Je te propose de le faire (uniquemnent le tri) en enregistrant la macro. Ensuite tu remplaces la ligne qui plante par le code obtenu.

 

[ychc]

Re : rechercher mots exact

Bonsoir Robert, bonsoir le forum.
J'ai mis un peu de temps, mais j'ai enfin réussi grâce à vous.
J'ai suivi tes conseils: à savoir j'ai fait ma macro de tri et ensuite j'ai collé le côde en lieu et place de ma ligne qui plantait.
Et ça marche. Youpi...
Merci encore.