Discussion :

[Pluplume]

Bonjour à tous,

J'ai un petit souci avec l'ouverture de mon userform.

Je vous explique j'ai une calculatrice qui s'ouvre lorsque l'on clique sur une cellule de la colonne n°13.

J'aimerais également que cette calculatrice s'ouvre lorsque l'on clique dans la plage de données .D33:G35

Et mon problème est que je ne sais pas comment faire pour ajouter à ma colonne 13 ma plage de données D33:G35 dans mon code.

Merci à vous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
On Error Resume Next
' ouverture pavé numérique colonne 13 saisie POIDS
If Target.Count = 1 And Target.Column = 13 Then
  If Calculette.Visible = True Then
    Calculette.Top = ActiveWindow.Height / 2
  Else
    Calculette.Show
  End If
Else
  Unload Calculette
End If

[mat955]

Rebonjour,

Tu as déjà cette ligne de code qui te permet de vérifier que ta cellule appartient à la ligne 1 ET à la colonne 13:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Target.Count = 1 And Target.Column = 13 Then

Il te faut appliquer la même logique, mais avec un OU.

Un truc du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Target.Count = 1 And Target.Column = 13 Then Or...

[Pluplume]

Merci pour ta réponse

N'étant pas très à l'aise en VBA j'ai essayé de "bidouillé" quelques trucs mais ça ne fonctionne pas ^^

j'ai essayé également avec (Target, Range("D33:G35")) mais sans succès ...

Je ne vois pas comment sélectionner toute la plage de données ..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
On Error Resume Next
' ouverture pavé numérique colonne 13 saisie POIDS
If Target.Count = 1 And Target.Column = 13 Or Target.Range = "D33:G35" Then
  If Calculette.Visible = True Then
    Calculette.Top = ActiveWindow.Height / 2
  Else
    Calculette.Show
  End If
Else
  Unload Calculette
End If

[Pluplume]

Je viens de tester ce code pensant que j'avais trouvé ... mais maintenant dès que je clique dans une cellule ma calculatrice s'ouvre ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
On Error Resume Next
' ouverture pavé numérique colonne 13 saisie POIDS
If Target.Count = 1 And Target.Column = 13 Or Target = Range("D33:G35") Then
  If Calculette.Visible = True Then
    Calculette.Top = ActiveWindow.Height / 2
  Else
    Calculette.Show
  End If
Else
  Unload Calculette
End If

[Invité]

Bonjour,

A tester (ShowModal = false pour le userform)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
        If Target.Count > 1 Then Exit Sub
 
        If Not Intersect(Target, Columns(13)) Is Nothing Then
           LancerLaCalculette
           Exit Sub
         Else
           Unload Calculette
        End If
 
        If Not Intersect(Target, Range("D33:G35")) Is Nothing Then
           LancerLaCalculette
           Exit Sub
         Else
            Unload Calculette
        End If
 
End Sub
 
Private Sub LancerLaCalculette()
 
      If Calculette.Visible = True Then
         Calculette.Top = ActiveWindow.Height / 2
      Else
         Calculette.Show
      End If
 
End Sub

[Pluplume]

Merci Eric ça fonctionne bien sur ma plage D33:G35 ! Par contre lorsque je clique dans la colonne 13 la calculatrice s'ouvre et se referme immédiatement

As-tu une idée du pourquoi?