Discussion :

[ifiii]

Bonjour,

J'ai plusieurs cellules avec des chaines de caractère dont certaines contiennent par exemple "CP du 01/01 au 03/01", entre autres caractères.

Je voudrais alors vérifier la présence de la sous chaîne "CP" avant d'extraire chaque date, dont le positionnement sera toujours le même après la sous chaîne. Je chercherais alors les 5èmes caractères à 9ème caractères après la sous chaîne "CP" puis 14ème caractère à 18ème caractère après la sous chaîne "CP".

J'ai chercher avec la fonction Mid (par exemple Mid(Range("A1"), 5, 9)), mais je ne vois pas comment l'appliquer à compter de la fin de ma sous chaîne "CP".

Je précise que la sous chaîne "CP" ne sera pas toujours située à la même position au sein de ma sous chaîne, d'où mon obligation de débuter réellement l'extraction après la présence de celle-ci.

Auriez-vous des pistes à me communiquer ?

En vous remerciant par avance.

[RyuAutodidacte]

bonjour,

un exemple à adapter :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub exemple()
Dim Machaine As String, Tab_Machaine
 
    Machaine = "CP du 01/01 au 03/01"
    If InStr(Machaine, "CP") = 1 Then
        Tab_Machaine = Split(Machaine, " ")
        MsgBox Tab_Machaine(2)
        MsgBox Tab_Machaine(4)
    End If
 
End Sub

Edit : petit ajout code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub exemple2()
Dim Machaine As String, Tab_Machaine
 
    Machaine = "xxx xxx xxxxx CP du 01/01 au 03/01"
    If InStr(Machaine, "CP ") > 0 Then
        Tab_Machaine = Split(Mid(Machaine, InStr(Machaine, "CP ")), " ")
        MsgBox Tab_Machaine(2)
        MsgBox Tab_Machaine(4)
    End If
 
End Sub

[patricktoulon]

@Ryu bonjour
mieux vaut envisager toutes les possibilités

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub exemple2()
    Dim Machaine As String, Tab_Machaine, t(1 To 2), ok As Boolean
    Machaine = "xxx xxx xxxxx CP de duchmolle du 01/01 au 03/01"
    Tab_Machaine = Split(Machaine, " ")
    For i = LBound(Tab_Machaine) To UBound(Tab_Machaine)
        If Tab_Machaine(i) Like "CP" Then ok = True
        If Tab_Machaine(i) Like "##/##" And ok = True Then x = x + 1: t(x) = Tab_Machaine(i)
    Next
    MsgBox t(1)
   MsgBox t(2)
End Su

[RyuAutodidacte]

Coucou Patrick ,

Je suis d’accord avec toi, mais par rapport à :

Je voudrais alors vérifier la présence de la sous chaîne "CP" avant d'extraire chaque date, dont le positionnement sera toujours le même après la sous chaîne.

fait que le cas ne devrait pas se présenter "normalement"

PS : Patrick, tu ne m’as pas répondu sur ton post

[patricktoulon]

quel post?

[patricktoulon]

ok RYU en amont alors

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub exemple2()
    Dim Machaine As String, Tab_Machaine, t(1 To 2), ok As Boolean
    Machaine = "xxx xxx xxxxx CP de duchmolle du 01/01 au 03/01"
    Tab_Machaine = Split(Machaine, " ")
    If Machaine Like "CP *" Or InStr(Machaine, " CP ") > 0 And Machaine Like "*CP*##/##*##/##*" Then
    ok = True
       For i = LBound(Tab_Machaine) To UBound(Tab_Machaine)
         If Tab_Machaine(i) Like "##/##" And ok = True Then x = x + 1: t(x) = Tab_Machaine(i)
      Next
    MsgBox t(1)
    MsgBox t(2)
End If
End Sub

edit: corigé pour que l'effet soit pas fait si c'est non

[ifiii]

Merci beaucoup pour vos réponses !

Entre temps, j'ai fait finalement ça :

(K30 contient ma chaîne de caractère

Code :

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

1
2
3
4
5
6
7
8
9
10
'Copie le nombre des CP
                If Range("K30") Like "*CP*" Then 'Vérifie si cellule contient la sous chaîne "CP"
 
                        Position = InStr(Range("K30"), "CP") 'détermine position "CP" dans la chaîne
 
                        'Extrait la première date en colonne L
                         Range("L30").Value = Mid(Range("K30"), Position + 6, 5)
 
                        'Extrait la deuxième date en colonne M
                         Range("M30").Value = Mid(Range("K30"), Position + 15, 5)

Ca fonctionne bien dans mon cas précis. Mais effectivement, ça n'est pas très sécurisé dans le cas où les dates ne seraient pas à la même position par rapport à la sous chaîne "CP".

Etant débutante sous vba, il me faut étudier votre code pour en comprendre bien le fonctionnement, notamment les fonctions LBound, UBound et Split, et pouvoir adapter ce cas précis à d'autres cas qui pourraient se présenter à moi. Si vous avez une petite explication rapide, je suis preneuse

Merci beaucoup.

[patricktoulon]

re
split:
split ca veut dire coupe
ici je coupe la chaine par les virgule j'obtiens ainsi un array de 3 element

Code :

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

1
2
tablo=split("toto,titi,riri",",")
msgbox tablo(1)' j'ai le message "titi"

et oui 1 par ce que les items commencent par "0" :0,1,2,3,etc.....

lbound / ubound:

Code :

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

1
2
3
for lbound(tablo) to ubound(tablo) 
'......
next

traduction
du plus petit index du tablo au plus grand index du tablo
je dit bien index du tablo et pas debut a la fin
car si ca voulais dire debut a la fin : debut ca serai 1 le premier
tu a un exellent tuto sur les variable tableau cette partie y est abordée je crois

[RyuAutodidacte]

Pour ce genre de cas voir ici : https://silkyroad.developpez.com/VBA...nesCaracteres/

[patricktoulon]

ryu
quel post?

[RyuAutodidacte]

Ha pour le PS, le tien sur les tableaux structurés il y a peu

[unparia]

Bonjour
Si l'on s'en tient à l'exposé, tel que fait et aux détails donnés, tels que présentés :

Code :

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

1
2
3
toto = "blabla CP du 01/01 au 03/01 blabla"
titi = Split(Replace(Mid(toto, InStr(toto, "CP du "), 20), "du", "au"), "au")
MsgBox titi(0) & vbCrLf & titi(1) & vbCrLf & titi(2)

[mercatog]

@unparia

Code :

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

MsgBox "|" & titi(0) & "|" & vbCrLf & "|" & titi(1) & "|" & vbCrLf & "|" & titi(2) & "|"

Il faudrait peut être

Code :

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

titi = Split(Replace(Mid(Toto, InStr(Toto, "CP du "), 20), "du", "au"), " au ")

[unparia]

A mercatog
Oui.
Amitiés

[RyuAutodidacte]

Bonjour Jacques,

Par sécurité, je pense que se serait une bonne idée de rajouter au début pour toto,
un Application.Trim.
Sait-on jamais …

Amicalement Ryu