cellule cliquable et executable

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour voila j'ai réalisé un programme qui donne une action à certaine cellule par exemple je clique sur A15 et une formule ce met dans la cellule G34...
Mais pour toutes les cellules A15, D15, G15, A29, D29 cela ne marche cependant pour le reste ça marche...Avez vous une explication , car ceci est urgent et très important...

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
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
 
If Target.Row <> 51 Or (Target.Column < 1 Xor Target.Column > 7) Then
      If Target.Row <> 53 Or (Target.Column < 3 Xor Target.Column > 3) Then
          If Target.Row <> 29 Or (Target.Column <> 1 Or Target.Column <> 4) Then
              If Target.Row <> 15 Or (Target.Column <> 1 Xor Target.Column <> 4 Xor Target.Column <> 7) Then
               Exit Sub
              End If
          End If
      Else
      Workbooks(1).Sheets(1).Range("C56").Value = 12
      End If
Else
        If Target.Row = 51 And Target.Column = 1 Then
        Workbooks(1).Sheets(1).Range("C56").Value = 5
        End If
        If Target.Row = 51 And Target.Column = 3 Then
        Workbooks(1).Sheets(1).Range("C56").Value = 10
        End If
        If Target.Row = 51 And Target.Column = 5 Then
        Workbooks(1).Sheets(1).Range("C56").Value = 100
        End If
        If Target.Row = 51 And Target.Column = 7 Then
        Workbooks(1).Sheets(1).Range("C56").Value = 200
        End If
        If Target.Column = 1 And Target.Row = 15 Then
        Workbooks(1).Sheets(1).Range("G34").Value = "=C32*10*C34*10*3"
        End If
        If Target.Row = 29 And Target.Column = 1 Then
        Workbooks(1).Sheets(1).Range("G34").Value = "=C32*10*C34*10*3"
        End If
        If Target.Row = 29 And Target.Column = 4 Then
        Workbooks(1).Sheets(1).Range("G34").Value = "=C32*10*C34*10*4"
        End If
        If Target.Row = 15 And Target.Column = 7 Then
        Workbooks(1).Sheets(1).Range("G34").Value = "=C32*10*C34*10*4"
        End If
        If Target.Row = 15 And Target.Column = 4 Then
        Workbooks(1).Sheets(1).Range("G34").Value = "=C32*10*C34*10*2"
        End If
End If
End Sub

30/06/2008, 09h52
Pierre Fauconnier
Bonjour

