Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

evenement sur les lignes d'une colonne

grandepapatte

XLDnaute Nouveau
Bonjour,

Voila je voudrais que a chaque fois que je remplis une case d'une colonne d'un tableau, il m'ouvre un formulaire vba, et qu'il sache qu'elle cellule vient d'être rempli

Merci
 

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : evenement sur les lignes d'une colonne

Bonjour gr............
Bonjour,

Voila je voudrais que a chaque fois que je remplis une case d'une colonne d'un tableau, il m'ouvre un formulaire vba, et qu'il sache qu'elle cellule vient d'être rempli

Merci
voir fichier joint

à+
Philippe

Edit: un petit tour par ici ne ferait pas de mal
Lien supprimé
 

Pièces jointes

  • 111.xls
    38.5 KB · Affichages: 55
  • 111.xls
    38.5 KB · Affichages: 53
  • 111.xls
    38.5 KB · Affichages: 61
Dernière édition:

kjin

XLDnaute Barbatruc
Re : evenement sur les lignes d'une colonne

Bonjour,
J'aimerais savoir comment peut on faire des événements
Ouh bé là il y a une foultitude de chose qu'on peut faire...mais si on veux avoir sa trombine en première page, là il faut faire fort quand même...

Edit : je plaisante mais c'est comme Philippe il a dit plus bas... et j'en profite pour discrétement corriger les f"ote d'ortografe"

A+
kjin
 
Dernière édition:

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : evenement sur les lignes d'une colonne

Re,
Bon alors je recommence.

J'aimerais savoir comment peut on faire des événements sur les cellules d'un tableau.

Merci d'avance
OUI ! .........on peut faire des évènements

mais avant il faudrait jeter un coup d'oeil au paragraphe 3C après avoir cliqué sur le lien suivant
Lien supprimé
à+
Philippe
 

JCGL

XLDnaute Barbatruc
Re : evenement sur les lignes d'une colonne

Bonjour à tous,
Salut Philippe,
Salut Kjin,

Merci pour votre chasse aux : Je veux

A placer dans le code la feuille :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Value <> "" And Target.Count = 1 Then MsgBox "Vous venez de renseigner la cellule " & Target.Address(RowAbsolute:=False, ColumnAbsolute:=False), vbInformation, "Adresse"
End Sub

A+ à tous
 

Discussions similaires

Réponses
21
Affichages
504
Réponses
3
Affichages
442
Réponses
4
Affichages
251
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…