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
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
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
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" <anonymous@discussions.microsoft.com> a écrit dans le message de news:8ee301c47878$abfdc480$a501280a@phx.gbl...
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
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