XL 2013 Problème de code VBA avec "Application.Intersect"

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
K

karinette

XLDnaute Occasionnel
Bonjour à tous.
J'ai un soucis de code, j'ai beau le modifier, je sèche ....
J'ai une feuille où j'aimerais avoir deux fonctions différentes en faisant un double click.
dans les cellules "$A$4:$A$35000", en double-cliquant, ça me lance un Userform.
Ce que j'aimerais, c'est qu'en double-cliquant dans les cellules "$K$4:$K$35000" ça me lance un Userform different ...
J'ai fait ce code ... ça fonctionne tès bien sur la première série, (le USF "saisie_modif" se lance) mais pas sur l'autre (il ne se passe rien !!).
Merci d'avance aux experts !!!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("$A$4:$A$35000")) Is Nothing Then
If ActiveCell.Value <> "" Then
Application.Run "saisie_modif"
End If
If Not Application.Intersect(Target, Range("$K$4:$K$35000")) Is Nothing Then
If ActiveCell.Value <> "" Then
Application.Run "saisie_horaire"
End If
ElseIf ActiveCell.Value = "" Then
Range("A1").Select
MsgBox "Impossible !"
End If
End If
End Sub
 
Trier par date Trier par votes
Bonsour®
karinette à dit:
Bonjour à tous.
J'ai un soucis de code, j'ai beau le modifier, je sèche ....
J'ai une feuille où j'aimerais avoir deux fonctions différentes en faisant un double click.
Cliquez pour agrandir...

comme ceci peut-être ?? :
VB: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("$A$4:$K$35000")) Is Nothing Then
         If Target<> "" Then
             Select Case Target.column
                 Case =1 : Application.Run "saisie_modif"
                 Case = 11 : Application.Run "saisie_horaire"
                 '*******Case = ? : autre userfrom
                Case Else :MsgBox "Impossible !"
           End Select
       End If
   Else
       Range("A1").Select
   End If
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour,

sans fichier impossible de tester. Pour ouvrir un userform, on met nomUserform.show

si tu as nommé ton userform: saisie_modif
tu dois remplacer Application.Run "saisie_modif" par ----> saisie_modif.show

bonne continuation.

edit: Bonjour Modeste geedee
 
Vote positif 0 Vote négatif
Bon_jour

Essaie ce code
VB: 
Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
    If Not Application.Intersect(R, Range("A4:A35000,K4:K35000")) Is Nothing Then
      Cancel = 1
      If R <> "" Then
          If R.Column = 1 Then Application.Run "saisie_modif" Else Application.Run "saisie_horaire"
      Else
          [A1].Select: MsgBox "Impossible !"
      End If
  End If
End Sub
Tu pourrais aussi corriger le tien ainsi,
VB: 
Dim i As Boolean  'ne pas supprimer ni déplacer
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Application.Intersect(Target, [A4:A35000]) Is Nothing Then
      If Target <> "" Then i = 1: Application.Run "saisie_modif": Exit Sub
  End If
  If Not Application.Intersect(Target, [K4:K35000]) Is Nothing Then
      If Target <> "" Then i = 1: Application.Run "saisie_horaire": Exit Sub
  End If
  If i = 1 Then [A1].Select: MsgBox "Mission Impossible !"
End Sub

Modeste (oui pour le Select Case plus approprié pour des cas nombreux et indépendants) ton message n'apparait jamais donc il devient est inutile 😳.
On pourrait le transformer ainsi :
VB: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Application.Intersect(Target, Range("$A$4:$K$35000")) Is Nothing Then
      If Target <> "" Then
          Select Case Target.Column
              Case 1: Application.Run "saisie_modif"
              Case 11: Application.Run "saisie_horaire"
               '*******Case = ? : autre userfrom
         End Select
      Else
          MsgBox "Impossible !"
          Range("A1").Select
      End If
    End If
End Sub
Mais, à cause du Range("$A$4:$K$35000"), il apparaîtrait trop souvent.

Je me demande, finalement, si cette alerte est vraiment nécessaire !
 
Vote positif 0 Vote négatif
Si... à dit:
Bon_jour

