Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Change Val, evenement, select case, calculate

Change Val, evenement, select case, calculate

1 réponse
Avatar
SEB
Bonjour =E0 tous,
je cherche =E0 activer un "classeur S" =E0 partir d'une
condition remplie sur le "classeur AAA"


Dans le classeur AAA
>il s'agit d'un travail ligne par ligne dont la condition=20
si C =3D W ou AR alors Windows("calsseur S").activate; =20
Sheets("feuill2").Select);=20

Exemple:
Ligne 3:si C3 =3D W3 ou AR3 alors Windows("classeur=20
S").activate; Sheets("feuill1").Select);

Ligne 4: si C4 =3D W4 ou AR4 Windows("calsseur=20
S").activate; Sheets("feuill2").Select);
Ligne 5:si C5 =3D W5 ou AR5 Windows("calsseur S").activate; =20
Sheets("feuill3").Select);
et ainsi de suite

> le classeur S est d=E9j=E0 ouvert.
> les valeurs =E0 verifier concerne toujours la colonne C
> Les valeurs dans la colonne C change automatiquement(=20
sans saisie)

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
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Seb,

La procédure suivante suppose que les données sont saisies soient en W ou Ar et ne sont pas le fruit de formule !

Ça pourrait donner quelque chose dans le genre .....!

'----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row = Range("W1").Row Or _
Target.Row = Range("Ar1").Row Then
If Target.Value = Range("W" & Target.Row).Value Or _
Target.Value = Range("Ar" & Target.Row).Value Then
With Workbooks("Classeur S")
.Activate
.Worksheets("Feuil2").Select
.Worksheets("Feuil2").Range("A1").Select
End With
End If
End If

End Sub
'----------------------------


Salutations!


"SEB" a écrit dans le message de news:8ee301c47878$abfdc480$
Bonjour à tous,
je cherche à activer un "classeur S" à partir d'une
condition remplie sur le "classeur AAA"


Dans le classeur AAA
il s'agit d'un travail ligne par ligne dont la condition
si C = W ou AR alors Windows("calsseur S").activate;

Sheets("feuill2").Select);

Exemple:
Ligne 3:si C3 = W3 ou AR3 alors Windows("classeur
S").activate; Sheets("feuill1").Select);

Ligne 4: si C4 = W4 ou AR4 Windows("calsseur
S").activate; Sheets("feuill2").Select);
Ligne 5:si C5 = W5 ou AR5 Windows("calsseur S").activate;
Sheets("feuill3").Select);
et ainsi de suite

le classeur S est déjà ouvert.
les valeurs à verifier concerne toujours la colonne C
Les valeurs dans la colonne C change automatiquement(
sans saisie)


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