Problème avec Private sub

Résolu

Michaelv78800 Messages postés 11 Date d'inscription Statut Membre Dernière intervention -
Michaelv78800 Messages postés 11 Date d'inscription Statut Membre Dernière intervention - 4 août 2014 à 20:36

bonjour,

Voici mon souci, j'ai une macro qui tourne sans souci avec un bouton pour la lancer, mais je souhaite qu'elle tourne seul. après maintes recherche j'ai trouvé un code mais je dois mal m'y prendre car il n'a aucun effet. alors je me tourne vers les maîtres YODA afin que la force soit en moi!!!!

voici mon code :

Private Sub Worksheets_change(ByVal target As Range)
 
' Vérification du changement de valeur d'une cellule de la plage A14:A52
    If Not Application.Intersect(target, Feuil6.Columns("A14:A52")) Is Nothing Then
    
' Exécution de la macro "Date_quadriennale"
    Date_quadriennale
    
    End If
    
End Sub
'------------------------------------------------------------------------------------------------------------
Sub Date_quadriennale()

' Plage de recherche et condition
    Dim PlageRecherche As Range
    With ActiveSheet
    Set PlageRecherche = .Range("A14:B52").Find(what:="PLG 1", LookIn:=xlValues, lookat:=xlWhole)

' Ouverture boîte de dialogue
        If Not PlageRecherche Is Nothing Then
            variable = InputBox("DATE DE VISITE QUADRIENNALE (date d'obtention + 4 ans) ?")
                
' Cellule cible
            Feuil5.Range("d35").Value = variable
  
        End If
    End With
  
End Sub

Merci à vous

Afficher la suite

A voir également:

Private proxy wingate.me
Navigation in private - Guide
Dekart private disk - Télécharger - Chiffrement
Proxy google 8.8.8.8 port - Guide
Proxy anonyme gratuit - Télécharger - Confidentialité
Pb proxy switch - Télécharger - Confidentialité

9 réponses

Réponse 1 / 9

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Bonjour,

C'est dans le module de la feuille concernée qu'il faut mettre le code, pas dans Module1.

Sinon dépose ce que tu as fait sur cjoint.com et colle ici le lien fourni.

eric

Réponse 2 / 9

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Bonjour,

Placez vous sur la feuille concernée : Feuil6 normalement.
Clic droit sur l'onglet de cette feuille / Visualiser le code
Copier/coller ce code:

Private Sub Worksheet_Change(ByVal Target As Range)
' Vérification du changement de valeur d'une cellule de la plage A14:A52
    If Not Application.Intersect(Target, Range("A14:A52")) Is Nothing Then
    
' Exécution de la macro "Date_quadriennale"
    Date_quadriennale
    
    End If
End Sub 
'------------------------------------------------------------------------------------------------------------
Sub Date_quadriennale()

' Plage de recherche et condition
    Dim PlageRecherche As Range
    With ActiveSheet
        Set PlageRecherche = .Range("A14:B52").Find(what:="PLG 1", LookIn:=xlValues, lookat:=xlWhole)
    End With
        ' Ouverture boîte de dialogue
        If Not PlageRecherche Is Nothing Then
            variable = InputBox("DATE DE VISITE QUADRIENNALE (date d'obtention + 4 ans) ?")
            ' Cellule cible
            With Feuil5
                .Range("d35").Value = variable
            End With
        End If
  
End Sub

Réponse 3 / 9

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Bonjour,

une remarque en plus :
tu utilises le codename des feuilles et non le nom des feuilles.
C'est un peu risqué si tu ne sais pas très bien ce que tu fais.
Worksheets("Feuil1") peut très bien avoir pour codename Feuil2.
Utilise plutôt la notation Worksheets("nom_de_la_feuille")

eric

Réponse 4 / 9

Michaelv78800 Messages postés 11 Date d'inscription Statut Membre Dernière intervention

bonjour,

J'ai essaye le code mais rien ne se passe..........

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 9

sipherion Messages postés 1809 Date d'inscription Statut Membre Dernière intervention 286

Bonjour,

As tu essaye de placer un Call avant le nom de ta macro ?

Call Date_quadriennale

(Message sans accent pour cause de "corps vide")

