Discussion :

[Roiser]

Bonjour,

Je bloque depuis ce matin sur un petit problème qui me semblait tout simple...

Contexte :

J'ai une cellule de mon excel qui référence plusieurs erreurs (sous forme de string), la procédure que je veux appliquer est de faire :

Code :

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

 Ligne.Cells(16) = Replace(Ligne.Cells(16), " photo " & NomPhoto & " introuvable", "")

Problème :

- Je ne connait pas le nom de la photo et celui-ci ne suit pas une logique : je peux avoir 55 comme SAM_55 ou DSCF055 , ...

- la cellule peux contenir les chaine suivante "ref photo" ou "materiel introuvable" ce qui ne m'empeche d'utiliser la fonction Mid() dans l'exemple suivant :

"ref photo : 65, SAM_30 photo 65 introuvable materiel introuvable"

Début de solution :

Je pense régler le problème si je mets un séparateur, une virgule par exemple, entre chaque erreur (afin de faire un Split) mais j'aimerai une autre solution car le nombre de modifications serai trop importantes

Merci d'avance pour vos réponse !

[patricktoulon]

Bonjour
si la chaine de caracteres n'a pas une partie de sa structure identique pour chaque lignes comment veux tu que excel devine ?

donne quelques exemplesde lignes on verra apres

[joe.levrai]

Bonjour,

comme le souligne Patrick, il faut nécessairement des bases fixes pour solutionner ton problème.

Avec un seul exemple, pas évident.
En m'inspirant uniquement de celui-ci, il n'y a pas 36 solutions :

- split du contenu sur l'espace
- recherche du mot "photo" et recherche du mot "introuvable" : s'ils sont séparés de deux indices dans ton tableau splité .... alors le nom de ta photo est dans l'indice situé entre les deux (puisque le nom de ta photo ne contient pas d'espace)

[mjpmjp]

bonjour,

if InStr(DebutDeRecherche,LaLigneDeTexte,LeTexteRecherche) > 0 then Le texte a été trouvé
tu peu te garantir avec un "and" et rechercher "photo"

à partir de là, tu supprimes la partie "photo...." avec "split"

TabElement=Split(Ucase(LaLigneDeTexte),"PHOTO")
La partie à garder = TabElement(0)
La partie à ne pas utiliser = TabElement(1)

La Cellule = TabElement(0) ' La partie à garder

@+JP

[mjpmjp]

bonjour,

dans l'exemple suivant : "ref photo : 65, SAM_30 photo 65 introuvable materiel introuvable"

recherche "introuvable" qui est l'élément déclencheur..

recherche "ref photo :" --> InStr --> si >0 --> Split(Ucase(exemple suivant),"REF PHOTO :") --> garder TabElement(1) ... qui est après "REF PHOTO :"

recherche "photo" --> InStr(Ucase(TabElement(1)),"PHOTO") --> si >0 --> Split(Ucase(TabElement(1)),"PHOTO") --> garder TabElement(0) ... qui est avant "PHOTO"

ne pas oublier "Trim" qui supprime les espaces avant et après

La cellule = Trim(TabElement(0))

@+JP

[patricktoulon]

comme indique joe le plus probant est le split par les espaces

et test des portion si like lettrte et like numeric

exemple

sur 3 cellules
en A1 ref photo : 65,SAM_30 photo 65 introuvable materiel introuvable

en A2 introuvable : 88,dscu35ljf78 photo 88 introuvable materiel introuvable

en A3 materiel introuvable : 34,afg54l456p photo 34 introuvable materiel introuvable

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
     MsgBox nom_photo([A2])
End Sub
 
Function nom_photo(cel)
    tabl = Split(cel.Value, Chr(32))
        For i = 0 To UBound(tabl)
            If UCase(tabl(i)) Like "*[A-Z]*" And tabl(i) Like "*[0-9]*" Then nom_photo = tabl(i) 'nom_photo = tabl(i)
    Next
End Function

[eriiic]

Bonjour,

en supposant ton nom de photo toujours présent après les ":" comme sur l'exemple (peut-être très mauvais...) :

Code :

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

1
2
3
4
    Dim texte As String, pos As Long, a
    texte = [A2]
    pos = InStr(texte, ":")
    If pos > 1 Then texte = Application.Trim(Replace(texte, "photo " & Application.Trim(Split(Mid(texte, pos + 1), ",")(0)) & " introuvable", ""))

eric

[Roiser]

Bonjour,

Merci a tous de vos nombreuses réponses (désolé de ne pas les avoir vues avant ...)

J'ai pu grâce a vos script et remarques constitué un début de réponse qui à l'air prometteur. J'essairai de penser directement à mettre des "," entre chaque chaine de caractère à l'avenir pour ne pas effectué une recherche aussi laborieuse ...

J'espère un jour vous renvoyer la pareille !