cellule cliquable et executable

PATBOU cette méthode est bien trop compliquer!!!
Ensuite je ne parle pas de bouton je dit que :
je veux que mes case que j'ai définit au début de ce topic, on le rôle comme un bouton!En clair lorsque l'on clique dessus une action est effectuer!!!

Code:

---

1 2 3 4 5 6 7 8

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*2" End Select End Sub

---

Avec ce code le débogueur ne veux pas faire de pas a pas

Citation:

---

PATBOU cette méthode est bien trop compliquer!!!

---

"trop compliqué" et surtout inadapté ici.


Où le mets-tu, ce code? Dans quel module, de quel classeur?

Je t'ai posé plusieurs questions simples pour lesquelles j'attends toujours des réponses simples...

Je le met dans le classeur feuille 1

J'ai envie de te dire

Soit tu mets ton fichier en copie, soit tu te débrouilles tout seul...

Comme je ne peux pas te dire cela, on va continuer un peu ;)

Est-ce dans la feuille 1 que tu veux que tes cellules réagissent?

Bonjour tlm,

Si je peux me permettre, il y a un point qui a été abordé rapidement et je ne suis pas certain que guismo ait saisi la subtilité alors qu'il est d'une importance primordiale.

La cellule A15 est-elle fusionnée avec une autre cellule ?

oui ma A15 est fusionner avec B15!!J'ai demander si cela était important ou pas?
Et oui, toute mes cellule sont dans ma feuille 1

Je t'ai donné plus haut dans la discussion deux solutions au fait que tes cellules sont fusionnées... Les as-tu lues?8O Les as-tu essayées? 8O

Merci Fring ;)

AAAAAAAAAhhhh il commence à il y a voir du résultat!!!
Le premier marche mais le deuxième ne marche pas sniffff!!!

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Select Case Target.Address Case "$A$15:$B$16" Range("G34").Formula = "=C32*10*C34*10*3" Case "$D$15:$D$16" Range("G34").Formula = "=C32*10*C34*10*2" End Select End Sub

---

Si A15 et B15 sont fusionner il faut changer le code pour cette cellule tout simplement

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:$B$15" Range("G34").Formula = "=C32*10*C34*10*3"   Case "$D$15" Range("G34").Formula = "=C32*10*C34*10*3"   End Select End Sub

---

Citation:

---

Envoyé par guismoman33

AAAAAAAAAhhhh il commence à il y a voir du résultat!!!
Le premier marche mais le deuxième ne marche pas sniffff!!!

---

Peut-être que les cellules D15 et D16 ne sont pas fusionnées... 8O, ou que ce sont les cellules D15 et E15 qui sont fusionnées... ou...

MERCI BEAUCOUP POUR votre aide ça marche je suis vraiment content!!!Merci beaucoup!!!