Passage d'une feuille à une autre

R

Robert

Guest

• 7 Juillet 2003

• #2

Salut Chouchane, salut le forum

tu n'as pas précisé dans quelle feuille tu voulais écrire "OK". Je te l'ai mis dans la feuille 1. Modifie la macro si ça va pas...


Public Sub ok()
If Sheets("Feuil1").Range("A1").Value = _
Sheets("Feuil2").Range("A1").Value Then
Sheets("Feuil1").Range("B1").Value = "ok"
End If
End sub

À plus,

Robert

 

Vote positif 0 Vote négatif

C

Chouchane

Guest

• 7 Juillet 2003

• #3

Merci beaucoup c super!

J'ai encore une autre question : si je veux par exemple que B2 prenne toujours la valeur B1 meme si je modifie la valeur de B1 apres execution de la macro, que dois-je faire?

(Je suppose que dans l'expression :
Sheets("Feuil1").Range("B2").Value
il faut modifier value par autre chose, mais quoi?)

Merci encore

Chouchane

 

Vote positif 0 Vote négatif

R

Robert

Guest

• 7 Juillet 2003

• #4

re...

pas besoin de modifier la macro, en B2 tu tapes :

=B1

et tu valides avec [Entrée]

À plus,

Robert

 

Vote positif 0 Vote négatif

C

Chouchane

Guest

• 7 Juillet 2003

• #5

Merci d'avoir répondu et aussi vite, mais en fait ce que je veux c'est que B2 prenne sa valeur initiale * B1

On peut faire :
Range("B2") = Range("B2") * Range("B1")

Le problème c'est que si je mofifie B1 après l'exécution de la macro, B2 ne varie pas...

Merci d'avance

Chouchane

 

Vote positif 0 Vote négatif

R

Robert

Guest

• 7 Juillet 2003

• #6

Re...

Hé oui, directement dans la cellule, tu obtiens une référence circulaire et Excel n’aime pas ça du tout.

Il y a la possibilité d’utiliser ton code à chaque changement de la cellule active. Pour cela :
Copie le code ci-dessous. Ouvre VBE. Double clique sur la feuille contenant B1 et B2. Clique dans le grand cadre à droite et colle le code.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("B2") = Range("B2") * Range("B1")
End Sub

À plus,

Robert

 

Vote positif 0 Vote négatif