> Tous les forums > Forum Bureautique
 Formule Excel
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
peudesavoir
  Posté le 08/09/2007 @ 11:18 
Aller en bas de la page 
Petit astucien

Bonjour! j'ai un petit Pb!

je souhaiterai faire la formule suivant!

si H55="OK" et si A55="" alors P55="modifié par l'agent + la date du jour de la modification

est ce possible?

merci pour l'aide

Publicité
galopin01
 Posté le 08/09/2007 à 12:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

bonjour,

Non ce n'est pas possible par formule. Il faut utiliser une macro.

A+

peudesavoir
 Posté le 08/09/2007 à 12:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

OK ! bon je vais voir si je m'en sors en macro ( j'en ai déja écrite quelques unes) si je bloque, je vous solliciterai si cela ne vous embête pas trop

merci

peudesavoir
 Posté le 08/09/2007 à 13:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bon je bloque ! une partie seulement fonctionne ! voici ma macro

Sub VALIDATION()
Dim MyDate
MyDate = Date ' MyDate contient la date système actuelle


If Range("A55").Text = "" And Range("N55").Value = "OK" Then

Range("O55") = "modifié par l'agent le " & MyDate

Range("O55").Select
Selection.Font.ColorIndex = 3
Selection.Font.Bold = True
With Selection.Font
.Name = "Arial"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
End If

End Sub

merci pour l'eventuel coup de pouce

galopin01
 Posté le 08/09/2007 à 13:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

l'idéal est d'utiliser une macro évènementielle (qui se déclanche quand quelqu'un modifie une cellule) à coller dans le module de la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("H55").Address Or Target.Address = Range("A55").Address Then
If Range("H55") = "OK" And Range("A55") = "" Then Range("P55") = "Modifié le " & Date
End If
End Sub

A+

peudesavoir
 Posté le 08/09/2007 à 14:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

merci ! pour le coup de pouce! mais je tiens vraiment à mettre cette macro avec commande d'un bouton !

l'evenementiel ne me rend pas service dans mon context

peudesavoir
 Posté le 08/09/2007 à 16:09 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

quelqu'un peux t'il me soumettre une autre solution!

merci !

galopin01
 Posté le 08/09/2007 à 17:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
Quel est le problème ?
peudesavoir
 Posté le 08/09/2007 à 18:23 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

autant pour moi , tout est ok!

mais j'ai 1 autre soucis

comment puis je lier plusieurs condition à 1 formule ex:

=SI(G11="adoption 3";3);SI(G11="Décès enfant 5";5)

cette formule se trouve dans 1 cellule et si l'une des conditions si est vrais alors la cellule dans laquelle se trouve la formule prend la valeur designée!

Publicité
galopin01
 Posté le 08/09/2007 à 20:38 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

si j'ai bien compris...

=SI(G11="adoption 3";3;SI(G11="Décès enfant 5";5;""))

A+

JièL Goubert
 Posté le 09/09/2007 à 02:30 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Juste pour rigoler =DROITE(G11;1) à la place de la formule avec des SI, ça le fait pas ?
peudesavoir
 Posté le 09/09/2007 à 08:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Super !! merci galopin01
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
24,99 €Fire TV Stick Basic Edition à 24,99 €
Valable jusqu'au 01 Avril

Amazon fait une promotion sur la nouvelle version de sa clé HDMI Fire TV Stick Basic Edition qu'il propose à 24,99 € au lieu de 39,99 €. Cette clé HDMI à brancher sur votre TV possède un processeur quadricoeur, 1 Go de RAM et 8 Go d'espace de stockage, le WiFi et le bluetooth. Une télécommande est fournie. Avec elle, vous allez pouvoir voir facilement Prime Video, Netflix, YouTube, Spotify sur votre TV Full HD. Cette nouvelle version est désormais compatible Alexa et possède une télécommande améliorée (avec plus de boutons de contrôle). Si vous avez une TV 4K, tournez-vous vers le nouveau modèle Fire TV Stick 4K qui gère les contenus en Ultra HD et qui est actuellement en promotion à 44,99 € (au lieu de 59,99 €). 


> Voir l'offre
54,99 €Liseuse Amazon Kindle avec éclairage frontal à 54,99 €
Valable jusqu'au 01 Avril

Amazon fait une promotion sur sa nouvelle liseuse Kindle qui passe à 54,99 € livrée gratuitement. Cette version est équipée d'un écran tactile à encre électronique qui a l'apparence du papier et se lit comme un livre papier. Elle possède maintenant un éclairage frontal réglable vous permet de lire confortablement pendant des heures, à l'intérieur et à l'extérieur, de jour comme de nuit. Elle possède le WiFi ainsi qu'un port MicroUSB. Cette version peut afficher des publicités discrètes pendant sa mise en veille. Pour ne pas les avoir, vous devez vous tourner vers la version Sans offres spéciales qui coûte 69,99 €. Elle peut lire les fichiers ePub en suivant cette astuce.


> Voir l'offre
44,99 €Amazon Fire TV Stick 4K Ultra HD à 44,99 €
Valable jusqu'au 01 Avril

Amazon vient de lancer en France un nouveau modèle de son Fire TV Stick, une clé HDMI à brancher sur votre TV. Pour cette occasion, l'Amazon Fire TV Stick 4K Ultra HD est à 44,99 € livrée gratuitement au lieu de 59,99 €. Ce nouveau modèle offre désormais une sortie en 4K pour tous vos contenus en ultra haute définition, est compatible Alexa et possède une télécommande améliorée avec plus de boutons de contrôle. Avec cette clé, vous allez pouvoir voir facilement Prime Video, Netflix, YouTube, Spotify, MyCanal Molotov sur votre TV.


> Voir l'offre

Sujets relatifs
Formule excel 2007
formule excel
Formule excel
Report résultat formule Excel
Formule EXCEL
Excel 7 aide sur formule svp
Formule Excel 2007
Formule Excel
Formule EXCEL
formule excel
formule excel
Plus de sujets relatifs à Formule Excel
 > Tous les forums > Forum Bureautique