Discussion :

[khroutchev]

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 :

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

Et le bouton qui fait appelle à la macro :

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

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 .

[EngueEngue]

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

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

[casefayere]

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

Code :

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

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

Code :

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

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

sinon, essayes :

Code :

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

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

[khroutchev]

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 :

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

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

ou

Code :

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

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

Merci sinon à vous deux

[EngueEngue]

Code :

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

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))