XL 2016 [RESOLU]Mid et Split : synthaxe

[roybaf]

Bonjour à tous,

Je bloque sur un petit bout de code et ne comprends pas pourquoi !!

T1 = Split(Range("y1").Text, "'!", -1)
T2 = Mid(T1, 3)

Range("AA1").Value = T2

Quand je m'arrête à T1 pas de problème mais le MID me donne "incompatibilité du type 13"...

Je dois extraire " =' " au début de T1 pour info y1 = "='C:/Bureau/..." je souhaite enlever le " =' "

merci à tous

 

[Yurperqod]

Bonjour à,tous

En guise d'exemple de synthaxe

Sub MacroTest()
Dim Chaine As String
Chaine = "='C:/Bureau/..."
MsgBox Split(Chaine, "'")(1)
MsgBox Mid(Chaine, 3, Len(Chaine))
End Sub

 

[Dranreb]

Bonjour.
Moi je ferais :

[AA1].Value = Mid$(Split([Y1].Text, "'!")(0), 3)

 

[roybaf]

Merci à tous les deux!!

Dranreb, toujours efficace c'est la formule que je recherchais, AA1 entre crochet remplace le range, tu m'avais déjà fait ça dans un code, pourquoi $ après MID?

Ps Dranreb : Hier je voulais modifier un code ou j'utilise autofill, peux tu y jeter un oeil sur le forum, il doit y avoir plus rapide, j'ai essayais d'adapter une de tes formules mais trop compliqué pour moi

 

[Dranreb]

Mid renvoie un variant contenant un String, Mid$ renvoie un String.
Perso je n'utilise pas AutoFill, je préfère mettre dès le départ ma FormulaR1C1 sur toute la colonne de la plage de lignes à couvrir. Et de préférence soumis à un préalable Application.Calculation = xlCalculationManual provisoire.

 

[Yurperqod]

Bonjour à tous

roybaf
Pourquoi utiliser le ! comme séparateur ?

Je dois extraire " =' " au début de T1 pour info y1 = "='C:/Bureau/..." je souhaite enlever le " =' "

 

[roybaf]

Au début j'ai "='" or je voulais m'arrêter à la fin sur " '!" quand j'ai utilisé split avec séparateur "'" je ne récupéré que le début soit "='" en utilisant split avec "'!" je récupéré toute la chaine voulu, ensuite je voulais supprimer les deux premiers caractères soit "='"