Discussion :

[arkhang]

Bonjour,

Tout d'abord, pardon d'avance si le même sujet a déjà été posé, mais je n'ai pas trouvé, et je vous avouerai que je n'ai pas le temps de passer 1h à chercher (lol).

Voici mon problème, dans une colonne de ma feuille (H), sont présent différents type de chaines. Soit un nombre (nombre de caractère variable), soit une chaine, avec un nombre après un "=".
Ce que je voudrais faire, c'est dans une nouvelle colonne, rechercher les cellules contenant ce "=", et s'il y en a un, prendre la valeur après ce égale (taille également variable) et le mettre à côté, dans la nouvelle colonne. Sinon, recopier le contenu tels quel dans la nouvelle colonne.

Si vous avez compris, je vous remercie d'avance !

Il m'a semblé pouvoir peut être faire quelque chose avec la fonction split, mais je n'y parviens pas.

Merci d'avance, cordialement, arkhang

[casefayere]

Bonjour,
adaptes ça :

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 extraire()
Dim Dl As Long, cel As Range, Plg As Range
With Sheets("Feuil1")
  Dl = .Range("A" & .Rows.Count).End(xlUp).Row
  Set Plg = .Range("A2:A" & Dl)
  For Each cel In Plg
    If UBound(Split(cel, "=")) > 0 Then
      cel(1, 2) = Split(cel, "=")(1)
    Else
      cel(1, 2) = cel
    End If
  Next cel
End With
End Sub

[Invité]

Bonjour,

Ci-joint, un solution possible avec cette macro à mettre dans un module standard :

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
20
21
 
Sub RerchercherLeSigneEgal(CelluleSource As Range, CelluleCible As Range)
 
Dim CtrI As Integer
Dim SigneEgalTrouve As Boolean
 
    SigneEgalTrouve = False
    For CtrI = 1 To Len(CelluleSource)
            Select Case Mid(CelluleSource, CtrI, 1)
                   Case "="
                        SigneEgalTrouve = True
                        Exit For
            End Select
    Next CtrI
    If SigneEgalTrouve = True Then
        CelluleCible = Mid(CelluleSource, CtrI + 1)
    Else
        CelluleCible = CelluleSource
    End If
 
End Sub

Et cette macro événementielle à mettre dans le module de votre feuille de saisie :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Worksheet_Change(ByVal ZZ As Range)
 
   If ZZ.Count > 1 Then Exit Sub
 
   On Error Resume Next
   If Not Application.Intersect(ZZ, Columns(8)) Is Nothing Then
 
        RerchercherLeSigneEgal ZZ, ZZ.Offset(0, 1)
 
   End If
 
End Sub

Voir le résultat dans le fichier joint.


Cordialement.

[casefayere]

Bonjour Eric,

tu ne penses pas que ma proposition suffit ?

Bonne journée

[gFZT82]

Bonjour,

Sinon, il reste la possibilité de faire un copier de la colonne H puis collage spécial / Valeurs.

Cordialement.

[casefayere]

A gFZT82

Perso, j'avais compris que le "=" était dans la cellule exemple en A2 => "toto=23"
donc recopier les valeurs ne resoud pas le problème dans ce cas.

Bonne journée

[arkhang]

@casefayere

Je viens de tester, et ton code semble parfaitement fonctionner !
Merci bcp, tu me fais gagner énormément de temps.

Bonne journée à vous, et encore merci pour les rapides réponses.

Cdt, arkhang.