Procedure even. /change. val/

2 réponses

SEB

01/08/2004 à 20:33

Bonjour =E0 tous,
je cherche =E0 activer un classeur S =E0 partir d'une=20
condition remplie sur le classeur A

ex=20
sur la ligne 3 du classeur A,
la valeur de la cellule A3 change + devient egale =E0 la=20
valeur de la cellule W3 ; alors je voudrait que le=20
classeur (S) s'active automatiquement

et de m=EAme sur les autres ligne du classeur A:
A4 change et devient =E9gale =E0 W4 alors la macro active=20
Classeur S en taille normale

Je pense =E0 une proc=E9dure private sub change by val avec=20
des Cases mais je d=E9bute...et je ne suis pas fort en=20
syntaxe

si qqun peut m'aider

merci d'avance

SEB=20

2 réponses

papou

02/08/2004 à 08:01

Bonjour
Le classeur S est-il ouvert ?
Les valeurs à vérifier concernent-elles toujours la colonne A (pour la
comparaison) ?
Les lignes correspondent-elles toujours entre la colonne A et la colonne W ?
Les valeurs de la colonne A sont-elles des saisies ?

Sinon en attendant les confirmations voici une manière de procéder (code à
placer dans la feuille : clic droit sur l'onglet, visualiser le code et
coller les lignes ci-dessous) :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Target.Value = Cells(Target.Row, "W").Value Then
Workbooks("S.xls").Activate
End If
End Sub

Cordialement
Pascal

"SEB" a écrit dans le message de
news:0afc01c477f6$1ba5fe20$
Bonjour à tous,
je cherche à activer un classeur S à partir d'une
condition remplie sur le classeur A

ex
sur la ligne 3 du classeur A,
la valeur de la cellule A3 change + devient egale à la
valeur de la cellule W3 ; alors je voudrait que le
classeur (S) s'active automatiquement

et de même sur les autres ligne du classeur A:
A4 change et devient égale à W4 alors la macro active
Classeur S en taille normale

Je pense à une procédure private sub change by val avec
des Cases mais je débute...et je ne suis pas fort en
syntaxe

si qqun peut m'aider

merci d'avance

SEB

SEB

02/08/2004 à 08:27

Tout d'abord un grand merci Pascal pour le dépannage.
alors voila:

en effet le classeur S est déjà ouvert.
les valeurs à verifier concerne toujours la colonne C
il s'agit d'un travail ligne par ligne:
L3: si C3=W3 alors Windows("calsseur S").activate; Sheets

("feuill1").Select);
L4: si C4=W4 alors Windows("calsseur S").activate; Sheets
("feuill2").Select)...

Les valeurs dans la colonne C change automatiquement(
sans saisie)

merci d'avance

-----Message d'origine-----
Bonjour
Le classeur S est-il ouvert ?
Les valeurs à vérifier concernent-elles toujours la
colonne A (pour la

comparaison) ?
Les lignes correspondent-elles toujours entre la colonne
A et la colonne W ?

Les valeurs de la colonne A sont-elles des saisies ?

Sinon en attendant les confirmations voici une manière de
procéder (code à

placer dans la feuille : clic droit sur l'onglet,
visualiser le code et

coller les lignes ci-dessous) :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Target.Value = Cells(Target.Row, "W").Value Then
Workbooks("S.xls").Activate
End If
End Sub

Cordialement
Pascal

"SEB" a écrit dans
le message de

news:0afc01c477f6$1ba5fe20$
Bonjour à tous,
je cherche à activer un classeur S à partir d'une
condition remplie sur le classeur A

ex
sur la ligne 3 du classeur A,
la valeur de la cellule A3 change + devient egale à la
valeur de la cellule W3 ; alors je voudrait que le
classeur (S) s'active automatiquement

et de même sur les autres ligne du classeur A:
A4 change et devient égale à W4 alors la macro active
Classeur S en taille normale

Je pense à une procédure private sub change by val avec
des Cases mais je débute...et je ne suis pas fort en
syntaxe

si qqun peut m'aider

merci d'avance

SEB

.

Procedure even. /change. val/

2 réponses

Veuillez sélectionner un problème