Problème avec Private sub Résolu

Question

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

eriiic · Accepted Answer

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

pijaku · Answer

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 IfEnd 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

eriiic · Answer

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

Michaelv78800 · Answer

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

sipherion · Answer

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")

Michaelv78800 · Answer

Je viens d'essayer.... pas mieux

Michaelv78800 · Answer

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

cs_Le Pivert · Answer

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

cs_Le Pivert · Answer

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

Problème avec Private sub

9 réponses

Discussions similaires

Newsletters