Fonction maintenant en fonction d'autres cellules

narkoleptik · 15 Janvier 2015

Salut

J'ai une question :
Je souhaite afficher dans une cellule B par exemple la date et l'heure en fonction de la cellule A.

Je m'explique :
La cellule A doint être checkée avec un "x" et je veux savoir la date et l'heure à laquelle elle a été remplie.

J'ai essayé la formule suivante :
SI(A="x";MAINTENANT();"")

Ca fonctionne mais quand le fais la même opération sur la cellule D qui doit être replie avec date/heure en fonction de la C, alors la B remet la date et l'heure de la D.

En fait, je souhaite afficher date et heure mais de manière figée. C'est un tableau de plusieurs centaines de cellules.

Si je me fais mal comprendre, dites le moi, je vous enverrai un exemple.

Slt

vgendron · 15 Janvier 2015

Re : Fonction maintenant en fonction d'autres cellules

Bonjour
la fonction Maintenant() est recalculé à chaque fois que Excel fait un nouvea calcul, et comme le temps n'est pas figé. il se met à jour

tu peux contourner le pb en écrivant ce bout de code dans l'évènement de la feuil1

Alt+F11 pour ouvrir l'éditeru VBA
clic droit sur la feuil1 du projet du nom de ton fichier
puis copie colle ce code

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 and target="x" Then Target.Offset(0, 1) = Time
End Sub

ici. dès qu'une cellule de la 1ere colonne (colonne A) change et qu'elle contient "x" , la date est mise dans la colonne B

narkoleptik · 15 Janvier 2015

Re : Fonction maintenant en fonction d'autres cellules

Super, ça a l'air de fonctionner.
Par contre, pour l'adapter à mon fichier, il faut que je modifie un peu.
En fait, je dois vérifier sir les cellules des colonnes 7 et 8 sont vides. Si elles sont non vides, alors il faut inscrire la date et l'heure dans les cellules de la colonne 12.
Du coup, comme je ne maitrise pas VBA, je comprends bien la logique du début de ta forumle, mais pas la fin.

vgendron · 15 Janvier 2015

Re : Fonction maintenant en fonction d'autres cellules

Il faudrait que tu postes ton fichier exemple pour qu'on y voit plus clair
pour explication
Target: c'est la cellule sur laquelle tu as modifiée et qui a provoqué l'appel à l'évènement de la feuille Worksheet_Change
target.column, c'est la colonne de la cellule modifiée
target="x"; on teste le contenu de la cellule

Code:

If Target.Column = 1 and target="x" Then Target.Offset(0, 1) = Time

en français ca donne
si la colonne de la cellule est 1 (colonne A) ET contenu cellule="x" ALORS, la cellule d'a coté (décalage de 0 ligne, 1 colonne) prend l'heure

pour la suite. j'ai ma petite idée de ton besoin, mais je préfère voir ton fichier pour en etre sur ;-)

narkoleptik · 16 Janvier 2015

Re : Fonction maintenant en fonction d'autres cellules

voilà le fichier exemple
J'ai bien compris la logique mais du coup, je rajoute des contraintes!

vgendron · 16 Janvier 2015

Re : Fonction maintenant en fonction d'autres cellules

Hello,

ci dessous le code à placer

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'si modif de la colonne G

If Target.Column = 7 Then

    If (Target = "x" Or Target = "X") And (Target.Offset(0, 1) = "a" Or Target.Offset(0, 1) = "A" Or Target.Offset(0, 1) = "r" Or Target.Offset(0, 1) = "R" Or Target.Offset(0, 1) = "p" Or Target.Offset(0, 1) = "P") Then
        Target.Offset(0, 6) = Time
    End If
'si modif de la colonne H
ElseIf Target.Column = 8 Then
    If (Target.Offset(0, -1) = "x" Or Target.Offset(0, -1) = "X") And (Target = "a" Or Target = "A" Or Target = "r" Or Target = "R" Or Target = "p" Or Target = "P") Then
        Target.Offset(0, 5) = Time
    End If

End If


End Sub

il y a surement plus simple et plus court
exemple; faire un tableau contenant la liste des valeurs acceptées,
utiliser un upcase pour gerer minuscule et majuscule
éviter de faire quasiment le meme test en fonction de si on modifie la colonne G ou H

vgendron · 16 Janvier 2015

Re : Fonction maintenant en fonction d'autres cellules

voila déjà plus court avec le Ucase

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'si modif de la colonne G

