Comment faire pour bloquer une date aujourd hui
Fermé
flexi2202
Messages postés
3799
Date d'inscription
lundi 14 mars 2011
Statut
Membre
Dernière intervention
16 mai 2024
-
27 janv. 2019 à 16:02
flexi2202 Messages postés 3799 Date d'inscription lundi 14 mars 2011 Statut Membre Dernière intervention 16 mai 2024 - 28 janv. 2019 à 16:34
flexi2202 Messages postés 3799 Date d'inscription lundi 14 mars 2011 Statut Membre Dernière intervention 16 mai 2024 - 28 janv. 2019 à 16:34
A voir également:
- Comment faire pour bloquer une date aujourd hui
- Bloquer pub youtube - Guide
- Bloquer une cellule excel - Guide
- Comment savoir si on est bloqué sur messenger - Guide
- Comment bloquer une personne sur messenger - Guide
- Comment ouvrir un fichier dat - Guide
11 réponses
ccm81
Messages postés
10879
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 septembre 2024
2 415
27 janv. 2019 à 16:08
27 janv. 2019 à 16:08
Bonjour
Deux solutions simples
- la rentrer "à la main"
- Ctrl+;
Si la date fait partie d'une formule, ça ne fonctionnera pas bien sûr !
Cdlmnt
Deux solutions simples
- la rentrer "à la main"
- Ctrl+;
Si la date fait partie d'une formule, ça ne fonctionnera pas bien sûr !
Cdlmnt
ccm81
Messages postés
10879
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 septembre 2024
2 415
27 janv. 2019 à 16:14
27 janv. 2019 à 16:14
Et si tu y tiens vraiment, une macro est requise
https://www.cjoint.com/c/IABpopUqk6B
Cdlmnt
https://www.cjoint.com/c/IABpopUqk6B
Cdlmnt
ccm81
Messages postés
10879
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 septembre 2024
2 415
Modifié le 27 janv. 2019 à 18:59
Modifié le 27 janv. 2019 à 18:59
Private Sub Worksheet_Change(ByVal Target As Range) Dim plage As Range If Target.Count > 1 Then Exit Sub Set plage = Union(Range("K2"), Range("B10"), Range("E10")) If Not Intersect(plage, Target) Is Nothing Then Range("A2").Value = Date Range("A2").NumberFormat = "dd/mm/yyyy" End If End Sub
Cdlmnt
flexi2202
Messages postés
3799
Date d'inscription
lundi 14 mars 2011
Statut
Membre
Dernière intervention
16 mai 2024
187
Modifié le 27 janv. 2019 à 19:03
Modifié le 27 janv. 2019 à 19:03
merci pour la reponse
mais je souhaiterais que la date s affiche seulement que lorsque je rentre quelque chose en K2
j ai essaye ceci mais cela ne fonctionne pas
mais je souhaiterais que la date s affiche seulement que lorsque je rentre quelque chose en K2
j ai essaye ceci mais cela ne fonctionne pas
Set plage = (Range("K2")
ccm81
Messages postés
10879
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 septembre 2024
2 415
Modifié le 27 janv. 2019 à 19:50
Modifié le 27 janv. 2019 à 19:50
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Range("K2"), Target) Is Nothing Then If Target.Value = "" Then Exit Sub Range("A2").Value = Date Range("A2").NumberFormat = "dd/mm/yyyy" End If End Sub
Cdlmnt
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
ccm81
Messages postés
10879
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 septembre 2024
2 415
27 janv. 2019 à 20:40
27 janv. 2019 à 20:40
Je mettrai
avant la ligne
Cdlmnt
If Not Intersect(Range("K2"), Target) Is Nothing Then If Target.Value = "" Then Exit Sub Application.EnableEvents = False Range("A2").Value = Date Range("A2").NumberFormat = "dd/mm/yyyy" Application.EnableEvents = True End If
avant la ligne
adDC = Cells(2, Columns.Count).End(xlToLeft).Address
Cdlmnt
ccm81
Messages postés
10879
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 septembre 2024
2 415
28 janv. 2019 à 15:07
28 janv. 2019 à 15:07
un petit down
Cdlmnt
If Not Intersect(Columns("K"), Target) Is Nothing Then If Target.Value = "" Then Exit Sub Range("A" & Target.Row).Value = Date Range("A" & Target.Row).NumberFormat = "dd/mm/yyyy" End If
Cdlmnt
flexi2202
Messages postés
3799
Date d'inscription
lundi 14 mars 2011
Statut
Membre
Dernière intervention
16 mai 2024
187
27 janv. 2019 à 16:34
27 janv. 2019 à 16:34
bonjour
merci pour les réponses
et vos solutions
je viens de découvrir ce morceau de code mais je souhaiterais l appliquer
que quand je rentre une valeur quelconque en K2 par exemple que la date s affiche en A2
merci pour les réponses
et vos solutions
je viens de découvrir ce morceau de code mais je souhaiterais l appliquer
que quand je rentre une valeur quelconque en K2 par exemple que la date s affiche en A2
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Union(Range("$K$2"), Range("B10"), Range("E10"))) Is Nothing Then
Range("E2").Value = Format(Date)
End If
End Sub
flexi2202
Messages postés
3799
Date d'inscription
lundi 14 mars 2011
Statut
Membre
Dernière intervention
16 mai 2024
187
27 janv. 2019 à 20:13
27 janv. 2019 à 20:13
ah super cela fonctionne a merveille
un tout grand merci
comment je pourrais faire pour l intégrer a e code
un tout grand merci
comment je pourrais faire pour l intégrer a e code
Const Nom_Col As String = "certifié"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range
If Target.Count > 1 Then Exit Sub 'si on modifie plusieurs cellules simultanément
adDC = Cells(2, Columns.Count).End(xlToLeft).Address
LDCol = Split(adDC, "$")(1) 'lettre derniere colonne ligne 2
NDCol = Range(Split(adDC, "$")(1) & 1).Column 'derniere colonne en nombre
Set Plage = Range("A2:" & LDCol & 2) 'plage de colonnes ligne 2
LCol = Chr(Plage.Find(Nom_Col, lookat:=xlWhole).Column + 64) 'lettre colonne "certifié"
If Application.CountIf(Plage, Nom_Col) > 0 Then 'existe
If Not Intersect(Target, Range(LCol & "2:" & LCol & "50")) Is Nothing Then 'plage à adapter
If UCase(Target) = "NON" Then
nouvlig = Sheets("Archives signataires").Cells(Rows.Count, 1).End(xlUp).Row + 1 'index de la première ligne vide dans "Archives"
Cells(Target.Row, 1).Resize(1, NDCol).Copy
Sheets("Archives signataires").Cells(nouvlig, 1).Resize(1, NDCol).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.EnableEvents = False 'désactiver les événements
Cells(Target.Row, 1).EntireRow.Delete
Application.EnableEvents = True
End If
End If
Else
MsgBox "Attention: " & Nom_Col & " n'extiste pas !!!!!!!"
End If
Set Plage = Nothing
End Sub
flexi2202
Messages postés
3799
Date d'inscription
lundi 14 mars 2011
Statut
Membre
Dernière intervention
16 mai 2024
187
27 janv. 2019 à 21:05
27 janv. 2019 à 21:05
super nickel cela fonctionne a merveille
un mega tout grand merci
y a t il possibilité au lieu plutot que quand j inscrive quelque chose dans la cellule k2 que la date s affiche en A2
que cela se produit dans les colonnes
donc si j ecris un truc dans la colonne K que la date s affiche en colonne A
par exemple j ecris un truc en K10 que la date s affiche a A10
j ecris un truc en K5 que la date s affiche a A5
j ecris un truc en K12 que la date s affiche a A12
ect....
encore mille fois merci
un mega tout grand merci
y a t il possibilité au lieu plutot que quand j inscrive quelque chose dans la cellule k2 que la date s affiche en A2
que cela se produit dans les colonnes
donc si j ecris un truc dans la colonne K que la date s affiche en colonne A
par exemple j ecris un truc en K10 que la date s affiche a A10
j ecris un truc en K5 que la date s affiche a A5
j ecris un truc en K12 que la date s affiche a A12
ect....
encore mille fois merci
flexi2202
Messages postés
3799
Date d'inscription
lundi 14 mars 2011
Statut
Membre
Dernière intervention
16 mai 2024
187
28 janv. 2019 à 10:48
28 janv. 2019 à 10:48
bonjour a tous
un petit up
svp merci
un petit up
svp merci
flexi2202
Messages postés
3799
Date d'inscription
lundi 14 mars 2011
Statut
Membre
Dernière intervention
16 mai 2024
187
28 janv. 2019 à 16:34
28 janv. 2019 à 16:34
bonjour
un tout grand merci pour l aide
cela fonctionne a merveille
mille fois merci
un tout grand merci pour l aide
cela fonctionne a merveille
mille fois merci