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

DaniLaDanette · 13 Janvier 2021

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 · 13 Janvier 2021

Bonjour DaniLaDanette, bienvenue sur XLD,

Vous pouvez tester :

VB:

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 · 13 Janvier 2021

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

VB:

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 · 13 Janvier 2021

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 · 13 Janvier 2021

job75 à dit:
Bonjour DaniLaDanette, bienvenue sur XLD,

Vous pouvez tester :

VB:

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 · 13 Janvier 2021

DaniLaDanette à dit:
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 ?

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

DaniLaDanette

XLDnaute Nouveau

job75

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

DaniLaDanette

XLDnaute Nouveau

DaniLaDanette

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Discussions similaires