If Target.Column = 7 Then
    If UCase(Target) = "X" And (UCase(Target.Offset(0, 1)) = "A" Or UCase(Target.Offset(0, 1)) = "R" Or UCase(Target.Offset(0, 1)) = "P") Then
        Target.Offset(0, 6) = Time
    End If
'si modif de la colonne H
ElseIf Target.Column = 8 Then
    If (UCase(Target.Offset(0, -1)) = "X") And (UCase(Target) = "A" Or UCase(Target) = "R" Or UCase(Target) = "P") Then
        Target.Offset(0, 5) = Time
    End If
End If

End Sub

Eneg5510 · 16 Janvier 2015

Re : Fonction maintenant en fonction d'autres cellules

Tu peux tout simplement dans la cellule ou tu veux figer une date, appuyer sur les touches Ctrl et ; pour l'heure c'est la touche Ctrl et :
Essaie et dis moi ce que tu en pense

narkoleptik · 16 Janvier 2015

Re : Fonction maintenant en fonction d'autres cellules

@ vgendron : Autant ça marchait avec le premier code, là ça ne fonctionne pas, ni sans le ucase ni avec.
@Eneg5510 : j'ai essayé rapidement, mais je ne comprends pas la logique.

vgendron · 16 Janvier 2015

Re : Fonction maintenant en fonction d'autres cellules

ha??
bizarre. chez moi ca marche bien. bon. sauf que je m'a gourré, l'heure se mettait en colonne M au lieu de L
donc modif

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'si modif de la colonne G

If Target.Column = 7 Then
    If UCase(Target) = "X" And (UCase(Target.Offset(0, 1)) = "A" Or UCase(Target.Offset(0, 1)) = "R" Or UCase(Target.Offset(0, 1)) = "P") Then
        Target.Offset(0, 5) = Time
    End If
'si modif de la colonne H
ElseIf Target.Column = 8 Then
    If (UCase(Target.Offset(0, -1)) = "X") And (UCase(Target) = "A" Or UCase(Target) = "R" Or UCase(Target) = "P") Then
        Target.Offset(0, 4) = Time
    End If
End If

End Sub

avec le fichier en PJ pour une fois

narkoleptik · 16 Janvier 2015

Re : Fonction maintenant en fonction d'autres cellules

Je regarde ça ce weekend et je te redis lundi, je n'ai plus le temps aujourd'hui.
Merci à toi en tous cas.

JBOBO · 16 Janvier 2015

Re : Fonction maintenant en fonction d'autres cellules

Bonjour,

Une solution par formule iterative en L4 :

=SI(L4=0;"";SI(ET(G4="x";OU(H4="a";H4="r";H4="p"));SI(L4<>"";L4;MAINTENANT());""))

narkoleptik · 19 Janvier 2015

Re : Fonction maintenant en fonction d'autres cellules

Bon j'ai trouvé ce que je voulais :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'si modif de la colonne G

If Target.Column = 7 Then
    If UCase(Target) = "X" Then
        Target.Offset(0, 6) = Time
    End If
'si modif de la colonne H
ElseIf Target.Column = 8 Then
    If (UCase(Target) = "A") Or (UCase(Target) = "P" Or UCase(Target) = "R") Then
        Target.Offset(0, 5) = Time
    End If
End If

End Sub

Dernière modif souhaitée : Avoir la date du jour où on check les colonnes G et H sur le même principe que l'heure mais en colonne-1 par rapport à l'heure.

narkoleptik · 19 Janvier 2015

Re : Fonction maintenant en fonction d'autres cellules

JBOBO à dit:
Bonjour,

Une solution par formule iterative en L4 :

Au passage, merci pour ton idée, mais la date sera recalculée à chaque fois qu'il y aura calcul de la feuille non?

JBOBO · 19 Janvier 2015

Re : Fonction maintenant en fonction d'autres cellules

re,

Non car la formule fait reference à elle même. Par contre si tu effaces les colonnes ou tu inscrits "x" et "a, r, ou p", alors dans ce cas oui.

Fonction maintenant en fonction d'autres cellules

narkoleptik

XLDnaute Junior

vgendron

XLDnaute Barbatruc

narkoleptik

XLDnaute Junior

vgendron

XLDnaute Barbatruc

narkoleptik

XLDnaute Junior

Pièces jointes

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Eneg5510

XLDnaute Nouveau

narkoleptik

XLDnaute Junior

vgendron

XLDnaute Barbatruc

Pièces jointes

narkoleptik

XLDnaute Junior

JBOBO

XLDnaute Accro

narkoleptik

XLDnaute Junior

narkoleptik

XLDnaute Junior

JBOBO

XLDnaute Accro

Discussions similaires