Discussion :

[guismoman33]

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 :

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
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

[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 :

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

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

[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

[Pierre Fauconnier]

Moi, j'utiliserais une suite de 10 CASE

Code :

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

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

[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

[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 :

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

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...

t'aidera à y voir plus clair.

[guismoman33]

ç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 :

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

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

[Pierre Fauconnier]

Tu dois évidemment supprimer la ligne

Code :

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

Msgbox "La cellule ..."

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

Pour affecter une formule à une cellule, il faut utiliser

Code :

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

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.

[guismoman33]

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

[David2304]

Bonjour,

Essaye ça

Code :

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

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

[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.

[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?

[David2304]

Chez moi ya pas de pb
Assure-toi bien de ne pas être en mode débogage

[guismoman33]

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

[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 :

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

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 :

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

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

[Pierre Fauconnier]

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 :

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

Select case Target(1, 1).Address

Assure-toi aussi que tu as placé le code dans le module de la bonne feuille...

[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!

[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

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]

[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 :

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

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

[Pierre Fauconnier]

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à