Microsoft 365 LES EVENEMENTS

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
O

omario1995

XLDnaute Nouveau
Bonjour tout le monde,

S'il vous plaît, j'ai fait une macro,et du coup que cette macro s’exécute sans bouton ,je veux qu'elle s'exécute à chaque fois que je modifie dans une cellule dans une cellule de la colonne E de la feuille1.

le mode fonctionnent de cette macro est comme ça: si la valeur de la cellule dans la colonne E dans la feuille 1 est egal a la valeur de la cellule dans la colonne D dans la feuille 4 alors la case F prend la valeur de la case E dans la feuille 4.

feuille 1:
Capture.PNG


Voila la macro:

Sub Rame_loc()



Dim i As Integer
Dim j As Integer

For i = 62 To 92
For j = 3 To 25

If Feuil1.range("E" & i) = Feuil4.range("D" & j) Then

Feuil1.range("F" & i) = Feuil4.range("E" & j)




End If
Next
Next
End Sub



ET MERCI D’AVANCE
 
Solution
sylvanu
Bonjour,
sylvanu à dit:
Evidemment à l'aveugle, il y des chances que ça ne marche pas.
Cliquez pour agrandir...
J'avais un doute, j'ai vérifié avec un fichier test, et effectivement ça ne marche pas.
Ci dessous une version qui au moins ne buggue pas :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fin:
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 10 Then
        Traitement_Colonne_J (Target.Row)   ' Execution votre macro car colonne J
    ElseIf Target.Column = 5 Then
        Traitement_Colonne_E                ' Execution ma macro car colonne E
    End If
Fin:
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
Sub...
Trier par date Trier par votes
Bonjour Omario,
Il faut utiliser la macro Worksheet_Change à placer obligatoirement dans la feuille concernée. Pour vous, à mettre dans Feuil1 :
VB: 
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub   ' Si plusieurs cellules sélectionnées, on sort
    If Not Intersect(Target, [E1:E65000]) Is Nothing Then ' Si dans la plage E1:E65000
         On Error GoTo Fin:
         Application.EnableEvents = False       ' On fige l'écran
         Application.ScreenUpdating = False     ' On interdit tout nouvel événement avant la fin de la macro
         ' ---------------------------------------------------------
         ' Macro à executer
        Dim i%, j%
        For i = 62 To 92
            For j = 3 To 25
                If Feuil1.Range("E" & i) = Feuil4.Range("D" & j) Then
                    Feuil1.Range("F" & i) = Feuil4.Range("E" & j)
                End If
            Next j
        Next i
        ' Fin macro spécifique
        ' ---------------------------------------------------------
    End If
Fin:
Application.ScreenUpdating = True   ' On remet les flags correctement.
Application.EnableEvents = True
End Sub
docs.microsoft.com

Événement Worksheet.Change (Excel)

Rubrique de référence sur Office VBA
docs.microsoft.com
 
Vote positif 0 Vote négatif
Bonjour,

Merci beaucoup pour ta réponse qui fonctionne très bien ,j'ai un tout petit problème c'est que j'ai déjà un événement dans cette feuille,dans je suis obligé de changer le nom de ce dernier,ce qui l’empêche à fonctionner.

Private Sub Worksheet_Change(ByVal Target As range)
Application.ScreenUpdating = False

If Target.Column = 10 Then

Lignee = Target.Row

If range("I" & Lignee).Value <> "" Then


Dim i As Integer

If Lignee >= 10 Then
If range("I" & Lignee) = "Préventif" Then
On Error Resume Next
With range("K" & Lignee).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=indirect(J" & Lignee & ")"
'.IgnoreBlank = True
.InCellDropdown = True

End With

ElseIf range("I" & Lignee) <> "Préventif" Then
With range("K" & Lignee).Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
End If
End If

Else: Exit Sub
End If
Else: Exit Sub
End If
End Sub


Sub Worksheet_Change1(ByVal Target As range)

If Target.Count > 1 Then Exit Sub ' Si plusieurs cellules sélectionnées, on sort
If Not Intersect(Target, [E1:E65000]) Is Nothing Then ' Si dans la plage E1:E65000
On Error GoTo Fin:
Application.EnableEvents = False ' On fige l'écran
Application.ScreenUpdating = False ' On interdit tout nouvel événement avant la fin de la macro
' ---------------------------------------------------------
' Macro à executer
Dim i%, j%
For i = 62 To 92
For j = 3 To 25
If Feuil1.range("E" & i) = Feuil4.range("D" & j) Then
Feuil1.range("F" & i) = Feuil4.range("E" & j)
End If
Next j
Next i
' Fin macro spécifique
' ---------------------------------------------------------
End If
Fin:
Application.ScreenUpdating = True ' On remet les flags correctement.
Application.EnableEvents = True
End Sub
 
Vote positif 0 Vote négatif
Re,
Effectivement il ne peut y avoir qu'une seule Worksheet_Change dans une feuille. Il faut donc les enchainer :
VB: 
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub   ' Si plusieurs cellules sélectionnées, on sort
    If Target.Column = 10 Then          ' Si colonne J
        ' Votre macro
    End If
    If Target.Column = 5 Then           ' Si colonne E
        ' Ma macro
    End If
