Bonjour à tous,
Je souhaite que le code vba ci-dessous fonctionne si l'une ou l'autre des 2 conditions est vraie.
Mais les tentatives que j'ai faites ne fonctionnement pas et mes recherches n'aboutissent pas.
voici le code :
Si vous pouviez me corriger, cela m'arrangerait bien 🙂
Un grand merci à vous.
Amicalement,
Caliméro,
Je souhaite que le code vba ci-dessous fonctionne si l'une ou l'autre des 2 conditions est vraie.
Mais les tentatives que j'ai faites ne fonctionnement pas et mes recherches n'aboutissent pas.
voici le code :
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'exécute macro quand valeur cellule change
If Not Intersect(Target, Range("L3:L1000")) Is Nothing And Target.Count = 1 Then
Pratique.Show
End If
If Not Application.Intersect(Target, Range("N4:N1000")) Is Nothing Then 'execute macro changt valeur cellule
On Error Resume Next
Call CopieLigneN°
Sheets("F1(2)").Select
End If
End SubSi vous pouviez me corriger, cela m'arrangerait bien 🙂
Un grand merci à vous.
Amicalement,
Caliméro,
Dernière édition: