quelqu'un pour aider sur une Macro Excel ? afficher un pop up

Bonjour,

Je n'arrive absolument pas à faire une macro sur Excel c'est bcp trop compliqué pour moi je souhaite donc solliciter votre aide.

J'ai un grand tableau, et on m'a demandé d'afficher un pop up quand le résultat d'une cellule est de 1,

ou d'afficher un pop up quand une cellule est répété. C'est très compliqué pour moi je n'y arrive pas du tout.

une âme charitable pour m'aider ?

merci d'avance,

cdt

Bonjour,

Je ne sais pas ce que vous entendez exactement par "popup" ni par "cellule répétée".
Voici une amorce de solution. Elle consiste à ouvrir un MsgBox dès qu'une cellule quelconque prend la valeur 1. C'est bien entendu customizable pour ne la faire agir que sur une feuille donnée, sinon ça doit vite devenir pénible.

Dans Visual Basic, double-cliquez sur "Thisworkbook" et insérez le texte suivant :

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Count = 1 Then If Target.Value = 1 Then MsgBox "La valeur de la cellule " & Target.Address & " est 1" End If End If End Sub

---

Cdt

ca m'a beaucoup aidé merci beaucoup, dernière petite question j'aimerai que lorsqu'il y a un résultat compris entre 10 et 30 il y a une msgbox, comment je dois-je m'y prendre ?

cdt

en l'occurrence après vérification ca serai uniquement pour la colonne I,
Pouvez vous m'aider s'il vous plaît?

Cordialement

Dans la macro indiquée, target représente la cellule dans laquelle on vient d'écrire une nouvelle valeur.
Le test sur Target.count permet simplement de s'assurer qu'on a changé une unique cellule, et non pas une plage de plusieurs cellules (ce qui est possible avec Ctrl-Return par exemple).

A partir de là, vous pouvez tout faire :

• pour vérifier que la nouvelle valeur est comprise entre 10 et 30 :
  if target.value >= 10 And target.value <= 30 Then ...
• pour vous limiter à la colonne 1 :
  if target.Column = 1 Then ...
• pour ne cibler que les 50 premières lignes :
  if target.Row <= 50 Then ...
• pour détecter une valeur identique à celle qui est juste au dessus :
  If Target.Row > 1 And Target.Value = Target.Offset(-1, 0).Value Then ...
  etc..

Vous pouvez aussi restreindre le comportement de la macro à une seule feuille en utilisant l'autre argument de la macro (Sh) qui représente la feuille de calcul dans laquelle le changement vient d'avoir lieu (Sh pour Sheet, en anglais) :
if Sh.Name = "Feuil1" Then ...

Voici une nouvelle version de la macro qui vous montre ce que cela peut donner. En prime, elle met en jaune la cellule qui vient de changer de valeur.
N’hésitez pas à expérimenter d'autres choses (avec par exemple des "Or" ou des "Not" dans les conditions), vous ne risquez rien !

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Count = 1 And Sh.Name = "Feuil1" Then If Target.Value >= 10 And Target.Value <= 30 And Target.Column = 1 Then MsgBox "Valeur critique dans la cellule " & Target.Address Target.Interior.Color = vbYellow End If If Target.Row > 1 And Target.Value = Target.Offset(-1, 0).Value Then MsgBox "Valeur répétée.." End If End If End Sub

---

Attention : cette macro n'aura d'effet que si votre feuille de calcul s'appelle réellement "Feuil1" !

merci bcp ca m'a grandement aidé !:D