Extraire deux valeurs dans cellules concatener

Bonjour,

Je récupère cette ligne de caractère et je souhaiterais extraire deux valeurs qui sont entre parenthèses dans deux cellules différentes.

à savoir : 2460 et 2445

0546-A : Porte Balcon 2 Vtx + 1 Fixe a gauche D120

351D120 : Largeur : 2400 (2460) Hauteur : 2250 (2445)

Dormant : 3017 Couleur Decoroc Ral 7016 Ext

Ouvrant : OF2D/02 3051 (Poignée OF 7 x 40)

Vitrage : 4 ITR - 16 - 4 + Arg WE (.00)

Vitrage : 4 ITR - 16 - 4 + Arg WE (.00)

Vitrage : 4 ITR - 16 - 4 + Arg WE (.00)

Nb Volume :3

Ventilation : Mortaise 45 m3 dans Coffre

Supplément : TEST (1)

Supplément : Pattes pour 3017 (1)

Supplément : vide (pattes) (1)

Sortie de tringle de VR à gauche

T3D SEJOUR

Ci joint fichier

bonjour et bienvenu

voici une proposition en feuille 2

formule en A1:B1 a tirer vers le bas

fred

Merci Fred,

Cela me convient parfaitement

Bonjour et bienvenu(e)

Bonjour fred2406

Vite mes pilules je traine

Regarde si cela peut te convenir

Merci Banzai64

J'ai une petite particularité

Sur des lignes la formule ne fonctionne pas car les valeurs ne sont pas entre parenthèses.

Voici les types de formats différents que je peux avoir :

• Largeur : 2400 (2460) Hauteur : 2250 (2445)
• Largeur : 800 Hauteur : 2250 (2445)
• Largeur : 800 (860) Hauteur : 2250
• Largeur : 800 Hauteur : 2250

J'ai besoin de récupérer les valeurs en rouge.

Merci

RE

salut Banzai

je te laisse répondre a cette demande car je pense que par macro cela sera plus simple car il faut rechercher le mot largeur et hauteur et tester si il y a des parenthèses.

faut que je lâche mon ordi pour faire les bagages,sinon ma femme me fait une crise

a+

fred

Bonsoir

A tester

Merci Banzai

Je test demain et te redis

Bonjour Banzai

J'aurais encore besoin de toi pour adapter ta macro à mon fichier.

Dans la feuille "Données" Effacé les valeurs des colonnes "D" et "E" et les remplir avec les valeurs de la macro.

Dans la feuille "PIC" saisir le repère d'un dossier et remplir le tableau du dessous automatiquement. (j'ai mis un exemple)

Merci de ton aide

Bonjour

A tester

Merci Banzai

Je vais tester mais apparemment cela fonctionne.

Peux tu m'expliquer comment fonctionne tu arrive a récupérer les données quand je valider le numéro de dossier ?

Merci

Bonjour

Romjé41 a écrit :

a récupérer les données quand je valider le numéro de dossier ?

Un filtre élaboré

Voir le code dans le module de la feuille "PIC"

Merci encore pour tout Banzai

Bonjour Banzai,

j'aurais besoin de ton aide.

Je souhaite modifier 2 macros.

• Save
• Send Mail

dans ces macros je souhaite modifié le nom du fichier :

aujourd'hui il se nomme : 01512.xlsm

je souhaite : CDE_0_1512.xlsm (je souhaite la même valeur que dans les cellules sans concaténation)

Merci d'avance

Bonjour

SI j'ai bien vu le code de Banzai

il faut changer cette fonction :

Function getFileName() As String
    Dim name As String
    name = "CDE"
    For Each c In getCdeRefRange()
        If c.Cells.Value <> "" Then name = name & "_" & c.Cells.Value
    Next
   'On enlève les mauvais caractères
    getFileName = filterString(name)
End function

a+

fred

EDIT : par contre la fonction filterstring supprime les "_",

donc dans cette fonction remplacer

        regex.Pattern = "[a-z,A-Z,0-9]*" 

par

        regex.Pattern = "[a-z,A-Z,0-9,_]*"

Bonjour Fred,

CDE_151092_DUBOISSOYERCEDRICLM1.xlsm

je souhaiterais :

CDE_151092_DUBOIS SOYER CEDRIC LM1.xlsm (avec les espaces comme dans la cellule "CB4")

je pense qu'il faut supprimer cette fonction :

- Function filterString

Merci de ton aide

ligne a remplacer :

        regex.Pattern = "[a-z,A-Z,0-9,_]*"

par

        regex.Pattern = "[a-z,A-Z,0-9,_, ]*"

par contre pour inversé le nom et le numéro je te suggère d'inverser tes infos entre les lignes (1) et (2)

si je fais des changements pourquoi aller lire la ligne 2 puis 1 puis la 3, la 4, la 5 dans quel ordre faut-il faire....

en

fred

Bonjour,

Le fichier se nomme :

CDE_151092_DUBOISSOYERCEDRICLM1.xlsm

je souhaiterais :

CDE_151092_DUBOIS SOYER CEDRIC LM1.xlsm (avec les espaces comme dans la cellule "CB4")

je pense qu'il faut supprimer cette fonction :

- Function filterString

BAh OUI.....

comme dis dans mon message précédent il faut inversé les deux lignes de ton tableau et changer la ligne de code comme indiquée...

voir le fichier joint

fred