Renvoie à une nouvelle cellule

Bonjour,

je reviens vers vous car j'ai un petit problème

j'avais pour mission de copier des informations d'un PDF vers excel, jusqu'ici aucun problème

je copie les informations et vue la qualité du pdf les mots ne sont pas les mêmes j'ai donc fait dans une macro des remplacements

pour ceux que sa interesse voila la solution

    'Selectionner la ou les colonne(s) concerné
Columns("A:A").Select
    'Choisir le chiffre ou lettre à remplacer ici "pc5" par "pcs"
Selection.Replace What:="pc5", Replacement:="pcs", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=True, _
ReplaceFormat:=True

par la suite je devais supprimer des lignes non utile avec soit des caractères sois par nombre de caractère

caractère :

Sub Suppression5()
    Dim rcel As Range
        Range("A:A").Select
        For Each rcel In Selection
            If rcel.Value Like "*Y15*" Then
                rcel.EntireRow.Delete
            End If
        Next rcel
End Sub

par nombre de caractère :

Sub EffaceLaLigneCell4()

Dim Cell4 As Range
Dim DerniereCell As Integer

    DerniereCell = Range("A").End(xlUp).Row

    For Each Cell4 In Range("A1:A" & DerniereCell)

        If Len(Cell4.Value) = 4 Then

        Range(Cell4.Row & ":" & Cell4.Row).Select
        Selection.Delete Shift:=xlUp

        End If
   Next Cell4

End Sub

/!\ maintenant j'ai pour mission de renvoyer dans une cellule suivante des informations

25Q12 - 1536/9 8-02-01441-1 / 16528 (21 pcs)

doit devenir

25R58 - 1546/1 8-32-01809-1 /

25094

(1 pcs)

le soucis est que ce n'est jamais le même nombre de caractère

mais il y a toujours 2 */* et "pcs" est toujours entre *()*

on ma dit de me référencer avec la fonction

Len - Left - Right

Merci d'avance pour vos réponses.

PS : désolé pour les fautes d'orthographe

juste pour info, j'avais essayer mais je pense qu'il me manque des informations dans ses lignes de codes.

Sub DecoupeTexte()
    Dim myText() As String, Text As String, r As Long
        Dim rng As Range: Set rng = ThisWorkbook.Worksheets("Feuil1").Range("A3")
        Text = "*/*/*"
        myText() = Split(Text, "*/*")
    For r = 0 To UBound(myText): rng.Offset(r) = myText(r): Next
End Sub

Merci d'avance pour vos réponses.

Bonjour,

Je reviens vers vous pour s'avoir si quelqu'un pourrait m'aider.

Cordialement

Bonjour

A tester

Mille Mercis parfait, je viens de l'adapter à la modification que j'ai apporté depuis la publication de ce poste.

Bonjour,

voila j'aurais encore besoin d'un peut d'aide :/.

J'aimerais avoir de l'aide sur le faite que j'aimerais envoyer des éléments d'une cellule A2 sur B1

j'ai par exemple :

        A         B
1 : 25493
2 : (1 pcs)

et j'aimerais que
       A            B
1 : 25493      (1 pcs) 
2 : .....

j'ai mis un exemple dans le ficher excel.

Encore merci pour votre travaille.

Bonjour

Pourquoi tu mets un fichier sans les macros ?

oups,

j'avais créé un fichier Personal car j'arrivais pas a fixer les macros dans le fichier excel lui même

Bonjour

Ce n'est pas ton fichier "Personal" que je t'avais demandé mais plutôt le fichier que je t'avais fourni avec la macro et tes nouvelles données

Mais pas grave

A tester

Merci pour votre réponse.

Par contre j'ai une question

quant j'ai exécuté le code cela ma bien envoyé les informations

j'ai réalisée une étape suivante qui consistait à supprimer les *(*, *pcs*, *)*

(17 pcs)

et ça me donne

-17

et j'aimerais que ce soit

17

pourtant dans mon code j'ai simplement mis

Columns("B:B").Select
Selection.Replace What:="(", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=True, _
ReplaceFormat:=True

Columns("B:B").Select
Selection.Replace What:=")", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=True, _
ReplaceFormat:=True

Columns("B:B").Select
Selection.Replace What:="pcs", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=True, _
ReplaceFormat:=True

Columns("A:A").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=True, _
ReplaceFormat:=True

auriez vous une explication ?

Bonjour

J'ai essayé mais je n'obtiens pas un nombre négatif

J'obtiens du texte et pas des nombres

Vérifies ce fichier

J'ai remplacer mon code par le tien et je n'ai plus de chiffre négatif pourtant au final c'est le même

Merci pour tous.