XL 2016 Problème avec date heure

fenec

XLDnaute Impliqué
Bonsoir le forum,
je reviens vers vous pour un problème lorsque je renseigne mon tableau, je m'explique:
Lorsque je renseigne des données dans la colonne "C" je renseigne en colonne "B" la date et l'heure .
Le problème que je rencontre c'est que toutes les dates colonne "B" changent si je renseigne la colonne "C"
Vous joint un fichier qui je pense sera plus explicite.
Cordialement,
Philippe.
 

Pièces jointes

  • Classeur1.xlsx
    11.1 KB · Affichages: 9

JHA

XLDnaute Barbatruc
Bonjour à tous,

Une solution du forum

JHA
 

Pièces jointes

  • Classeur1.xlsx
    11.3 KB · Affichages: 9

GALOUGALOU

XLDnaute Accro
re fenec, bonjour le fil , bonjour le forum
cette macro devrait faire l'affaire (dans l'évenement feuille). quand dans la colonne c la valeur est égale à la valeur colonne E, dans la colonne B la formule est remplacée par sa valeur.
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("c5:c1000"), Target) Is Nothing Then
  lig = Cells(Rows.Count, 3).End(xlUp).Row
   For i = 5 To lig
   If Cells(i, 2) <> IsNumber Then
   Cells(i, 2).Value = Cells(i, 2).Value
   End If
   Next
End If
End Sub
cdt
galougalou
 

Pièces jointes

  • formule valeur par vba.xlsm
    16.6 KB · Affichages: 3

fenec

XLDnaute Impliqué
Bonjour le forum, JHA, GALOUGALOU

Merci à vous, vos deux solutions correspondent à ma demande.
Une question cependant pour JHA:

Le fait de cocher le calcul itératif, cela peut-il avoir une incidence sur d'autres fichiers ou cette option n'est active que pour ce classeur?

Cordialement,
 

JHA

XLDnaute Barbatruc
Bonjour à tous,

Voir l'aide de Microsoft


Pour moi, pas de soucis particulier mais si tu as le calcul itératif coché, il sera actif sur toutes les autres classeurs ouverts.

JHA
 

fenec

XLDnaute Impliqué
Bonsoir le forum, JHA ,GALOUGALOU

Je reviens vers vous pour un problème car si je vide à l'aide de mon bouton les données de la colonne "C" je suis obligé de : "restaurer en tant que formule de colonne calculée" la colonne "B".
Serait -il possible de le faire automatiquement ?
Vous joint mon fichier
Cordialement,
 

Pièces jointes

  • formule valeur par vba forum.xlsm
    19.1 KB · Affichages: 2

job75

XLDnaute Barbatruc
Bonjour fenec, goube, JHA, GALOUGALOU,

Avec une macro pas besoin de formules, celle-ci va bien :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim colA As Range, colB As Range, colD As Range, decal&, i&
Set colA = [Tableau2].Columns(1).Cells
Set colB = [Tableau2].Columns(2).Cells
Set colD = [Tableau2].Columns(4).Cells
Set Target = Intersect(Target, Union(colA, colB, colD))
If Target Is Nothing Then Exit Sub
decal = colA.Row - 1
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
For Each Target In Target
    i = Target.Row - decal
    If colB(i) = colD(i) Then colA(i) = Now Else colA(i) = ""
Next
Application.EnableEvents = True 'réactive les évènements
End Sub
A+
 

Pièces jointes

  • MAJ dates(1).xlsm
    20.7 KB · Affichages: 4

fenec

XLDnaute Impliqué
Bonjour le forum, JHA, GALOUGALOU, job75

job75, viens de tester votre code et tout est nickel comme d'habitude mais j'ai besoin de vos lumières pour votre code.
Je ne comprends pas pourquoi vous parlez de la colonne "A" dans votre code alors que celle-ci est vide de données.
En attente de vous lire…
Cordialement,
 

Statistiques des forums

Discussions
311 709
Messages
2 081 779
Membres
101 816
dernier inscrit
Jfrcs