reconnaissance de texte

Le
arnaud.fily
Bonjour,

Dans le fichier suivant, je souhaiterai supprimer les cellules
contenant les samedi et dimanche. Les cellules sont actuellement au
format date et le texte n'est pas reconnu.

Merci d'avance,

A.F

samedi 16 novembre 1991 100,00
dimanche 17 novembre 1991 100,00
lundi 18 novembre 1991 97,05
mardi 19 novembre 1991 97,61
mercredi 20 novembre 1991 99,91
jeudi 21 novembre 1991 100,14
vendredi 22 novembre 1991 98,60
samedi 23 novembre 1991 100,00
dimanche 24 novembre 1991 100,00
lundi 25 novembre 1991 100,11
mardi 26 novembre 1991 101,48
mercredi 27 novembre 1991 99,37
jeudi 28 novembre 1991 99,83
vendredi 29 novembre 1991 99,13
samedi 30 novembre 1991 100,00
dimanche 1 décembre 1991 100,00
lundi 2 décembre 1991 98,22
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #4913711
Bonjour.
C'est quoi, le nombre avec la date, c'est dans la même cellule ?
Cordialement.
Daniel

Bonjour,

Dans le fichier suivant, je souhaiterai supprimer les cellules
contenant les samedi et dimanche. Les cellules sont actuellement au
format date et le texte n'est pas reconnu.

Merci d'avance,

A.F

samedi 16 novembre 1991 100,00
dimanche 17 novembre 1991 100,00
lundi 18 novembre 1991 97,05
mardi 19 novembre 1991 97,61
mercredi 20 novembre 1991 99,91
jeudi 21 novembre 1991 100,14
vendredi 22 novembre 1991 98,60
samedi 23 novembre 1991 100,00
dimanche 24 novembre 1991 100,00
lundi 25 novembre 1991 100,11
mardi 26 novembre 1991 101,48
mercredi 27 novembre 1991 99,37
jeudi 28 novembre 1991 99,83
vendredi 29 novembre 1991 99,13
samedi 30 novembre 1991 100,00
dimanche 1 décembre 1991 100,00
lundi 2 décembre 1991 98,22
Jacquouille
Le #4913401
Bonjour

Sub efface_dimanche()
For Each c In Range("A1:A20")
If Left(c, 1) = "s" Or Left(c, 1) = "d" Then c.ClearContents
Next
End Sub
--------------------
Si tout est bien dans une seule cel par ligne.
Bonne chance
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.


Bonjour,

Dans le fichier suivant, je souhaiterai supprimer les cellules
contenant les samedi et dimanche. Les cellules sont actuellement au
format date et le texte n'est pas reconnu.

Merci d'avance,

A.F

samedi 16 novembre 1991 100,00
dimanche 17 novembre 1991 100,00
lundi 18 novembre 1991 97,05
mardi 19 novembre 1991 97,61
mercredi 20 novembre 1991 99,91
jeudi 21 novembre 1991 100,14
vendredi 22 novembre 1991 98,60
samedi 23 novembre 1991 100,00
dimanche 24 novembre 1991 100,00
lundi 25 novembre 1991 100,11
mardi 26 novembre 1991 101,48
mercredi 27 novembre 1991 99,37
jeudi 28 novembre 1991 99,83
vendredi 29 novembre 1991 99,13
samedi 30 novembre 1991 100,00
dimanche 1 décembre 1991 100,00
lundi 2 décembre 1991 98,22
arnaud.fily
Le #4912111
On 19 juin, 16:59, "Jacquouille" wrote:
Bonjour

Sub efface_dimanche()
For Each c In Range("A1:A20")
If Left(c, 1) = "s" Or Left(c, 1) = "d" Then c.ClearContents
Next
End Sub
--------------------
Si tout est bien dans une seule cel par ligne.
Bonne chance
--
Bien amicalmement,
Vivement conseillés:http://www.excelabo.nethttp://jacxl.free.fr/mpfe/tr ombino.htmlhttp://dj.joss.free.fr/netiquet.htmhttp://frederic.sigonneau.fre e.fr/

