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.
Pour information, ce code fonctionne parfaitement pour une cellule mais j'aimerais vraiment l'étendre à l'entiéreté des colonnes.
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
Votre aide me serais d'un grand secours. merci d'avance
Partager