If Target = Rows("A:E") Then

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 !

Evelynetfrancois

XLDnaute Impliqué
bonjour a tous
je pense que la macro suivante suffit a elle meme !!

mais en VBA correct ,ca s ecrit comment ??

merci beaucoup d'avance et bonne aprem à tous
E et F


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target = Rows("A:E") Then
UserFormSaisies.Show
End If
If Target = Rows("F") Then
Cancel = True
Calendrier.Show
End If
End Sub
 
Re : If Target = Rows("A:E") Then

Bonjour,

Essaye :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If not(application.intersect(Target,Rows("A:E")) is nothing) Then
UserFormSaisies.Show
End If
If not(application.intersect(Target,Rows("F")) is nothing) Then
Cancel = True
Calendrier.Show
End If
End Sub
 
Re : If Target = Rows("A:E") Then

re et merci pour vos reponses si rapides !!!

tototiti2008 j ai installer ta macro , mais elle bugue de suite !!!mais l esprit est bien là !!

pierrejean ,If target=rows("A:E") n, etait là que pour simboliser ma requete
en fait je voudrais (souhaiterais)
si je Dclick dans les colonnes A B C ou D,...........> UserFormSaisies.Show
si je Dclick dans la colonne F,...........> UserFormCalendrier.Show

j espere etre clair !!
merci ...............pour tout
E et F
 
Re : If Target = Rows("A:E") Then

Re

A tester:

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column < 6 Then
UserFormSaisies.Show
End If
If Target.Column = 6 Then
Cancel = True
Calendrier.Show
End If
End Sub

@tototiti 🙂

Je hais les doubles negations !!!
 
- 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

  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
213
Réponses
1
Affichages
301
Réponses
32
Affichages
1 K
Réponses
14
Affichages
337
Retour