Jacquouille.


Bonjour,

Dans le fichier suivant, je souhaiterai supprimer les cellules
contenant les samedi et dimanche. Les cellules sont actuellement au
format date et le texte n'est pas reconnu.

Merci d'avance,

A.F

samedi 16 novembre 1991 100,00
dimanche 17 novembre 1991 100,00
lundi 18 novembre 1991 97,05
mardi 19 novembre 1991 97,61
mercredi 20 novembre 1991 99,91
jeudi 21 novembre 1991 100,14
vendredi 22 novembre 1991 98,60
samedi 23 novembre 1991 100,00
dimanche 24 novembre 1991 100,00
lundi 25 novembre 1991 100,11
mardi 26 novembre 1991 101,48
mercredi 27 novembre 1991 99,37
jeudi 28 novembre 1991 99,83
vendredi 29 novembre 1991 99,13
samedi 30 novembre 1991 100,00
dimanche 1 décembre 1991 100,00
lundi 2 décembre 1991 98,22


merci, @+

JP25
Le #4912091
Bonjour
=SUBSTITUE(A3;"dimanche";"")

--
Cordialement
JP25



On 19 juin, 16:59, "Jacquouille" wrote:
Bonjour

Sub efface_dimanche()
For Each c In Range("A1:A20")
If Left(c, 1) = "s" Or Left(c, 1) = "d" Then c.ClearContents
Next
End Sub
--------------------
Si tout est bien dans une seule cel par ligne.
Bonne chance
--
Bien amicalmement,
Vivement
conseillés:http://www.excelabo.nethttp://jacxl.free.fr/mpfe/trombino.htmlhttp://dj.joss.free.fr/netiquet.htmhttp://frederic.sigonneau.free.fr/

Jacquouille.


Bonjour,

Dans le fichier suivant, je souhaiterai supprimer les cellules
contenant les samedi et dimanche. Les cellules sont actuellement au
format date et le texte n'est pas reconnu.

Merci d'avance,

A.F

samedi 16 novembre 1991 100,00
dimanche 17 novembre 1991 100,00
lundi 18 novembre 1991 97,05
mardi 19 novembre 1991 97,61
mercredi 20 novembre 1991 99,91
jeudi 21 novembre 1991 100,14
vendredi 22 novembre 1991 98,60
samedi 23 novembre 1991 100,00
dimanche 24 novembre 1991 100,00
lundi 25 novembre 1991 100,11
mardi 26 novembre 1991 101,48
mercredi 27 novembre 1991 99,37
jeudi 28 novembre 1991 99,83
vendredi 29 novembre 1991 99,13
samedi 30 novembre 1991 100,00
dimanche 1 décembre 1991 100,00
lundi 2 décembre 1991 98,22


merci, @+

arnaud.fily
Le #4912081
On 19 juin, 16:59, "Jacquouille" wrote:
Bonjour

Sub efface_dimanche()
For Each c In Range("A1:A20")
If Left(c, 1) = "s" Or Left(c, 1) = "d" Then c.ClearContents
Next
End Sub
--------------------
Si tout est bien dans une seule cel par ligne.
Bonne chance
--
Bien amicalmement,
Vivement conseillés:http://www.excelabo.nethttp://jacxl.free.fr/mpfe/tr ombino.htmlhttp://dj.joss.free.fr/netiquet.htmhttp://frederic.sigonneau.fre e.fr/

Jacquouille.


Bonjour,

Dans le fichier suivant, je souhaiterai supprimer les cellules
contenant les samedi et dimanche. Les cellules sont actuellement au
format date et le texte n'est pas reconnu.

Merci d'avance,

A.F