End Sub
 
Vote positif 0 Vote négatif
j'ai essayé ça mais malheureusement aucune des macros n'as fonctionné:

Private Sub Worksheet_Change(ByVal Target As range)
Application.ScreenUpdating = False
Application.EnableEvents = False

If Target.Count > 1 Then Exit Sub

If Target.Column = 10 Then

Lignee = Target.Row

If range("I" & Lignee).Value <> "" Then


Dim i As Integer

If Lignee >= 10 Then
If range("I" & Lignee) = "Préventif" Then
On Error Resume Next
With range("K" & Lignee).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=indirect(J" & Lignee & ")"
'.IgnoreBlank = True
.InCellDropdown = True

End With

ElseIf range("I" & Lignee) <> "Préventif" Then
With range("K" & Lignee).Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
End If
End If

Else: Exit Sub
End If
Else: Exit Sub

Application.ScreenUpdating = True ' On remet les flags correctement.
Application.EnableEvents = True
End If


If Target.Column = 5 Then


If Not Intersect(Target, [E1:E65000]) Is Nothing Then ' Si dans la plage E1:E65000
On Error GoTo Fin:
Application.EnableEvents = False ' On fige l'écran
Application.ScreenUpdating = False ' On interdit tout nouvel événement avant la fin de la macro
' ---------------------------------------------------------
' Macro à executer
Dim j%
For i = 62 To 92
For j = 3 To 25
If Feuil1.range("E" & i) = Feuil4.range("D" & j) Then
Feuil1.range("F" & i) = Feuil4.range("E" & j)
End If
Next j
Next i
' Fin macro spécifique
' ---------------------------------------------------------
End If
Fin:
Application.ScreenUpdating = True ' On remet les flags correctement.
Application.EnableEvents = True






End If



End Sub
 
