Bonjour,
J'ai cr=E9e une macro evenementielle sous xl2000 mais elle ne s'=E9xecute
pas.
Normalement, elle devrait s'=E9x=E9cut=E9e avec le changement de la cellule
D4...
Le but =E9tant d'obtenir dans la colC une liste d=E9roulante associ=E9e =E0=
la
valeur de D4(variable)
Je ne vois pas ou est le pb, est-ce quelqu'un peut m'eclairer ?
La macro en question:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim col As Long
Dim row As Long
Dim nbRow As Long
Dim wk As Worksheet
Dim Deb As Integer
Dim Atelier As Integer
col =3D Target.Column
row =3D Target.row
If Target.Address =3D "$D$4" And [$D$4] <> "" Then
Set wk =3D Target.Worksheet
Atelier =3D Cells(1, 1).Value
If Application.WorksheetFunction.IsNumber(wk.Cells(1, 1)) Then
Deb =3D 8
nbRow =3D Worksheets("Config").Cells(5, Atelier)
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
Youky
Salut SD, With wk.Range("C" & row).Validation ......row renvoie 4 à voir si row ou Nbrow Sinon en fenêtre exécution copie ceci ..place le curseur à la fin et presse Enter application.EnableEvents=True Ceci à pour but de rendre actif les événements. Youky
"SD" a écrit dans le message de news:
Bonjour, J'ai crée une macro evenementielle sous xl2000 mais elle ne s'éxecute pas. Normalement, elle devrait s'éxécutée avec le changement de la cellule D4... Le but étant d'obtenir dans la colC une liste déroulante associée à la valeur de D4(variable)
Je ne vois pas ou est le pb, est-ce quelqu'un peut m'eclairer ?
La macro en question: Private Sub Worksheet_Change(ByVal Target As Range)
Dim col As Long Dim row As Long Dim nbRow As Long Dim wk As Worksheet Dim Deb As Integer Dim Atelier As Integer
col = Target.Column row = Target.row
If Target.Address = "$D$4" And [$D$4] <> "" Then
Set wk = Target.Worksheet Atelier = Cells(1, 1).Value
If Application.WorksheetFunction.IsNumber(wk.Cells(1, 1)) Then Deb = 8 nbRow = Worksheets("Config").Cells(5, Atelier)
Salut SD,
With wk.Range("C" & row).Validation ......row renvoie 4
à voir si row ou Nbrow
Sinon en fenêtre exécution copie ceci ..place le curseur à la fin et presse
Enter
application.EnableEvents=True
Ceci à pour but de rendre actif les événements.
Youky
"SD" <stef.dubois@club-internet.fr> a écrit dans le message de news:
5c1ee215-17e3-4253-b44a-4a7bdf097d5a@x14g2000yqk.googlegroups.com...
Bonjour,
J'ai crée une macro evenementielle sous xl2000 mais elle ne s'éxecute
pas.
Normalement, elle devrait s'éxécutée avec le changement de la cellule
D4...
Le but étant d'obtenir dans la colC une liste déroulante associée à la
valeur de D4(variable)
Je ne vois pas ou est le pb, est-ce quelqu'un peut m'eclairer ?
La macro en question:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim col As Long
Dim row As Long
Dim nbRow As Long
Dim wk As Worksheet
Dim Deb As Integer
Dim Atelier As Integer
col = Target.Column
row = Target.row
If Target.Address = "$D$4" And [$D$4] <> "" Then
Set wk = Target.Worksheet
Atelier = Cells(1, 1).Value
If Application.WorksheetFunction.IsNumber(wk.Cells(1, 1)) Then
Deb = 8
nbRow = Worksheets("Config").Cells(5, Atelier)
Salut SD, With wk.Range("C" & row).Validation ......row renvoie 4 à voir si row ou Nbrow Sinon en fenêtre exécution copie ceci ..place le curseur à la fin et presse Enter application.EnableEvents=True Ceci à pour but de rendre actif les événements. Youky
"SD" a écrit dans le message de news:
Bonjour, J'ai crée une macro evenementielle sous xl2000 mais elle ne s'éxecute pas. Normalement, elle devrait s'éxécutée avec le changement de la cellule D4... Le but étant d'obtenir dans la colC une liste déroulante associée à la valeur de D4(variable)
Je ne vois pas ou est le pb, est-ce quelqu'un peut m'eclairer ?
La macro en question: Private Sub Worksheet_Change(ByVal Target As Range)
Dim col As Long Dim row As Long Dim nbRow As Long Dim wk As Worksheet Dim Deb As Integer Dim Atelier As Integer
col = Target.Column row = Target.row
If Target.Address = "$D$4" And [$D$4] <> "" Then
Set wk = Target.Worksheet Atelier = Cells(1, 1).Value
If Application.WorksheetFunction.IsNumber(wk.Cells(1, 1)) Then Deb = 8 nbRow = Worksheets("Config").Cells(5, Atelier)