Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FxM
Bonsoir Denys,
Si ta cellule contient 1900/01/00, ce n'est que le chiffre 0 au format date. Par ailleurs, ICDate est inconnu au bataillon. Enfin, cell est un nom réservé. Prends cel par exemple.
Essaie avec : for each cel in plg1 if isdate(cel) and cel.value=0 then cel.clearcontents next cel
@+ FxM
Bonjour à tous,
Dans une colonne "F", j'ai plusieurs cellules qui ont pour date 1900/01/00 et que je voudrais effacer...
Voici mon code...
Sub Effacer()
Application.ScreenUpdating = False With ActiveSheet Set plg1 = .Range("F1:F" & .Range("E65536").End(xlUp).Row) End With
For Each cell In plg1 If ICDate(cell.Value) = Date(1900,1,0) Then cell.Value = "" ' Je bloque sur cette ligne Next cell
end sub
Auriez-vous une petite idée?
Merci
Denys
Bonsoir Denys,
Si ta cellule contient 1900/01/00, ce n'est que le chiffre 0 au format date.
Par ailleurs, ICDate est inconnu au bataillon.
Enfin, cell est un nom réservé. Prends cel par exemple.
Essaie avec :
for each cel in plg1
if isdate(cel) and cel.value=0 then cel.clearcontents
next cel
@+
FxM
Bonjour à tous,
Dans une colonne "F", j'ai plusieurs cellules qui ont pour date
1900/01/00 et que je voudrais effacer...
Voici mon code...
Sub Effacer()
Application.ScreenUpdating = False
With ActiveSheet
Set plg1 = .Range("F1:F" & .Range("E65536").End(xlUp).Row)
End With
For Each cell In plg1
If ICDate(cell.Value) = Date(1900,1,0) Then cell.Value = "" ' Je
bloque sur cette ligne
Next cell
Si ta cellule contient 1900/01/00, ce n'est que le chiffre 0 au format date. Par ailleurs, ICDate est inconnu au bataillon. Enfin, cell est un nom réservé. Prends cel par exemple.
Essaie avec : for each cel in plg1 if isdate(cel) and cel.value=0 then cel.clearcontents next cel
@+ FxM
Bonjour à tous,
Dans une colonne "F", j'ai plusieurs cellules qui ont pour date 1900/01/00 et que je voudrais effacer...
Voici mon code...
Sub Effacer()
Application.ScreenUpdating = False With ActiveSheet Set plg1 = .Range("F1:F" & .Range("E65536").End(xlUp).Row) End With
For Each cell In plg1 If ICDate(cell.Value) = Date(1900,1,0) Then cell.Value = "" ' Je bloque sur cette ligne Next cell
end sub
Auriez-vous une petite idée?
Merci
Denys
Denys
Bonsoir FxM...
Merci beaucoup..... Tout est parfait....
Bonne soirée
Denys
Bonsoir Denys,
Si ta cellule contient 1900/01/00, ce n'est que le chiffre 0 au format da te. Par ailleurs, ICDate est inconnu au bataillon. Enfin, cell est un nom réservé. Prends cel par exemple.
Essaie avec : for each cel in plg1 if isdate(cel) and cel.value=0 then cel.clearcontents next cel
@+ FxM
Bonjour à tous,
Dans une colonne "F", j'ai plusieurs cellules qui ont pour date 1900/01/00 et que je voudrais effacer...
Voici mon code...
Sub Effacer()
Application.ScreenUpdating = False With ActiveSheet Set plg1 = .Range("F1:F" & .Range("E65536").End(xlUp).Row) End With
For Each cell In plg1 If ICDate(cell.Value) = Date(1900,1,0) Then cell.Value = "" ' Je bloque sur cette ligne Next cell
end sub
Auriez-vous une petite idée?
Merci
Denys
Bonsoir FxM...
Merci beaucoup..... Tout est parfait....
Bonne soirée
Denys
Bonsoir Denys,
Si ta cellule contient 1900/01/00, ce n'est que le chiffre 0 au format da te.
Par ailleurs, ICDate est inconnu au bataillon.
Enfin, cell est un nom réservé. Prends cel par exemple.
Essaie avec :
for each cel in plg1
if isdate(cel) and cel.value=0 then cel.clearcontents
next cel
@+
FxM
Bonjour à tous,
Dans une colonne "F", j'ai plusieurs cellules qui ont pour date
1900/01/00 et que je voudrais effacer...
Voici mon code...
Sub Effacer()
Application.ScreenUpdating = False
With ActiveSheet
Set plg1 = .Range("F1:F" & .Range("E65536").End(xlUp).Row)
End With
For Each cell In plg1
If ICDate(cell.Value) = Date(1900,1,0) Then cell.Value = "" ' Je
bloque sur cette ligne
Next cell
Si ta cellule contient 1900/01/00, ce n'est que le chiffre 0 au format da te. Par ailleurs, ICDate est inconnu au bataillon. Enfin, cell est un nom réservé. Prends cel par exemple.
Essaie avec : for each cel in plg1 if isdate(cel) and cel.value=0 then cel.clearcontents next cel
@+ FxM
Bonjour à tous,
Dans une colonne "F", j'ai plusieurs cellules qui ont pour date 1900/01/00 et que je voudrais effacer...
Voici mon code...
Sub Effacer()
Application.ScreenUpdating = False With ActiveSheet Set plg1 = .Range("F1:F" & .Range("E65536").End(xlUp).Row) End With
For Each cell In plg1 If ICDate(cell.Value) = Date(1900,1,0) Then cell.Value = "" ' Je bloque sur cette ligne Next cell
end sub
Auriez-vous une petite idée?
Merci
Denys
FxM
Merci du retour
@+ FxM
Bonsoir FxM...
Merci beaucoup..... Tout est parfait....
Bonne soirée
Denys
Bonsoir Denys,
Si ta cellule contient 1900/01/00, ce n'est que le chiffre 0 au format date. Par ailleurs, ICDate est inconnu au bataillon. Enfin, cell est un nom réservé. Prends cel par exemple.
Essaie avec : for each cel in plg1 if isdate(cel) and cel.value=0 then cel.clearcontents next cel
@+ FxM
Bonjour à tous,
Dans une colonne "F", j'ai plusieurs cellules qui ont pour date 1900/01/00 et que je voudrais effacer...
Voici mon code...
Sub Effacer()
Application.ScreenUpdating = False With ActiveSheet Set plg1 = .Range("F1:F" & .Range("E65536").End(xlUp).Row) End With
For Each cell In plg1 If ICDate(cell.Value) = Date(1900,1,0) Then cell.Value = "" ' Je bloque sur cette ligne Next cell
end sub
Auriez-vous une petite idée?
Merci
Denys
Merci du retour
@+
FxM
Bonsoir FxM...
Merci beaucoup..... Tout est parfait....
Bonne soirée
Denys
Bonsoir Denys,
Si ta cellule contient 1900/01/00, ce n'est que le chiffre 0 au format date.
Par ailleurs, ICDate est inconnu au bataillon.
Enfin, cell est un nom réservé. Prends cel par exemple.
Essaie avec :
for each cel in plg1
if isdate(cel) and cel.value=0 then cel.clearcontents
next cel
@+
FxM
Bonjour à tous,
Dans une colonne "F", j'ai plusieurs cellules qui ont pour date
1900/01/00 et que je voudrais effacer...
Voici mon code...
Sub Effacer()
Application.ScreenUpdating = False
With ActiveSheet
Set plg1 = .Range("F1:F" & .Range("E65536").End(xlUp).Row)
End With
For Each cell In plg1
If ICDate(cell.Value) = Date(1900,1,0) Then cell.Value = "" ' Je
bloque sur cette ligne
Next cell
Si ta cellule contient 1900/01/00, ce n'est que le chiffre 0 au format date. Par ailleurs, ICDate est inconnu au bataillon. Enfin, cell est un nom réservé. Prends cel par exemple.
Essaie avec : for each cel in plg1 if isdate(cel) and cel.value=0 then cel.clearcontents next cel
@+ FxM
Bonjour à tous,
Dans une colonne "F", j'ai plusieurs cellules qui ont pour date 1900/01/00 et que je voudrais effacer...
Voici mon code...
Sub Effacer()
Application.ScreenUpdating = False With ActiveSheet Set plg1 = .Range("F1:F" & .Range("E65536").End(xlUp).Row) End With
For Each cell In plg1 If ICDate(cell.Value) = Date(1900,1,0) Then cell.Value = "" ' Je bloque sur cette ligne Next cell
end sub
Auriez-vous une petite idée?
Merci
Denys
Ange Ounis
Enfin, cell est un nom réservé.
Point, point.. Mis à part le nom d'une barre d'outils (mais c'est dans ce cas une chaîne de caractères, pas un mot clé du langage), cell est (contrairement à Cells), à ma connaissance libre de tous droits ! J'en use et abuse comme nom de variable représentant une cellule depuis fort longtemps sans aucun problème :)
---------- Ange Ounis ----------
Bonsoir Denys,
Si ta cellule contient 1900/01/00, ce n'est que le chiffre 0 au format date. Par ailleurs, ICDate est inconnu au bataillon. Enfin, cell est un nom réservé. Prends cel par exemple.
Essaie avec : for each cel in plg1 if isdate(cel) and cel.value=0 then cel.clearcontents next cel
@+ FxM
Bonjour à tous,
Dans une colonne "F", j'ai plusieurs cellules qui ont pour date 1900/01/00 et que je voudrais effacer...
Voici mon code...
Sub Effacer()
Application.ScreenUpdating = False With ActiveSheet Set plg1 = .Range("F1:F" & .Range("E65536").End(xlUp).Row) End With
For Each cell In plg1 If ICDate(cell.Value) = Date(1900,1,0) Then cell.Value = "" ' Je bloque sur cette ligne Next cell
end sub
Auriez-vous une petite idée?
Merci
Denys
Enfin, cell est un nom réservé.
Point, point..
Mis à part le nom d'une barre d'outils (mais c'est dans ce cas une chaîne de
caractères, pas un mot clé du langage), cell est (contrairement à Cells), à ma
connaissance libre de tous droits !
J'en use et abuse comme nom de variable représentant une cellule depuis fort
longtemps sans aucun problème :)
----------
Ange Ounis
----------
Bonsoir Denys,
Si ta cellule contient 1900/01/00, ce n'est que le chiffre 0 au format
date.
Par ailleurs, ICDate est inconnu au bataillon.
Enfin, cell est un nom réservé. Prends cel par exemple.
Essaie avec :
for each cel in plg1
if isdate(cel) and cel.value=0 then cel.clearcontents
next cel
@+
FxM
Bonjour à tous,
Dans une colonne "F", j'ai plusieurs cellules qui ont pour date
1900/01/00 et que je voudrais effacer...
Voici mon code...
Sub Effacer()
Application.ScreenUpdating = False
With ActiveSheet
Set plg1 = .Range("F1:F" & .Range("E65536").End(xlUp).Row)
End With
For Each cell In plg1
If ICDate(cell.Value) = Date(1900,1,0) Then cell.Value = "" ' Je
bloque sur cette ligne
Next cell
Point, point.. Mis à part le nom d'une barre d'outils (mais c'est dans ce cas une chaîne de caractères, pas un mot clé du langage), cell est (contrairement à Cells), à ma connaissance libre de tous droits ! J'en use et abuse comme nom de variable représentant une cellule depuis fort longtemps sans aucun problème :)
---------- Ange Ounis ----------
Bonsoir Denys,
Si ta cellule contient 1900/01/00, ce n'est que le chiffre 0 au format date. Par ailleurs, ICDate est inconnu au bataillon. Enfin, cell est un nom réservé. Prends cel par exemple.
Essaie avec : for each cel in plg1 if isdate(cel) and cel.value=0 then cel.clearcontents next cel
@+ FxM
Bonjour à tous,
Dans une colonne "F", j'ai plusieurs cellules qui ont pour date 1900/01/00 et que je voudrais effacer...
Voici mon code...
Sub Effacer()
Application.ScreenUpdating = False With ActiveSheet Set plg1 = .Range("F1:F" & .Range("E65536").End(xlUp).Row) End With
For Each cell In plg1 If ICDate(cell.Value) = Date(1900,1,0) Then cell.Value = "" ' Je bloque sur cette ligne Next cell