Macro : suppression de valeurs (remplacement par "")

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 :

Code:

---

1 2 3 4 5 6

Sub Sup1() With Sheets("Feuil1") Cells.Replace "01/01/1901", "" End With End Sub

---

Et le bouton qui fait appelle à la macro :

Code:

---

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

---

Jusque là pas de problème, l'ensemble des macros tournent parfaitement bien. Aucuns debogages ou autres.
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 :ccool:.

"" = 0 pour excel
cdate(0)= 01/01/1901

donc.. suffit de virer le format date et t'auras ""

Suivant la feuille où tu te trouves, tu oublies déjà un "." ci-dessous ton "With" ne sert à rien

Code:

---

1 2 3

With Sheets("Feuil1") Cells.Replace "01/01/1901", "" End With

---

Code:

---

1 2 3

With Sheets("Feuil1") .Cells.Replace "01/01/1901", "" End With

---

sinon, essayes :

Code:

---

1 2 3 4 5 6 7

Dim plage As Range, cel As Range With Sheets("Feuil1") Set plage = .Range("A1").CurrentRegion 'à adapter à ta plage For Each cel In plage If cel = CDate("01/01/1901") Then MsgBox cel.Address: cel = Empty Next cel End With

---

La première méthode en ajoutant le "." ne marche pas.
En revanche j'aimerais bien tester la 2ème méthode cependant si je veux adapter la plage à mon fichier de manière variable. Comment dois-je procéder ?

Code:

---

Range(Range("A1"), Range("Y65000").End(xlUp))

---

ou

Code:

---

Range("A1", [Y65000].End(xlUp))

---

Merci sinon à vous deux :ccool:

Code:

---

1 2 3 4

dernlig=.Range("A" & rows.count).End(xlUp).row derncol =.Cells(1, Columns.Count).End(xlToLeft).Column .range(.cells(1,1),.cells(dernlig,derncol))

---

Bizzarement le code que tu m'as joint (casefayere) ne marche pas.
Excel me renvoit des messages suivis du type : $Q$20 ...

Il marche sauf qu'il te dit l'adresse avant de le supprimer..

Bah ouais mais c'est agaçant lorsqu'il y a 100 000 cellules concernées ...:cry:

Bah vire le msgbox

Code:

---

MsgBox cel.Address:

---

Ouais c'est ce que j'ai fait :ccool:.
MERCI POUR TOUT