Affichage userform sour condition

excalibur

XLDnaute Impliqué

• 14 Novembre 2007

• #2

Re : Affichage userform sour condition

bonjour arnaud le forum
dans le evenement de ta feuille t mets ce code
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
UserForm1.Show
End If
End Sub
le code userform
Option Explicit
Private Sub UserForm_Initialize()
If [a1] = 1 Then TextBox1 = [a1]
End Sub
salutations

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 14 Novembre 2007

• #3

Re : Affichage userform sour condition

bonsoir Arnaud

vois si cela te convient

edit:
comme les carabiniers
Salut a tous

 

Pièces jointes

• Arnaud.xls

  26.5 KB · Affichages: 63
• Arnaud.xls

  26.5 KB · Affichages: 64
• Arnaud.xls

  26.5 KB · Affichages: 68

Vote positif 0 Vote négatif

A

Arnaud61

XLDnaute Occasionnel

• 14 Novembre 2007

• #4

Re : Affichage userform sour condition

Merci à tous, ça fonctionne!

J'aimerais juste pouvoir sélectionner une cellule de A1 à A1000 par exemple

Code:

If Target.Address = "$A$1" Then UserForm1.Show

Je ne trouve pas la bonne syntaxe! 😱

J'ai essayé

For i = 1 to 1000
If Target.Address = "$A$" & i Then Userform1.Show
Next i

Puis


If Target.Address = "$A$1:1000" & i Then Userform1.Show

puis

If Target.Address = "$A$7:$A$1000" Then Afficher_Tâche.Show

 

Vote positif 0 Vote négatif

excalibur

XLDnaute Impliqué

• 14 Novembre 2007

• #5

Re : Affichage userform sour condition

re le fil comme cela
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A1000")) Is Nothing Then
UserForm1.Show
End If
End Sub
salutations
ps salut pierrejean carcharodon-charcharias

 

Dernière édition: 14 Novembre 2007

Vote positif 0 Vote négatif

A

Arnaud61

XLDnaute Occasionnel

• 14 Novembre 2007

• #6

Re : Affichage userform sour condition

Code:

If Not Application.Intersect(Target, Range("A7: A1000")) Is Nothing

🙄

Merci à tous

Problème résolu

 

Vote positif 0 Vote négatif