samedi 16 novembre 1991 100,00
dimanche 17 novembre 1991 100,00
lundi 18 novembre 1991 97,05
mardi 19 novembre 1991 97,61
mercredi 20 novembre 1991 99,91
jeudi 21 novembre 1991 100,14
vendredi 22 novembre 1991 98,60
samedi 23 novembre 1991 100,00
dimanche 24 novembre 1991 100,00
lundi 25 novembre 1991 100,11
mardi 26 novembre 1991 101,48
mercredi 27 novembre 1991 99,37
jeudi 28 novembre 1991 99,83
vendredi 29 novembre 1991 99,13
samedi 30 novembre 1991 100,00
dimanche 1 décembre 1991 100,00
lundi 2 décembre 1991 98,22


Re, je reviens vers toi car la cellule étant au format date et il ne
trouve ni "s" ni "d".
si tu as 1 idée, ...

arnaud.fily
Le #4912071
On 19 juin, 12:00, "Daniel"
Bonjour.
C'est quoi, le nombre avec la date, c'est dans la même cellule ?
Cordialement.
Daniel

Bonjour,

Dans le fichier suivant, je souhaiterai supprimer les cellules
contenant les samedi et dimanche. Les cellules sont actuellement au
format date et le texte n'est pas reconnu.

Merci d'avance,

A.F

samedi 16 novembre 1991 100,00
dimanche 17 novembre 1991 100,00
lundi 18 novembre 1991 97,05
mardi 19 novembre 1991 97,61
mercredi 20 novembre 1991 99,91
jeudi 21 novembre 1991 100,14
vendredi 22 novembre 1991 98,60
samedi 23 novembre 1991 100,00
dimanche 24 novembre 1991 100,00
lundi 25 novembre 1991 100,11
mardi 26 novembre 1991 101,48
mercredi 27 novembre 1991 99,37
jeudi 28 novembre 1991 99,83
vendredi 29 novembre 1991 99,13
samedi 30 novembre 1991 100,00
dimanche 1 décembre 1991 100,00
lundi 2 décembre 1991 98,22


Slt, le nombre (100,00) est dans 1 seconde colonne, tout le reste est
dans la même,

Daniel
Le #4912031
Essaie :

Sub test()
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Weekday(Cells(i, 1)) = 1 Or Weekday(Cells(i, 1)) = 7 Then
Cells(i, 1).EntireRow.Delete
End If
Next i
End Sub

Daniel

On 19 juin, 12:00, "Daniel"
Bonjour.
C'est quoi, le nombre avec la date, c'est dans la même cellule ?
Cordialement.
Daniel

Bonjour,

Dans le fichier suivant, je souhaiterai supprimer les cellules
contenant les samedi et dimanche. Les cellules sont actuellement au
format date et le texte n'est pas reconnu.

Merci d'avance,

A.F

samedi 16 novembre 1991 100,00
dimanche 17 novembre 1991 100,00
lundi 18 novembre 1991 97,05
mardi 19 novembre 1991 97,61
mercredi 20 novembre 1991 99,91
jeudi 21 novembre 1991 100,14
vendredi 22 novembre 1991 98,60
samedi 23 novembre 1991 100,00
dimanche 24 novembre 1991 100,00
lundi 25 novembre 1991 100,11
mardi 26 novembre 1991 101,48
mercredi 27 novembre 1991 99,37
jeudi 28 novembre 1991 99,83
vendredi 29 novembre 1991 99,13
samedi 30 novembre 1991 100,00
dimanche 1 décembre 1991 100,00
lundi 2 décembre 1991 98,22


Slt, le nombre (100,00) est dans 1 seconde colonne, tout le reste est
dans la même,

