Excel : problème date modification

Résolu
ORLI -  
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,


J'ai un problème sur excel :
Le but est d'afficher dans la zone B7:B34 la date de modification de la zone D7:D34, par rapport au ligne.
Par exemple dès que l'on écrit quelque chose en D8, il y ai la date de modification en B8.
De plus j'aimerais aussi qu'il n'y ai aucune date qui s'affiche si il n'y a rien la case D de la ligne, dans le cas où l'on vient de l'effacer (ce qui correspondont à une modification pour excel).
Merci d'avance !

A voir également:

4 réponses

Réponse 1 / 4
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Avec cette procédure à placer dans le module de la feuille : 
Private Sub Worksheet_Change(ByVal Target As Range) 
If Application.Intersect(Target, Range("D7:D34")) Is Nothing Then 
    Exit Sub 
ElseIf Target.Value = "" Then 
    Target.Offset(0, -2) = "" 
Else 
    Target.Offset(0, -2) = Date 
End If 
End Sub

Salutations.
Le Pingou
2
ORLI
 
Un grand MERCI à toi le pingou, ça a marcher du premier coup !
0
ORLI
 
Rebonjour,

Finalement j'ai encore un petit problème, lorsque j'efface une cellule dans la colonne D, j'ai un message d'erreur " Erreur d'éxécution '13' Imcompatibilité de type " puis il me propose un debogage.

Merci
0
Réponse 2 / 4
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Ouvrir VBA par Alt+F11

Click droit inserer module

'Dans un module
' Nom de la feuille a adapter
'Tableau memoire contenu cellules D7 a D34
'Recuperation des donnees D7:D34

Public Table_Infos_D7D34(30)

Private Sub Auto_Open()
With Sheets("feuil1")
For x = 1 To 28
Table_Infos_D7D34(x) = .Cells(x + 6, 4)
Next
End With
End Sub

'Double click feuil1
'code a copier fenetre de droite
'Traitement Cellule D7:D34 Feuil1
Private Sub Worksheet_Change(ByVal Target As Range)
'cellule selectionnee D7:D34
If Not Application.Intersect(Target, Range("D7:D34")) Is Nothing Then
'si plus d'une cellule selectionnee----> sortie
If Target.Count > 1 Then Exit Sub
'Cellule Dx contenu different de memoire et Cellule Dx pas vide
If Target <> Table_Infos_D7D34(Target.Row - 6) And Target <> "" Then
'Ecriture date
Cells(Target.Row, 2) = Date
'mise en memoire cellule Dx
Table_Infos_D7D34(Target.Row - 6) = Target
End If
End If
End Sub

Bonne suite
0
ORLI
 
Merci beaucoup de répondre aussi rapidement f894009 !
0
Réponse 3 / 4
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Je ne trouve pas d'erreur chez moi.
Cliquer sur débogage, faire une copie d'écran, coller sur document Word et mettre ce dernier sur https://www.cjoint.com/ !
Merci
0
ORLI
 
http://cjoint.com/?3DmjRwsxcKj
voici le lien, merci encore
0
ORLI
 
en effet lorsque je teste le code sur un autre fichier excel, il n'y a pas de problème, mais le problème persiste sur mon fichier
0
ORLI
 
C'est bon j'ai trouvé la nature du problème, le problème venait du fait que la case de la colonne D était fusionnée avec d'autre colonne même si dans la zone nom l'ensemble de case répondait à la première colonne.
Merci pour ton aide !
0
Réponse 4 / 4
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
C'est parfait, content pour vous.
0