Vote positif 0 Vote négatif
Re,
Par pitié, utilisez les balises (</> à droite de l'icone GIF ) c'st mille fois plis lisible.
Et indentez votre code, là aussi, c'est plus lisible.
Il y a trois ligne de code bizarres :
VB: 
Else: Exit Sub
End If
Else: Exit Sub
donc vous sortez de la macro, la suite ne sera pas exécutée.
Alors au pif, j'ai tenté :
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 10 Then
        Lignee = Target.Row
        If Range("I" & Lignee).Value <> "" Then
            Dim i As Integer
            If Lignee >= 10 Then
                If Range("I" & Lignee) = "Préventif" Then
                    On Error Resume Next
                    With Range("K" & Lignee).Validation
                        .Delete
                        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                                    xlBetween, Formula1:="=indirect(J" & Lignee & ")"
                        '.IgnoreBlank = True
                        .InCellDropdown = True
                    End With
                ElseIf Range("I" & Lignee) <> "Préventif" Then
                    With Range("K" & Lignee).Validation
                        .Delete
                        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator:=xlBetween
                        .IgnoreBlank = True
                        .InCellDropdown = True
                        .ShowInput = True
                        .ShowError = True
                    End With
                End If
            End If
        End If
    End If
    If Target.Column = 5 Then
        On Error GoTo Fin:
        Application.EnableEvents = False ' On fige l'écran
        Application.ScreenUpdating = False ' On interdit tout nouvel événement avant la fin de la macro
        ' ---------------------------------------------------------
        ' Macro à executer
        Dim j%
        For i = 62 To 92
            For j = 3 To 25
                If Feuil1.Range("E" & i) = Feuil4.Range("D" & j) Then
                    Feuil1.Range("F" & i) = Feuil4.Range("E" & j)
                End If
            Next j
        Next i
        ' Fin macro spécifique
        ' ---------------------------------------------------------
    End If
Fin:
    Application.ScreenUpdating = True ' On remet les flags correctement.
    Application.EnableEvents = True
End Sub
Evidemment à l'aveugle, il y des chances que ça ne marche pas. Dans ce cas fournissez un fichier test pour pouvoir tester la macro. 🙂
 
Vote positif 0 Vote négatif
Si vous avez peur de vous noyer dans le code, alors structurez le, ce sera beaucoup plus lisible :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fin:
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 10 Then
        Traitement_Colonne_J (Target)   ' Execution votre macro car colonne J
    ElseIf Target.Column = 5 Then
        Traitement_Colonne_E (Target)   ' Execution ma macro car colonne E
    End If
Fin:
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
Sub Traitement_Colonne_J(Target)
        Lignee = Target.Row
        If Range("I" & Lignee).Value <> "" Then
            Dim i As Integer
            If Lignee >= 10 Then
                If Range("I" & Lignee) = "Préventif" Then
                    On Error Resume Next
                    With Range("K" & Lignee).Validation
                        .Delete
                        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                                    xlBetween, Formula1:="=indirect(J" & Lignee & ")"
                        '.IgnoreBlank = True
                        .InCellDropdown = True
                    End With
                ElseIf Range("I" & Lignee) <> "Préventif" Then
                    With Range("K" & Lignee).Validation
                        .Delete
                        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator:=xlBetween
                        .IgnoreBlank = True
                        .InCellDropdown = True
                        .ShowInput = True
                        .ShowError = True
                    End With
                End If
            End If
        End If
    End If
End Sub
Sub Traitement_Colonne_E(Target)
    Dim i%, j%
    For i = 62 To 92
        For j = 3 To 25
            If Feuil1.Range("E" & i) = Feuil4.Range("D" & j) Then
                Feuil1.Range("F" & i) = Feuil4.Range("E" & j)
            End If
        Next j
    Next i
End Sub
 
Vote positif 0 Vote négatif
Bonjour,
sylvanu à dit:
Evidemment à l'aveugle, il y des chances que ça ne marche pas.
Cliquez pour agrandir...
J'avais un doute, j'ai vérifié avec un fichier test, et effectivement ça ne marche pas.
Ci dessous une version qui au moins ne buggue pas :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fin:
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 10 Then
        Traitement_Colonne_J (Target.Row)   ' Execution votre macro car colonne J
    ElseIf Target.Column = 5 Then
        Traitement_Colonne_E                ' Execution ma macro car colonne E
    End If
Fin:
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
Sub Traitement_Colonne_J(Lignee)            ' Lignee est le N° de ligne de la cellule remplie
        If Range("I" & Lignee).Value <> "" Then
            Dim i As Integer
            If Lignee >= 10 Then
                If Range("I" & Lignee) = "Préventif" Then
                    On Error Resume Next
                    With Range("K" & Lignee).Validation
                        .Delete
                        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                                    xlBetween, Formula1:="=indirect(J" & Lignee & ")"
                        .InCellDropdown = True
                    End With
                ElseIf Range("I" & Lignee) <> "Préventif" Then
                    With Range("K" & Lignee).Validation
                        .Delete
                        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator:=xlBetween
                        .IgnoreBlank = True
                        .InCellDropdown = True
                        .ShowInput = True
                        .ShowError = True
                    End With
                End If
            End If
        End If
End Sub
Sub Traitement_Colonne_E()
    Dim i%, j%
    For i = 62 To 92
        For j = 3 To 25
            If Feuil1.Range("E" & i) = Feuil4.Range("D" & j) Then
                Feuil1.Range("F" & i) = Feuil4.Range("E" & j)
            End If
        Next j
    Next i
End Sub
 
Vote positif 0 Vote négatif
Solution
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R1-
  • Résolu(e)
Microsoft 365 Problème de formatage de dates au format EUR
Réponses
2
Affichages
52
R1-
R1-
klin89
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
377
patricktoulon
patricktoulon
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
482
GClaire
G
C
  • Question Question
XL 2016 VBA - Mettre en Indice une partie du contenu d'une cellule : problème avec la propriété Font.Subscript
Réponses
2
Affichages
69
crocrocro
C
M
  • Résolu(e)
XL 2021 PUBLIPOSTAGE : Mise en forme du corps de message issu d'une cellule excel (VBA)
Réponses
4
Affichages
420
Minus&Cortex
M
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
66
Abi23
A
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
269
MBEPID
M
C
  • Résolu(e)
XL 2021 VBA : Afficher plusieurs résultats d'une boucle dans une cellule
Réponses
3
Affichages
172
Claudinedu13
C
chris6999
  • Question Question
Microsoft 365 Boucle VB pour supprimer les caractères spéciaux et numériques d'une chaîne
Réponses
5
Affichages
428
patricktoulon
patricktoulon
O
  • Question Question
Autres Optimisation macro numérotation ligne
Réponses
11
Affichages
234
crocrocro
C
BLACKHAYES
  • Question Question
XL 2021 Verifier les doublons dans feuille avant validation
Réponses
11
Affichages
122
cathodique
cathodique
patricktoulon
  • Question Question
Autres la fonction similaire
Réponses
11
Affichages
458
patricktoulon
patricktoulon
C
  • Résolu(e)
XL 2021 Additionner résultats d'une boucle for en vba
Réponses
9
Affichages
478
Claudinedu13
C
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
1 K
Banbara
B
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
200
Anthony_51
A
B
  • Question Question
XL 2016 Nombre d'Items de valeur nulle dans un tableau.
Réponses
4
Affichages
63
bernardrustrel
B
C
  • Question Question
XL 2013 rechercher la dernière date
Réponses
4
Affichages
151
candido57
C
cathodique
  • Question Question
XL 2010 Code de l'IA à corriger
2 3
Réponses
33
Affichages
2 K
cathodique
cathodique
C
  • Résolu(e)
XL 2016 Répartir dans des Groupes d'Effectifs Aléatoires ... mais pas trop
Réponses
2
Affichages
354
crocrocro
C
M
  • Question Question
XL 2010 Remise et ajout de quantité
Réponses
10
Affichages
714
Dranreb
Dranreb
Retour