XL 2016 Copier une partie de chaîne de caractères après 2 premiers caractères

[DaniLaDanette]

Bonjour à toutes et à tous !
Déjà bonne année 😁

Je souhaiterai copier une partie d'une chaîne de caractères, SI elle contient dans les 2 premiers caractères "3D".

Ci-après un exemple :

C = 3D Chaîne de caractères
If C Like "*3D*" Then
MsgBox C
End If

Ceci ne me suffit pas, il faudrait que je puisse récupérer tout ce qu'il y a après "3D". Et le stocker dans un dictionnaire (éventuellement)

Merci d'avance pour votre aide !🙂
DaniLaDanette

 

[job75]

Bonjour DaniLaDanette, bienvenue sur XLD,

Vous pouvez tester :

If C Like "3D*" Then
MsgBox Mid(C, 3)
End If

Stocker dans un dictionnaire ? Quel dictionnaire ? Il faudrait un fichier avec les résultats attendus.

A+

 

[sylvanu]

Bonsoir Dani,
On peut aussi utiliser un split avec comme séparateur "3D" et le ranger dans un array, par ex :

Sub essai()
Dim T(3)
For i = 1 To 3
    tablo = Split(Cells(i, 1), "3D")
    T(i) = tablo(UBound(tablo))
Next i
End Sub

Comme le séparateur est "3D" la dernière valeur de tablo est ce qu'il y a après 3D.

 

[DaniLaDanette]

Merci à vous deux ! Je ne pensais pas que c'était possible d'avoir 2 réponses aussi rapidement, c'est incroyable ! 😁
Je pense que je peux me débrouiller pour l'utilisation du dictionnaire, cela m'entraine comme ça.
Encore merci !

 

[DaniLaDanette]

Bonjour DaniLaDanette, bienvenue sur XLD,

Vous pouvez tester :

If C Like "3D*" Then
MsgBox Mid(C, 3)
End If

Stocker dans un dictionnaire ? Quel dictionnaire ? Il faudrait un fichier avec les résultats attendus.

A+

Rebonsoir ! 😁

Bon en fait, c'est plus compliqué que prévu pour l'utilisation des dictionnaires.
J'ai également oublié de préciser, que je souhaiterais copier une partie de la chaîne de caractère que SI les 2 premiers caractères sont "3D".

Du coup je vous ai induis en erreur, car vos fonctions regarde dans toute la chaîne...😅

Pouvez-vous m'aider de nouveau ?
Dani

 

[job75]

Du coup je vous ai induis en erreur, car vos fonctions regarde dans toute la chaîne...😅

Bah ma solution post#2 teste uniquement les 2 premiers caractères...

Mais je réitère ma demande : dans quoi voulez-vous stocker le reste de la chaîne ?