![]() |
|
Forum
|
|
|
#2 (permalink) |
|
Guest
Messages: n/a
|
<HTML>Pas tout compris non plus ;-)
tu veux faire une macro ? à la main tu peux saisir une valeur dans plusieurs cellules en même temps fais une sélection étendue, apuuye sur F2 pour rentrer en mode édition, tape ta date, et valide non pas par Entrée mais par "Ctrl Maj Entrée" bye steph en prime Sub testDates() Dim c As Range For Each c In Selection If c.Value <= Date And Not IsEmpty(c) Then MsgBox "La cellule " & c.Address _ & " contient une date inférieure ou égale à la date du jour." End If Next c end sub</HTML> |
|
|
#3 (permalink) |
|
Guest
Messages: n/a
|
<HTML>Le problème est simple
j'ai une feuille excel qui contient des dates d'un format non reconnu par excel exemple 06 02 2002 comme j'ai un sep espace il faut le remplacer pour l'instant pas de pb avec l'instruction substitue(cellule;" ";"/") cela fonctionne et j'obtiens 06/02/2002 visiblement cela ressemble étrangement à une date je regarde ma cellule et je suis toujours en texte je rentre dans la dite cellule touche Enter et oh miracle j'ai une date donc le pb est comment valider l'ensemble des cellules automatiquement. maintenant si je fais DateVal(substitue(cellule;" ";"/")) j'ai le numéro de série que je formate en Date et j'ai enfin le résultat. Pourquoi faire simple quand on peut faire compliquer Merci pour ton code et ta réponse</HTML> |
| ANNONCES | |
| Liens sociaux |
| Outils de la discussion | |
|
|