Extraction donnees d'une cellule

[urbanito1]

Bonjour à la communauté,
petit tableau en annexe

comment pourrais-je convertir obtenir le résultat de la colonne H plus facilement et plus rapidement que je ne le fais?

merci bien

urbanito1

 

[Paritec]

Re : Extraction donnees d'une cellule

Bonjour Urbanito 1 le forum
ton fichier en retour tu dois activer tes macros
a+
Papou😱

 

[david84]

Re : Extraction donnees d'une cellule

Bonjour,re Pascal🙂,

=STXT(A3;2;CHERCHE("/";A3)-2)

=STXT(A3;CHERCHE("/";A3)+1;CHERCHE(")";A3)-1-CHERCHE("/";A3))

Formules à tirer vers le bas.
A+

 

[JNP]

Re : Extraction donnees d'une cellule

Bonjour le fil 🙂,
Un peu long à la détente, mais tant pis 😛

=STXT(A3;2;TROUVE("/";A3)-2)/STXT(A3;TROUVE("/";A3)+1;NBCAR(A3)-TROUVE("/";A3)-1)

Bon dimanche 😎

 

[Paritec]

Re : Extraction donnees d'une cellule

Bonjour Jean Noël😱 david😱 le forum
bon alors une autre version avec en plus une fonction personnalisée
a+
papou😱

EDIT : comme cela il a le choix

 

[david84]

Re : Extraction donnees d'une cellule

Re
Effectivement Pascal et Jean-Noël, si c'est directement la division qu'il faut obtenir :

=STXT(A3;2;CHERCHE("/";A3)-2)/STXT(A3;CHERCHE("/";A3)+1;CHERCHE(")";A3)-1-CHERCHE("/";A3))

A+

 

[urbanito1]

Re : Extraction donnees d'une cellule

Salut Paritec,David84 et JNP = merci
Paritec extra la macro, je m'initie pour le moment
dans le fichier que je reçois la colonne que je veux adapter se trouve à I
je dois donc simplement modifier le A en I
bon dimanche et à très bientôt







Option Explicit

Sub traiter()
Dim i&, fin&, a As Variant
fin = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
For i = 3 To fin
a = Split(Cells(i, 1), "/")
Cells(i, 2) = (Mid(a(0), 2) / Mid(a(1), 1, Len(a(1)) - 1))
Next i
End Sub

 

[Paritec]

Re : Extraction donnees d'une cellule

Re bonjour Urbanito le forum
oui il faut changer le A en I mais aussi les

cells(i,1) en cells(i,"i") ou en cells(i,9)

je te laisse modifier si cela ne marche pas tu me le redis
ou tu veux avoir le résultat en I et la colonne de départ c'est la A ?????
redis le moi

a+
papou😱

 

[Paritec]

Re : Extraction donnees d'une cellule

Re Urbanito le forum
bon alors si tu veux, des explications ci-dessous
a+
papou😱

Sub traiter()
    Dim i&, fin&, a As Variant
    fin = Feuil1.Range("A" & Rows.Count).End(xlUp).Row ' pour chercher la dernière ligne de la colonne à traiter
    For i = 3 To fin ' pour donner à la boucle le début ligne 3 et la fin avec la valeur obtenue au dessus
        a = Split(Cells(i, 1), "/") 'décomposition de la cellule (ligne i, colonne 1 donc A)
        Cells(i, 2) = (Mid(a(0), 2) / Mid(a(1), 1, Len(a(1)) - 1)) 'résultat en cells(ligne i, colonne B) et le calcul
    Next i
End Sub

 

[JNP]

Re : Extraction donnees d'une cellule

Re 🙂,
Pascal, une autre façon de traiter la fonction personnalisée :

Function Urbanito2(cel As String)
    Dim a
    Application.Volatile
    If InStr(1, cel, "/") = 0 Then Exit Function
    a = Split(Replace(Replace(cel, "(", ""), ")", ""), "/")
    Urbanito2 = a(0) / a(1)
End Function

Bonne suite 😎

 

[urbanito1]

Re : Extraction donnees d'une cellule

hello
je vais regarder à ça tranquillement cette semaine avec le fichier de la compta
je reviendrai vers vous si besoin
ça m'impressionnnne mais au moins j'avancerai dans MACRO
merci et bon dimanche
urbanito

 

[david84]

Re : Extraction donnees d'une cellule

Re
Juste pour tester, une fonction personnalisée en utilisant un motif d'expression rationnelle :

Function Fraction(c As Range)
Dim oRegExp, Res, Item
Set oRegExp = CreateObject("vbscript.regexp")
oRegExp.Pattern = "(\d+)/(\d+)"
Set Res = oRegExp.Execute(c)
Set Item = Res(0)
Fraction = Item.submatches(0) / Item.submatches(1)
End Function

A+

 

[urbanito1]

Re : Extraction donnees d'une cellule

La je suis assomé...sympa merci bien

 

[Paritec]

Re : Extraction donnees d'une cellule

Re Tous,
Eh voilà l’extraterrestre à encore frappé !!!!
a+
papou😱

 

[Staple1600]

Re : Extraction donnees d'une cellule

Bonjour à tous


Sinon en évaluant simplement le contenu de la cellule en colonne A, ça le fait aussi 😉

Sub a()
Dim c As Range
For Each c In Selection
Cells(c.Row, "H") = Evaluate("=" & c)
Next c
End Sub

PS: avant de lancer la macro, sélectionner les données à traiter en colonne A.
(ou adapter le code pour éviter la sélection)

Une variante pour le fun et pour préserver les parenthèses

Sub b()
Dim c As Range
For Each c In Selection
c.Offset(, 7) = "=" & c.Value
Next c
End Sub