Discussion :

[AimeDija]

Bonjour à tous,

Je viens vers vous afin de vous demander de l'aide.
J'essaye depuis plusieurs jours maintenant d'appliquer le code ci-dessous à l'entiéreté d'une colonne sans succés. Ayant essayer d'utiliser la fonction FillDown et derniere_ligne, qui se sont soldé par un echec, je me suis tourné vers les forum et depuis je n'ai pu trouver de réponse.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub test()
 
With Sheets("Feuil1").range("AJ2")
 
     For i = 1 To derniere_ligne
 
         If IsDate(Mid(.Value, i, 7)) Then
             Sheets("Feuil1").range("AI2") = Mid(.Value, i, 7)
             Exit For
         End If
     Next i
 End With
 End Sub

Pour information, ce code fonctionne parfaitement pour une cellule mais j'aimerais vraiment l'étendre à l'entiéreté des colonnes.

Votre aide me serais d'un grand secours. merci d'avance

[LeBo74]

Bonjour AimeDija,

Pour appliquer un code à l'entièreté d'une colonne il te faudra mieux maitriser la boucle for next et appliquer une valeur à ta variable derniere_ligne

Lorsque tu lance ta macro tel que rédiger tu boucle de la valeur i = 1 à la valeur "vide". Tu boucle donc dans le vide
Pour affecter une valeur à derniere_ligne, il te faut partir du bas du fichier et remonter jusqu'à la 1ère valeur :

Code :

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

Derniere_ligne = Sheets("Feuil1").Range("AJ" & Rows.Count).End(xlUp).Row

Ensuite pour ta boucle, le i doit corespondre à la ligne à laquelle tu veux appliquer ton code. Actuellement, le i ne fait que changer le carctère de départ de la fonction mid et tu boucleras sur la même cellule. En plus, tu sors de la boucle For dès que la conditionelle est vrai avec ton Exit for (si j'étais toi, je cacherais cette ligne qui n'est pas du tout à la mode...)
exemple de boucle sur l'Ensemble des lignes:

Code :

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

1
2
3
For i = 1 to derniere_ligne
Sheets("Feuil1").Range("AI" & i) = ... mettre la suite du code ici
next i

Enfin, tu nous dis que ta macro fonctionne mais à quoi sert-elle : la fonction mid que tu utilise retourne une chaine de type variante. Appliquer la fonction isdate à ce résultat, à moins que je me trompe, te retournera toujours faux.

Je crois que tu serais mieux dexpliquer ce que tu souhaites faire, le conseil que tu recevras sera plus précis

Bonne chance

[AimeDija]

Bonjour Lebo 74,

Un grand merci pour tes explications qui m'aident déja beacoup.

Travaillant sur un gros fichier ( plus de 65000 lignes) , je cherche à faire en sorte que lorsque je rencontre une date contenue dans une zone de texte (format standard) je puisse extraire cette date, c'est à dire enlever le texte de la cellule et juste laisser cette date:

par exemple pour lorsque je rencontre ; 12/2017 E170369836 ,12/2017 - E170369837, 01/2018 Maitenance of Co , 07/2018 SK SA7 R/D ,
ALEA 107038 from 12/03/2018.

je souhaite juste extraire (12/2017 , 12/2017 , 01/2018, 07/2018, 12/03/2018) la date contenue dans cette cellule peux importe la longeur de celle-ci.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub test()
 
With Sheets("Feuil1").range("AJ48")
 
     For i = 1 To Len(.Value)
 
         If IsDate(Mid(.Value, i, 8)) Then
             Sheets("Feuil1").range("AI48") = Mid(.Value, i, 8)
             Exit For
         End If
     Next i
  End With
 End Sub

le code ci-dessus me permet de le faire mais avec certains inconvenient :

1. Effectue l'opération sur seulement une cellule et pas l'ensemble de la colonne
2. Ne tiens pas compte du format de la date , il prend seulement en compte le format 06/2018 et non 05/10/2018
3. Il faudrait qu'il effectue cette opération seulement sur les celules contenant un mix entre texte et date et laisse les cellules déja affectées d'une date comme telles.

[Theze]

Bonjour,

Avant de l'appliquer sur toute la colonne, je suis parti sur la chaîne mise en exemple mais je doute qu'elles soient toutes construites à l'identique (je ne parle pas des date et valeurs). A tester dans un premier temps sur quelques chaînes et revenir pour affiner :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Sub Test()
 
    Dim T1
    Dim T2
    Dim I As Integer
    Dim J As Integer
    Dim Chaine As String
    Dim Result As String
 
    Chaine = "12/2017 E170369836 ,12/2017 - E170369837, 01/2018 Maitenance of Co , 07/2018 SK SA7 R/D ,*ALEA 107038 from 12/03/2018"
 
    'sépare une première fois à l'aide des virgules
    T1 = Split(Chaine, ",")
 
    For I = 0 To UBound(T1)
 
        'une seconde fois à l'aide des espaces (Trim supprime les espaces parasites)
        T2 = Split(Trim(T1(I)), " ")
 
        For J = 0 To UBound(T2)
            If IsDate(T2(J)) Then Result = Result & T2(J) & ", "
 
    Next J, I
 
    'supprime les ", " de fin
    Result = Left(Result, Len(Result) - 2)
 
    MsgBox Result
 
End Sub

[AimeDija]

Bonjour Theze,

Merci pour ton aide, ton code me retourne les valeurs demandé sur msg box.

En effet, les valeurs dans les cellules ne sont absolument pas toutes construites de la même façon, serais il possible de ne pas mettre tout les exemples existant dans la chaine car je ne les connais pas à l'avance?

Mon but final est de pouvoir séparer le texte des dates et ne laisser que les dates (quelqu'elles soient) dans la cellule.