Plage de données et ouverture userForm

Version imprimable

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 :D
Code:

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

12/08/2019, 15h23
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:

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:

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

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 .. 8O
Code:

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

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:

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

Citation:

Envoyé par Pluplume

Bonjour,

A tester (ShowModal = false pour le userform)

Code:

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

12/08/2019, 16h15
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?
12/08/2019, 16h18
Invité

Citation:

Envoyé par Pluplume

Effectivement, j'ai corrigé mon message entre temps, relis mon message. J'ai mis des Exit Sub à la fin de chaque cas. Je suppose que la propriété de ton userform ShowModal = False.
12/08/2019, 16h36
Pluplume

Super ça fonctionne !! Merci et oui la propriété de mon Showmodal = false .

Résolu :mrgreen:
13/08/2019, 09h48
Pluplume

1 pièce(s) jointe(s)

Re-bonjour ,

Je viens de me rendre compte que suite à la modification du code, certains boutons de ma calculatrice ne fonctionne plus.

Seul les boutons 0, 1, RAZ et ok fonctionnent.

Etrange car le code que j'ai modifié ne concerne pas la construction de la calculatrice :sleep:

Je vous mets un fichier en exemple car je mouline un peu là ^^'
Pièce jointe 497370
13/08/2019, 10h15
Invité

Citation:

Envoyé par Pluplume

Bonjour,

Les boutons de 1 à 9 de la calculette sont dédoublés et portent des noms de CommandButton au dessus des chiffres de 1 à 9. Il faut les supprimer et remettre la couleur d'origine.
13/08/2019, 10h32
Pluplume

Après modif ça fonctionne !!

Merci je n'aurais pas trouvé :?