Voilà, le but du jeu est de supprimer l'ensemble des valeurs "01/01/1901" du fichier copier dans l'outil. J'aimerais donc remplacer cette valeur par "" sur l'ensemble de la feuille1.
Mon code ressemble à ça :
Et le bouton qui fait appelle à la macro :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Sub Sup1() With Sheets("Feuil1") Cells.Replace "01/01/1901", "" End With End Sub
Jusque là pas de problème, l'ensemble des macros tournent parfaitement bien. Aucuns debogages ou autres.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Private Sub CommandButton1_Click() Call Sup1 Call Sup2 Call Traitement Call Filtre Call Renomme Call Filtre2 Call Renomme2 End Sub
Mais voilà, après avoir fait tourner les macros. Je me suis rendu compte que les valeurs "01/01/1901" étaient toujours présentes. Le reste fonctionne bien et c'est pour cela que je n'ai pas joint ou inséré le reste du code (autres macros). Une petit idée sur ce problème ? Un format de cellule (date) ? ...
Je vous remercie d'avance.
Partager