Jacquouille
Le #4911941
Re
Je croyais que tu avais récupéré ces info et que cela était sous forme
texte.
Puisque nous changeons l'environnement, nous allons changer d'essence d'IF.
-------------------------
Sub Efface_dimanche() '(auteurs trop connus du MPFE, dont j'ai copié et
ajusté la prose)
For i = [A65536].End(3).Row To 2 Step -1
If Weekday(Range("A" & i)) = 1 Or Weekday(Range("A" & i)) = 7 Then
Rows(i).Delete
Next
End Sub
------------------------
La ligne 1 est supposée être la ligne de titres, donc on n'y touche pas. Si
tel n'est pas le cas, modifier la deuxième ligne ....Row to 1 step -1.
Vu que les données sont dans plusieurs colonnes, j'efface toute la ligne
(rows(i).delete
Bonne chance.
Si prob, tu reviens.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.


On 19 juin, 16:59, "Jacquouille" wrote:
Bonjour

Sub efface_dimanche()
For Each c In Range("A1:A20")
If Left(c, 1) = "s" Or Left(c, 1) = "d" Then c.ClearContents
Next
End Sub
--------------------
Si tout est bien dans une seule cel par ligne.
Bonne chance
--
Bien amicalmement,
Vivement
conseillés:http://www.excelabo.nethttp://jacxl.free.fr/mpfe/trombino.htmlhttp://dj.joss.free.fr/netiquet.htmhttp://frederic.sigonneau.free.fr/

Jacquouille.


Bonjour,

Dans le fichier suivant, je souhaiterai supprimer les cellules
contenant les samedi et dimanche. Les cellules sont actuellement au
format date et le texte n'est pas reconnu.

Merci d'avance,

A.F

samedi 16 novembre 1991 100,00
dimanche 17 novembre 1991 100,00
lundi 18 novembre 1991 97,05
mardi 19 novembre 1991 97,61
mercredi 20 novembre 1991 99,91
jeudi 21 novembre 1991 100,14
vendredi 22 novembre 1991 98,60
samedi 23 novembre 1991 100,00
dimanche 24 novembre 1991 100,00
lundi 25 novembre 1991 100,11
mardi 26 novembre 1991 101,48
mercredi 27 novembre 1991 99,37
jeudi 28 novembre 1991 99,83
vendredi 29 novembre 1991 99,13
samedi 30 novembre 1991 100,00
dimanche 1 décembre 1991 100,00
lundi 2 décembre 1991 98,22


Re, je reviens vers toi car la cellule étant au format date et il ne
trouve ni "s" ni "d".
si tu as 1 idée, ...

arnaud.fily
Le #4910901
On 20 juin, 19:13, "Daniel"
Essaie :

Sub test()
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Weekday(Cells(i, 1)) = 1 Or Weekday(Cells(i, 1)) = 7 Then
Cells(i, 1).EntireRow.Delete
End If
Next i
End Sub

Daniel

On 19 juin, 12:00, "Daniel"




Bonjour.
C'est quoi, le nombre avec la date, c'est dans la même cellule ?
Cordialement.
Daniel

Bonjour,

Dans le fichier suivant, je souhaiterai supprimer les cellules
contenant les samedi et dimanche. Les cellules sont actuellement au
format date et le texte n'est pas reconnu.

Merci d'avance,

A.F

samedi 16 novembre 1991 100,00
dimanche 17 novembre 1991 100,00
lundi 18 novembre 1991 97,05
mardi 19 novembre 1991 97,61
mercredi 20 novembre 1991 99,91
jeudi 21 novembre 1991 100,14
vendredi 22 novembre 1991 98,60
samedi 23 novembre 1991 100,00
dimanche 24 novembre 1991 100,00
lundi 25 novembre 1991 100,11
mardi 26 novembre 1991 101,48
mercredi 27 novembre 1991 99,37
jeudi 28 novembre 1991 99,83
vendredi 29 novembre 1991 99,13
samedi 30 novembre 1991 100,00
dimanche 1 décembre 1991 100,00
lundi 2 décembre 1991 98,22


Slt, le nombre (100,00) est dans 1 seconde colonne, tout le reste est
dans la même,- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Merci ça marche !, @+


Publicité
Poster une réponse
Anonyme