rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

[vba excel] executer une macro sur un click

wilmath, le mercredi 6 septembre 2006 à 16:29:29
Bonjour,

Super débutante en VB. J'ai développé une macro qui permet de griser les lignes de mon tableau excel si la valeur d'une cellule est égale à "NON".
Mais je suis obligée de lancer manuellement l'éxecution de la macro pour que ça le fasse, alors que je voudrais que la macro se déclenche dès que la cellule reçoit (en création ou en modification) la valeur "NON".
Je ne sais pas comment lier l'éxecution de la macro à un évènement, que ce soit ouverture du fichier ou modif de la cellule ou click...
Merci d'avance pour votre aide.
Répondre à wilmath  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
gbinforme, le jeudi 7 septembre 2006 à 08:57:07
bonjour

Dans Worksheet tu crées :
Private Sub Worksheet_SelectionChange(ByVal sel As Range)

End Sub


et tu intégres ta fonction.

l'adresse de sel donne le range de la cellule modifiée (sel.address)


si tu as besoin de compléments complète la question.

toujours zen
   
Répondre à gbinforme

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
wilmath, le jeudi 7 septembre 2006 à 11:45:52
Bonjour !

Merci pour ta réponse.
Mais j'ai oublié de préciser que la cellule à tester n'est pas fixe : c'est une cellule par ligne dont la valeur conditionne le changement de couleur de cette même ligne.

Comment, au lieu de faire un test sur l'adresse de la cellule (sel.adress), faire un test sur sa colonne ?

Merci
   
Répondre à wilmath

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
wilmath, le jeudi 7 septembre 2006 à 14:25:11
j'ai trouvé (enfin, on m'a aidé... !)

Merci pour ton aide

A+
Wilmath
   
Répondre à wilmath

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
biloue, le vendredi 8 septembre 2006 à 16:55:25
Salut Wilmath
Pourrais s'il te plait me donner la solution je cherche à faire la même chose.
Merci d'avance
Biloue
   
Répondre à biloue

5


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Menvielle, le vendredi 8 décembre 2006 à 18:59:52
bonjour,
ta question correspond exactement à mon problème. J'ai fais la création de la macro.
mais je n'en sais pas plus .
je voudrais qu'elle s'éxécute (pour griser et mettre en forme des cellules) suivant l'information contenue dans une colonne, sur une ligne à priori inconnue (elle peut varier)

merci pour ton aide: je suis coincé par ça.
   
Répondre à Menvielle

6


  • 1    Ce message vous semble utile, votez !
  • Ce message ne vous semble pas utile, votez !
  • Signaler ce message aux modérateurs
Lupin.A, le samedi 9 décembre 2006 à 00:33:18
Bonjour,

En supposant que la colonne A constitue un index dans la feuille

et que la colonne B contitue la colonne avec la valeur variable à initiliser à "NON" ou a rien ! 

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Region As Range, Position As Long
    
    Application.ScreenUpdating = False
    
    Position = Range("A1:A65535").End(xlDown).Row
    Set Region = Application.Intersect(Range("B1:B" & Position), Target)
    
    If Region Is Nothing Then
        'MsgBox "La cible n'est pas dans la plage visé."
    Else
        If (Target.Value = "NON") Then
            Target.EntireRow.Select
            Selection.Interior.ColorIndex = 6
            'MsgBox "La cible est dans la plage visé."
            Target.Offset(1, 0).Select
        End If
    End If
    
    Application.ScreenUpdating = True
    
End Sub
'


Il vous faudra adapter !

Lupin
   
Répondre à Lupin.A

7


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
dardeviIIe, le jeudi 22 février 2007 à 16:07:38
Bonjour, a tous je ne comprend pas pour quoi mon code ci-dessous ne fonctionne pas ou ci que l'envois du mail pas le déclenchement à heure fixe. J'ai tout essayé en ouvrant excel et en le fermer mais c'est mieux ci il est fermé.
merci pour votre aide....

Sub SendPlng()
' lance la macro SendParMail à 09:00:00 heures
Application.OnTime TimeValue("15:51:00"), ("SendParMail"), True
End Sub

Sub SendParMail()
'cette macro envois par mail la feuille excel active
ThisWorkbook.Sheets("Fev").Copy
ActiveWorkbook.SendMail ("dardeviIIe.msn.com@free.fr")
ActiveSheet.Copy
End Sub
   
Répondre à dardeviIIe

8


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
oraboss, le mardi 24 juillet 2007 à 13:27:00
bonjour,
puis-je avoir les details de cette fonction pour griser les lignes d'un tableau?
& merci d'avance
   
Répondre à oraboss

9


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
psychoman, le jeudi 25 octobre 2007 à 19:29:27
Tu peux aussi y aller avec la fonction de format conditionnel dans l'onglet format de Excel.
tu met la condition = "<>" et tu choisis une couleur pour cette condition.
   
Répondre à psychoman

10


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
ShaBoo, le jeudi 25 octobre 2007 à 20:46:01
Salut psycho,

je suis tjrs sur ton fichier...
   
Répondre à ShaBoo

11


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
psychoman, le jeudi 25 octobre 2007 à 21:30:18
GOOD,
je t'enverrai ce que j'ai fait, ca marche mais je remplis des petites subtilités : si on change le nom du fichier, le path .... pour que ca marche plus tard encore...

thanks.
Vince.
   
Répondre à psychoman

12


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
ShaBoo, le jeudi 25 octobre 2007 à 22:12:02
wow ... lol

je vais etre dépasser par ce que tu veux ;p
   
Répondre à ShaBoo

13


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
ShaBoo, le jeudi 25 octobre 2007 à 22:15:44
donne moi une adresse mail, pour que je t'envoie ce que je fais
   
Répondre à ShaBoo

14


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
psychoman, le jeudi 25 octobre 2007 à 23:17:42
voila :

psychoman4us@hotmail.com

a+
   
Répondre à psychoman

15


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 psychoman, le mardi 8 janvier 2008 à 17:12:15
merci
   
Répondre à psychoman
Posez votre question Répondre
Logiciels pertinents trouvés dans les téléchargements
Télécharger MOREFUNC (Macro complémentaire EXCEL) 5.06MOREFUNC (Macro complémentaire EXCEL) - Morefunc est une macro complémentaire proposant 67 nouvelles fonctions de feuille de calcul pour Excel. Ces fonctions sont...Catégorie: Tableur
Licence: Freeware/gratuit
Télécharger Excel Viewer 2003Excel Viewer - Avec Microsoft Office Excel Viewer 2003, vous pouvez ouvrir, afficher et imprimer des classeurs Excel (fichiers XLS ), même...Catégorie: Tableur
Licence: Freeware/gratuit
Télécharger Ms Word Excel Cracker 2.2Ms Word Excel Cracker - Ms Word Excel Craker est une application permettant de retrouver les mots de passe perdus ou oubliés pour les fichiers.xls...Catégorie: Suite bureautique
Licence: Freeware/gratuit
Télécharger Clickster 1.63.1Clickster - Les téléchargements de MP3 sont parfois illégaux sur le Web via les connexions P2P, en plus des liens sont parfois corrompus...Catégorie: Téléchargement
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « [vba excel] executer une macro sur un click »