Réponse 6 / 9

Michaelv78800 Messages postés 11 Date d'inscription Statut Membre Dernière intervention

Je viens d'essayer.... pas mieux

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

tu as lu ça ?

Réponse 7 / 9

Michaelv78800 Messages postés 11 Date d'inscription Statut Membre Dernière intervention

j'ai effectivement mis la macro danhs le module de la feuille mais sois je l'ai mal fait sois... je ne sais pas voici le fichier en piece jointe

https://www.cjoint.com/?DHelRuOzjQB

Réponse 8 / 9

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

Bonjour,

Essaie ceci:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Vérification du changement de valeur d'une cellule de la plage A14:A52
    If Not Application.Intersect(Target, Range("A14:A52")) Is Nothing Then
' Exécution de la macro "Date_quadriennale"
    Date_quadriennale
     End If
End Sub
Sub Date_quadriennale()
Dim variable As String
' Plage de recherche et condition
    Dim PlageRecherche As Range
    With ActiveSheet
        Set PlageRecherche = .Range("A14:B52").Find(what:="PLG 1", LookIn:=xlValues, lookat:=xlWhole)
    End With
        ' Ouverture boîte de dialogue
        If Not PlageRecherche Is Nothing Then
            variable = InputBox("DATE DE VISITE QUADRIENNALE (date d'obtention + 4 ans) ?")
            ' Cellule cible
            With [Feuil5]
                .Range("d35").Value = variable
            End With
        End If
  End Sub

C'est le même code que pijaku, j'ai déclaré la variable variable (c'est un drôle de choix, mais enfin) et With [Feuil5]
Cela fonctionne très bien

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Bonjour Le Pivert,

Le souci du Selection_Change est que si l'utilisateur change de cellule en utilisant la touche Tab, Target va en colonne D...

_Change ne peux pas fonctionner car les modifications sont faites sur des listes de validation de données.
Pour pallier à cela, il "faudrait" passer par un nouvel onglet masqué : http://www.excelabo.net/excel/value_change

De plus, le code n'était pas dans la feuille concernée...

Réponse 9 / 9

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

Rectification

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
' Vérification du changement de valeur d'une cellule de la plage A14:A52
    If Not Application.Intersect(Target, Range("A14:A52")) Is Nothing Then
' Exécution de la macro "Date_quadriennale"
    Date_quadriennale
     End If
End Sub
Sub Date_quadriennale()
Dim variable As String
' Plage de recherche et condition
    Dim PlageRecherche As Range
    With ActiveSheet
        Set PlageRecherche = .Range("A14:B52").Find(what:="PLG 1", LookIn:=xlValues, lookat:=xlWhole)
    End With
        ' Ouverture boîte de dialogue
        If Not PlageRecherche Is Nothing Then
            variable = InputBox("DATE DE VISITE QUADRIENNALE (date d'obtention + 4 ans) ?")
            ' Cellule cible
         Sheets("Feuil5").Range("d35").Value = variable
            End If
End Sub

pijaku, je n'avais pas fait attention à l'évènement:

Private Sub Worksheet_Change(ByVal Target As Range)

Cela fonctionne

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Tu as raison. Excuse moi, j'étais persuadé que l'événement Change n'était pas déclenché par une modification d'une cellule par validation de liste...

A+

Michaelv78800 Messages postés 11 Date d'inscription Statut Membre Dernière intervention

Merci encore a vous pour votre aide.

pour info j'ai changé la fin de ta macro cs_Le Pivert :

Sheets("Feuil5").Range("d35").Value = variable
me donne une erreur du coup j'ai repris ton premier code a savoir :

With [Feuil5]
.Range("d35").Value = variable
End With

merci aussi pour les explications qui permettent de progresser et d'apprendre, c'est ma deuxieme macro et j'avoue que ce n'est pas tjrs evident de comprendre le language des initiés.

a bientot... et bonne vacances.

Discussions similaires

Connexion a été refusée par le serveur proxy

proxy sous google chrome

Problème de connection aux serveur proxy

Nous ne pouvons pas nous connecter au serveur proxy avec Microsoft Edge

connexion refusé par le serveur proxy

Votre réponse

Discussions similaires