× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > 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
17,90 €Set de 30 lames bois et métal Bosch pour scies sauteuses + boite à 17,90 €
Valable jusqu'au 28 Septembre

Amazon fait une promotion sur le set de 30 lames bois et métal Bosch pour scies sauteuses avec leur boite de rangement à 17,90 €. On trouve l'ensemble ailleurs à partir de 36 €. Les lames portent les références T119BO, T111C et T118A (10 lames de chaque).


> Voir l'offre
54,99 €Microsoft Flight Simulator à 54,99 €
Valable jusqu'au 02 Octobre

Amazon fait une promotion sur le tout nouveau Microsoft Flight Simulator sur PC qui passe à 54,99 € livré gratuitement au lieu de 69,99 €. La boite contient les 10 DVD du jeu.


> Voir l'offre
122,57 €Kit de 32 Go (2 x 16 Go) de mémoire DDR4 Corsair Vengeance LPX 3200 MHz à 122,57 € livré
Valable jusqu'au 27 Septembre

Amazon Allemagne fait une promotion sur le kit de 32 Go (2x16 Go) de mémoire DDR4 Corsair Vengeance LPX 3200 MHz CL16 qui passe à 117,92 € (avec la TVA ajustée). Comptez 4,65 € pour la livraison en France soit un total de 122,57 € livré. alors qu'on le trouve ailleurs à plus de 170 €.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> 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