Essaie ce code
VB: 
Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
    If Not Application.Intersect(R, Range("A4:A35000,K4:K35000")) Is Nothing Then
      Cancel = 1
      If R <> "" Then
          If R.Column = 1 Then Application.Run "saisie_modif" Else Application.Run "saisie_horaire"
      Else
          [A1].Select: MsgBox "Impossible !"
      End If
  End If
End Sub
Tu pourrais aussi corriger le tien ainsi,
VB: 
Dim i As Boolean  'ne pas supprimer ni déplacer
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Application.Intersect(Target, [A4:A35000]) Is Nothing Then
      If Target <> "" Then i = 1: Application.Run "saisie_modif": Exit Sub
  End If
  If Not Application.Intersect(Target, [K4:K35000]) Is Nothing Then
      If Target <> "" Then i = 1: Application.Run "saisie_horaire": Exit Sub
  End If
  If i = 1 Then [A1].Select: MsgBox "Mission Impossible !"
End Sub

Modeste (oui pour le Select Case plus approprié pour des cas nombreux et indépendants) ton message n'apparait jamais donc il devient est inutile 😳.
On pourrait le transformer ainsi :
VB: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Application.Intersect(Target, Range("$A$4:$K$35000")) Is Nothing Then
      If Target <> "" Then
          Select Case Target.Column
              Case 1: Application.Run "saisie_modif"
              Case 11: Application.Run "saisie_horaire"
               '*******Case = ? : autre userfrom
         End Select
      Else
          MsgBox "Impossible !"
          Range("A1").Select
      End If
    End If
End Sub
Mais, à cause du Range("$A$4:$K$35000"), il apparaîtrait trop souvent.

Je me demande, finalement, si cette alerte est vraiment nécessaire !
Cliquez pour agrandir...

Ce code est parfait !!
Le message, c'est juste pour prévenir, en théorie il ne devrait pas apparaitre, mais bon ...
Je ne connaissais pas le principe du "Select Case" en validant les deux plages de cellules ... j'ai encore découvert des choses !!! En tout les cas, un grand merci à tous !!!!
 
Vote positif 0 Vote négatif
Bonsour®
Si... à dit:
Bon_jour
Cliquez pour agrandir...

On pourrait le transformer ainsi :
VB: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Application.Intersect(Target, Range("$A$4:$A$35000","$K$4:$K$35000")) Is Nothing Then
          If Target <> "" Then
              Select Case Target.Column
                          Case 1: Application.Run "saisie_modif"
                          Case 11: Application.Run "saisie_horaire"
                           '*******Case = ? : autre userfrom
              End Select
          End If
  Else
          MsgBox "Impossible !"
          Range("A1").Select
   End If
End Sub
 
Vote positif 0 Vote négatif
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

thunder23
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
129
thunder23
thunder23
F
  • Résolu(e)
Microsoft 365 Evènement worksheet_change
Réponses
2
Affichages
72
Francky79
F
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
55
spike29
S
S
  • Résolu(e)
XL 2019 VBA automatiser hauteur de lignes
Réponses
7
Affichages
199
sofmat
S
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
100
crocrocro
C
J
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
239
jalaba
J
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
274
CortoXls
C
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
361
Gestionnaire_rh
G
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
110
fanch55
fanch55
jeanmi
  • Résolu(e)
XL 2010 amélioration code
Réponses
3
Affichages
105
jeanmi
jeanmi
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
224
telemarrk
T
anthoYS
  • Résolu(e)
Microsoft 365 Clic droit en B (Quelle que soit la cellule de cette colonne) : doit créer ou ouvrir une nouvelle note*
2
Réponses
19
Affichages
195
anthoYS
anthoYS
richardlion
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
427
job75
job75
T
  • Question Question
Microsoft 365 alerte si cellule change de valeur
Réponses
14
Affichages
376
thenesol
T
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
344
sylvanu
sylvanu
C
  • Résolu(e)
Autres Copier des données vers une nouvelle feuille excel VBA
2
Réponses
25
Affichages
757
Carolinebd
C
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
367
Oneida
Oneida
T
  • Résolu(e)
Microsoft 365 Cases à cocher en série
Réponses
9
Affichages
577
Phil69970
Phil69970
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
112
KRUG WOO
K
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
238
patricktoulon
patricktoulon
Retour