C'est à mon avis dans les cascades de IF... END IF qu'il y a un problème. Il est malaisé de reconstituer le tableau des valeurs logiques avec des IF et des XOR (Bien penser que XOR renvoie TRUE lorsqu'une seule des propositions est TRUE, et FALSE dans tous les autres cas...)

Personnellement, je découperais mon code via des Select Case... End Case.
Code:

1 2 3 4 5 6 7 8 Select Case Target.Row Case 51 ... Case 53 ... Case 29 ... End Select
Le code y gagnerait en clarté.

Si tu n'y arrives pas, précise les conditions qui doivent être remplies pour que l'on puisse t'aider au mieux
30/06/2008, 10h20
guismoman33

Tu ne comprend pas mes conditions?
Si je clique sur :
-A15 ==> tel formule dans G34
-D15 ==> tel formule dans G34
-G15 ==> tel formule dans G34
-A29 ==> tel formule dans G34
-D29 ==> tel formule dans G34

-A51 ==> tel numéro dans C56
-C51 ==> tel numéro dans C56
-C53 ==> tel numéro dans C56
-E51 ==> tel numéro dans C56
-G51 ==> tel numéro dans C56

Moi, j'utiliserais une suite de 10 CASE

Code:

1
2
3
4
5
6
7
8
Select case target.address
    case "$A$15"
        ....
    case "$D$15"
        ...
    case ...
        ...
End Select

30/06/2008, 10h31
guismoman33

Peut tu me donnez plus de précisions stp...Peut tu me faire un exemple d'un entre deux case stp!!!!Mais il ne faut pas oublier que mes case en question sont des case cliquable qui execute une action
30/06/2008, 10h37
Pierre Fauconnier
je pensais que mon exemple était assez clair.

Le bloc Select... End Select permet d'évaluer différentes valeurs et remplace avantageusement l'imbrication de IF.

Tu remplaces donc les ... entre deux Case par le code que tu souhaite appliquer lorsque la condition est remplie
Code:

1 2 3 4 5 6 7 8 Select case target.address case "$A$15" MsgBox "La cellule cliquée est $A$15" case "$D$15" ... case ... ... End Select
Bien entendu, tu peux avoir plusieurs lignes dans un bloc Case...

:f1: t'aidera à y voir plus clair.

ça marche pas du tout...Au pire des cas fais moi un exemple avec les dix et je verrai se que sa donne car pour le moment je tente cela :

Code:

1
2
3
4
5
6
7
8
Select Case Target.Address
    Case "$A$15"
        Workbooks(1).Sheets(1).Range("G34").Value = "=C32*10*C34*10*3"
        MsgBox "La cellule cliquée est $A$15"
    Case "$D$15"
        Workbooks(1).Sheets(1).Range("G34").Value = "=C32*10*C34*10*2"
        MsgBox "La cellule cliquée est $A$15"
End Select

et sa ne marche pas

30/06/2008, 11h01
Pierre Fauconnier

Tu dois évidemment supprimer la ligne

Code:

Msgbox "La cellule ..."

Cette ligne était donnée à titre d'exemple...

Pour affecter une formule à une cellule, il faut utiliser

Code:

Workbooks(1).Sheets(1).Range("G34").Formula = "=C32*10*C34*10*3"

Note que .Formula impose de respecter les noms anglais des fonctions, mais permet en "échange" de faire fonctionner ta macro sur toutes les configurations d'Excel.
30/06/2008, 11h04
guismoman33

Aucune formule ne se met dans ma case choisit!!!!

Bonjour,

Essaye ça

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address
 
Case "$A$15"
Range("G34").Formula = "=C32*10*C34*10*3"
 
Case "$D$15"
Range("G34").Formula = "=C32*10*C34*10*3"
 
End Select
End Sub

30/06/2008, 11h25
Pierre Fauconnier

Il faut être certain que Workbooks(1) et worksheets(1) pointent vers le bon fichier et la bonne feuille.

Tu aurais intérêt à fonctionner en mode pas à pas. Mets un point d'arrêt sur le code avant le premier CASE, puis avance en pas-à-pas avec F8. Tu pourras ainsi voir à chaque ligne comment se comporte le code.
A priori, cela devrait fonctionner.
30/06/2008, 11h29
guismoman33

La technique du pas a pas ne marche pas pour se qui est de cellule cliquable. Le programme ne marche toujours pas, chez vous marche t il?
30/06/2008, 11h34
David2304

Chez moi ya pas de pb
Assure-toi bien de ne pas être en mode débogage
30/06/2008, 11h40
guismoman33

Une petite question : est ce que si une case comprend A15; B15 ceci vaut bien A15!!!
30/06/2008, 11h42
Pierre Fauconnier

David,

S'il fait du pas à pas, il sera forcément en mode débogage...

guismoman33,

Si tu mets un point d'arrêt sur la ligne

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

, tu vas forcément passer en mode débogage. A partir de là, tu dois presser F8 pour avancer ligne par ligne.

Cela étant, est-il utile de préfixer la cellule par

Code:

workbooks(1).worksheets(1)

car si ton code se trouve dans la feuille (1) du classeur (1), le préfixage est inutile. Cherches-tu à placer la formule dans un autre classeur que celui qui contient le code?
Si non, supprime les préfixes et utilise le code fourni par David. Si oui, tu dois absolument vérifier que le classeur et que la feuille renseignée sont bien les bons. Est-ce le cas? Jouer avec des index n'est que très rarement la meilleure solution
30/06/2008, 11h46
Pierre Fauconnier

Citation:

Envoyé par guismoman33

Une petite question : est ce que si une case comprend A15; B15 ceci vaut bien A15!!!

Si tu parles de cellules fusionnées, la réponse est NON. Tu dois utiliser l'adresse de la plage $A$15:$B$15 ou placer dans le Select l'adresse de la première cellule de la plage fusionnée

Code:

Select case Target(1, 1).Address

Assure-toi aussi que tu as placé le code dans le module de la bonne feuille...
30/06/2008, 13h09
guismoman33

Il me dit qu'il ne peux pas de faire de pas à pas car le programme ne contient aucun executable!!!Jeveux que mes cellules soit dans des boutons entre guillemet voila,ce que je veux!
30/06/2008, 13h16
Pierre Fauconnier

Dans ton premier message, tu dis que cela fonctionne pour certaines cellules... C'est donc qu'il y a du code exécutable...

Ferme ton fichier en l'enregistrant, ferme Excel, puis rouvre ton fichier, va dans VBA, place un point d'arrêt sur la ligne qui déclare la procédure événementielle, puis bascule dans Excel et change de cellule dans la feuille concernée... Tu vas passer en mode de débogage avec la ligne du point d'arrêt en jaune...

As-tu déjà utilisé le mode débogage auparavant? (Je ne connais pas ton niveau de VBA)

A ce stade, tu peux aussi placer ton fichier en pièce jointe, sinon, j'ai le pressentiment que nous allons tourner en rond

[EDIT] Ca veut dire quoi

Citation:

Il me dit qu'il ne peux pas de faire de pas à pas car le programme ne contient aucun executable!!!Jeveux que mes cellules soit dans des boutons entre guillemet voila,ce que je veux!

Jusqu'ici, tu ne nous a pas parlé de boutons... Si tu veux de l'aide, tu dois impérativement être plus précis en détaillant la situation de ton classeur, ce que tu souhaites réaliser, ton niveau de connaissances en VBA et en Excel... sinon, personne ne pourra te venir en aide[/EDIT]
30/06/2008, 13h26
patbou
bonjour,

pour detecter le "click" dans les cellules concernées pourquoi ne pas utliser la methode intersect

1/ avec l enregistreur de macro
selectionner toute les cellules "cliquable"

2/ ds l evenenement worksheet_SelectionChange(ByVal Target As Range)
Code:

1 2 3 4 5 6 dim plage as range set plage = "la selection recuperée avec l enregistreur de macro if not intersect(target,plage) then ....... end if
30/06/2008, 13h34
Pierre Fauconnier

Citation:

pour detecter le "click" dans les cellules concernées pourquoi ne pas utliser la methode intersect

Parce que je pense que intersect est intéressant lorsque l'on doit tester l'appartenance d'une cellule à une plage. Cela ne semble pas être le cas ici, dans la mesure où les dix cellules testées sont distinctes.

C'est pourquoi je préconise l'utilisation de Select Case... End Select.

De toutes façons, vu la tournure que prend la discussion, je pense que le problème de départ n'est pas là 8O

Voir 40 message(s) de cette discussion en une page