cellule cliquable et executable

**guismoman33** · 30/06/2008, 14h38

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 :

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

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

**Pierre Fauconnier** · 30/06/2008, 14h41

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

**guismoman33** · 30/06/2008, 14h43

Je le met dans le classeur feuille 1

**Pierre Fauconnier** · 30/06/2008, 14h49

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?

**fring** · 30/06/2008, 14h54

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 ?

**guismoman33** · 30/06/2008, 14h56

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

**Pierre Fauconnier** · 30/06/2008, 15h00

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

Les as-tu essayées?

Merci Fring

**guismoman33** · 30/06/2008, 15h07

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

Code :

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

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

**David2304** · 30/06/2008, 15h08

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

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