J'utilise un code pour limiter les donn=E9es dans une liste de validation d=
e donn=E9es.
A l'origine, les tableaux de donn=E9es =E9taient sur la m=EAme feuille. Pou=
r une raison d'organisation, je suis contraint de les mettre sur une autre =
feuille (feuille de "Donnees"). Depuis j'ai un plantage (erreur 1004) sur l=
a ligne suivante:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'**********************************************'
'* GERE LES LISTES DE VALIDATION DES HORAIRES *'
'**********************************************'
Dim F As Worksheet
Set F =3D Sheets("Donnees")
Dim rg As Variant, c As Variant, X As Long, P As Variant, Adr As Variant
Set rg =3D Intersect(Union(Range("L7:L107"), Range("O7:O107"), Range("R7:R1=
07")), Target)
If Not rg Is Nothing Then
For Each c In rg
With c
If .Offset(, -1) <> "" Then
If .Offset(, -1).Value2 <=3D 0.5 Then
X =3D Application.Match(.Offset(, -1), F.Range("D_AM"),=
0)
Set P =3D F.Range("F_AM")
Adr =3D "=3D" & P.Range(Cells(X, 1), Cells(P.Rows.Count=
, 1)).Address
ElseIf .Offset(, -1).Value2 > 0.5 Then
X =3D Application.Match(.Offset(, -1), F.Range("D_PM"),=
0)
Set P =3D F.Range("F_PM")
Adr =3D "=3D" & P.Range(Cells(X, 1), Cells(P.Rows.Count=
, 1)).Address
Else
.Validation.Delete
Exit Sub
End If
ActiveSheet.Unprotect
With .Validation
.Delete
.Add Type:=3DxlValidateList, AlertStyle:=3DxlValidAlert=
Stop, _
Operator:=3DxlBetween, Formula1:=3DAdr
.IgnoreBlank =3D True
.InCellDropdown =3D True
.InputTitle =3D ""
.ErrorTitle =3D ""
.InputMessage =3D ""
.ErrorMessage =3D ""
.ShowInput =3D True
.ShowError =3D True
End With
ActiveSheet.Protect
End If
End With
Next
End If
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
Jacky
Bonjour,
Quelqu'un aurait une idée!
Une liste de validation ne peux pas faire référence à des données sur une autre feuille. Il faudra que tu nommes la plage et faire référence au nom que tu auras choisi.
-- Salutations JJ
"JP" a écrit dans le message de news:
Bonjour à tous,
J'utilise un code pour limiter les données dans une liste de validation de données. A l'origine, les tableaux de données étaient sur la même feuille. Pour une raison d'organisation, je suis contraint de les mettre sur une autre feuille (feuille de "Donnees"). Depuis j'ai un plantage (erreur 1004) sur la ligne suivante:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) '**********************************************' '* GERE LES LISTES DE VALIDATION DES HORAIRES *' '**********************************************' Dim F As Worksheet Set F = Sheets("Donnees")
Dim rg As Variant, c As Variant, X As Long, P As Variant, Adr As Variant Set rg = Intersect(Union(Range("L7:L107"), Range("O7:O107"), Range("R7:R107")), Target)
If Not rg Is Nothing Then For Each c In rg With c If .Offset(, -1) <> "" Then If .Offset(, -1).Value2 <= 0.5 Then X = Application.Match(.Offset(, -1), F.Range("D_AM"), 0) Set P = F.Range("F_AM") Adr = "=" & P.Range(Cells(X, 1), Cells(P.Rows.Count, 1)).Address ElseIf .Offset(, -1).Value2 > 0.5 Then X = Application.Match(.Offset(, -1), F.Range("D_PM"), 0) Set P = F.Range("F_PM") Adr = "=" & P.Range(Cells(X, 1), Cells(P.Rows.Count, 1)).Address Else .Validation.Delete Exit Sub End If ActiveSheet.Unprotect With .Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, Formula1:r .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With ActiveSheet.Protect End If End With Next End If
End Sub
Bonjour,
Quelqu'un aurait une idée!
Une liste de validation ne peux pas faire référence à des données sur une autre feuille.
Il faudra que tu nommes la plage et faire référence au nom que tu auras choisi.
--
Salutations
JJ
"JP" <jthillard@gmail.com> a écrit dans le message de news:
d6ebcc05-acba-4808-97c2-a9f90e5ad647@googlegroups.com...
Bonjour à tous,
J'utilise un code pour limiter les données dans une liste de validation de données.
A l'origine, les tableaux de données étaient sur la même feuille. Pour une raison d'organisation, je suis
contraint de les mettre sur une autre feuille (feuille de "Donnees"). Depuis j'ai un plantage (erreur 1004)
sur la ligne suivante:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'**********************************************'
'* GERE LES LISTES DE VALIDATION DES HORAIRES *'
'**********************************************'
Dim F As Worksheet
Set F = Sheets("Donnees")
Dim rg As Variant, c As Variant, X As Long, P As Variant, Adr As Variant
Set rg = Intersect(Union(Range("L7:L107"), Range("O7:O107"), Range("R7:R107")), Target)
If Not rg Is Nothing Then
For Each c In rg
With c
If .Offset(, -1) <> "" Then
If .Offset(, -1).Value2 <= 0.5 Then
X = Application.Match(.Offset(, -1), F.Range("D_AM"), 0)
Set P = F.Range("F_AM")
Adr = "=" & P.Range(Cells(X, 1), Cells(P.Rows.Count, 1)).Address
ElseIf .Offset(, -1).Value2 > 0.5 Then
X = Application.Match(.Offset(, -1), F.Range("D_PM"), 0)
Set P = F.Range("F_PM")
Adr = "=" & P.Range(Cells(X, 1), Cells(P.Rows.Count, 1)).Address
Else
.Validation.Delete
Exit Sub
End If
ActiveSheet.Unprotect
With .Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:r
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
ActiveSheet.Protect
End If
End With
Next
End If
Une liste de validation ne peux pas faire référence à des données sur une autre feuille. Il faudra que tu nommes la plage et faire référence au nom que tu auras choisi.
-- Salutations JJ
"JP" a écrit dans le message de news:
Bonjour à tous,
J'utilise un code pour limiter les données dans une liste de validation de données. A l'origine, les tableaux de données étaient sur la même feuille. Pour une raison d'organisation, je suis contraint de les mettre sur une autre feuille (feuille de "Donnees"). Depuis j'ai un plantage (erreur 1004) sur la ligne suivante:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) '**********************************************' '* GERE LES LISTES DE VALIDATION DES HORAIRES *' '**********************************************' Dim F As Worksheet Set F = Sheets("Donnees")
Dim rg As Variant, c As Variant, X As Long, P As Variant, Adr As Variant Set rg = Intersect(Union(Range("L7:L107"), Range("O7:O107"), Range("R7:R107")), Target)
If Not rg Is Nothing Then For Each c In rg With c If .Offset(, -1) <> "" Then If .Offset(, -1).Value2 <= 0.5 Then X = Application.Match(.Offset(, -1), F.Range("D_AM"), 0) Set P = F.Range("F_AM") Adr = "=" & P.Range(Cells(X, 1), Cells(P.Rows.Count, 1)).Address ElseIf .Offset(, -1).Value2 > 0.5 Then X = Application.Match(.Offset(, -1), F.Range("D_PM"), 0) Set P = F.Range("F_PM") Adr = "=" & P.Range(Cells(X, 1), Cells(P.Rows.Count, 1)).Address Else .Validation.Delete Exit Sub End If ActiveSheet.Unprotect With .Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, Formula1:r .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With ActiveSheet.Protect End If End With Next End If
End Sub
JP
Bonjour Jacky,
C'est ce que j'ai fait me semble t-il.
D_AM; D_PM; F_AM et F_PM sont les plages où se trouvent les données. Ce sont des plages qui contiennent des horaires. Exemple D_AM 08:30 jusqu'à 12:00.
Je les ai mises dans une autre feuille, en l'occurrence, la feuille nommé e donnée.
C'est ce que tu me conseilles, ai-je bien compris?
JP
Bonjour Jacky,
C'est ce que j'ai fait me semble t-il.
D_AM; D_PM; F_AM et F_PM sont les plages où se trouvent les données. Ce sont des plages qui contiennent des horaires. Exemple D_AM 08:30 jusqu'à 12:00.
Je les ai mises dans une autre feuille, en l'occurrence, la feuille nommé e donnée.
C'est ce que tu me conseilles, ai-je bien compris?
D_AM; D_PM; F_AM et F_PM sont les plages où se trouvent les données. Ce sont des plages qui contiennent des horaires. Exemple D_AM 08:30 jusqu'à 12:00.
Je les ai mises dans une autre feuille, en l'occurrence, la feuille nommé e donnée.
C'est ce que tu me conseilles, ai-je bien compris?
JP
Jacky
RE.. Pas vu ton code Cela pourait ressembler à ceci (Non tester) '--------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) '**********************************************' '* GERE LES LISTES DE VALIDATION DES HORAIRES *' '**********************************************' Dim F As Worksheet Set F = Sheets("Donnees")
Dim rg As Variant, c As Variant, X As Long, P As Variant, Adr As Variant Set rg = Intersect(Union(Range("L7:L107"), Range("O7:O107"), Range("R7:R107")), Target)
If Not rg Is Nothing Then For Each c In rg With c If .Offset(, -1) <> "" Then If .Offset(, -1).Value2 <= 0.5 Then X = Application.Match(.Offset(, -1), F.Range("D_AM"), 0) Set P = F.Range("F_AM") Adr = "=" & P.Range(Cells(X, 1), Cells(P.Rows.Count, 1)).Address ElseIf .Offset(, -1).Value2 > 0.5 Then X = Application.Match(.Offset(, -1), F.Range("D_PM"), 0) Set P = F.Range("F_PM") 'Adr = "=" & P.Range(Cells(X, 1), Cells(P.Rows.Count, 1)).Address ActiveWorkbook.Names.Add Name:="Adr", RefersTo:="=" & P.Range(Cells(X, 1), Cells(P.Rows.Count, 1)).Address Else .Validation.Delete Exit Sub End If ActiveSheet.Unprotect With .Validation .Delete .Add Type:=xlValidateList, Formula1:="r" End With ActiveSheet.Protect End If End With Next End If '-----------------------
-- Salutations JJ
"Jacky" a écrit dans le message de news: leaf2k$cdp$
Bonjour,
Quelqu'un aurait une idée!
Une liste de validation ne peux pas faire référence à des données sur une autre feuille. Il faudra que tu nommes la plage et faire référence au nom que tu auras choisi.
-- Salutations JJ
"JP" a écrit dans le message de news:
Bonjour à tous,
J'utilise un code pour limiter les données dans une liste de validation de données. A l'origine, les tableaux de données étaient sur la même feuille. Pour une raison d'organisation, je suis contraint de les mettre sur une autre feuille (feuille de "Donnees"). Depuis j'ai un plantage (erreur 1004) sur la ligne suivante:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) '**********************************************' '* GERE LES LISTES DE VALIDATION DES HORAIRES *' '**********************************************' Dim F As Worksheet Set F = Sheets("Donnees")
Dim rg As Variant, c As Variant, X As Long, P As Variant, Adr As Variant Set rg = Intersect(Union(Range("L7:L107"), Range("O7:O107"), Range("R7:R107")), Target)
If Not rg Is Nothing Then For Each c In rg With c If .Offset(, -1) <> "" Then If .Offset(, -1).Value2 <= 0.5 Then X = Application.Match(.Offset(, -1), F.Range("D_AM"), 0) Set P = F.Range("F_AM") Adr = "=" & P.Range(Cells(X, 1), Cells(P.Rows.Count, 1)).Address ElseIf .Offset(, -1).Value2 > 0.5 Then X = Application.Match(.Offset(, -1), F.Range("D_PM"), 0) Set P = F.Range("F_PM") Adr = "=" & P.Range(Cells(X, 1), Cells(P.Rows.Count, 1)).Address Else .Validation.Delete Exit Sub End If ActiveSheet.Unprotect With .Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, Formula1:r .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With ActiveSheet.Protect End If End With Next End If
End Sub
RE..
Pas vu ton code
Cela pourait ressembler à ceci (Non tester)
'---------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'**********************************************'
'* GERE LES LISTES DE VALIDATION DES HORAIRES *'
'**********************************************'
Dim F As Worksheet
Set F = Sheets("Donnees")
Dim rg As Variant, c As Variant, X As Long, P As Variant, Adr As Variant
Set rg = Intersect(Union(Range("L7:L107"), Range("O7:O107"), Range("R7:R107")), Target)
If Not rg Is Nothing Then
For Each c In rg
With c
If .Offset(, -1) <> "" Then
If .Offset(, -1).Value2 <= 0.5 Then
X = Application.Match(.Offset(, -1), F.Range("D_AM"), 0)
Set P = F.Range("F_AM")
Adr = "=" & P.Range(Cells(X, 1), Cells(P.Rows.Count, 1)).Address
ElseIf .Offset(, -1).Value2 > 0.5 Then
X = Application.Match(.Offset(, -1), F.Range("D_PM"), 0)
Set P = F.Range("F_PM")
'Adr = "=" & P.Range(Cells(X, 1), Cells(P.Rows.Count, 1)).Address
ActiveWorkbook.Names.Add Name:="Adr", RefersTo:="=" & P.Range(Cells(X, 1),
Cells(P.Rows.Count, 1)).Address
Else
.Validation.Delete
Exit Sub
End If
ActiveSheet.Unprotect
With .Validation
.Delete
.Add Type:=xlValidateList, Formula1:="r"
End With
ActiveSheet.Protect
End If
End With
Next
End If
'-----------------------
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: leaf2k$cdp$1@speranza.aioe.org...
Bonjour,
Quelqu'un aurait une idée!
Une liste de validation ne peux pas faire référence à des données sur une autre feuille.
Il faudra que tu nommes la plage et faire référence au nom que tu auras choisi.
--
Salutations
JJ
"JP" <jthillard@gmail.com> a écrit dans le message de news:
d6ebcc05-acba-4808-97c2-a9f90e5ad647@googlegroups.com...
Bonjour à tous,
J'utilise un code pour limiter les données dans une liste de validation de données.
A l'origine, les tableaux de données étaient sur la même feuille. Pour une raison d'organisation, je suis
contraint de les mettre sur une autre feuille (feuille de "Donnees"). Depuis j'ai un plantage (erreur 1004)
sur la ligne suivante:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'**********************************************'
'* GERE LES LISTES DE VALIDATION DES HORAIRES *'
'**********************************************'
Dim F As Worksheet
Set F = Sheets("Donnees")
Dim rg As Variant, c As Variant, X As Long, P As Variant, Adr As Variant
Set rg = Intersect(Union(Range("L7:L107"), Range("O7:O107"), Range("R7:R107")), Target)
If Not rg Is Nothing Then
For Each c In rg
With c
If .Offset(, -1) <> "" Then
If .Offset(, -1).Value2 <= 0.5 Then
X = Application.Match(.Offset(, -1), F.Range("D_AM"), 0)
Set P = F.Range("F_AM")
Adr = "=" & P.Range(Cells(X, 1), Cells(P.Rows.Count, 1)).Address
ElseIf .Offset(, -1).Value2 > 0.5 Then
X = Application.Match(.Offset(, -1), F.Range("D_PM"), 0)
Set P = F.Range("F_PM")
Adr = "=" & P.Range(Cells(X, 1), Cells(P.Rows.Count, 1)).Address
Else
.Validation.Delete
Exit Sub
End If
ActiveSheet.Unprotect
With .Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:r
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
ActiveSheet.Protect
End If
End With
Next
End If
RE.. Pas vu ton code Cela pourait ressembler à ceci (Non tester) '--------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) '**********************************************' '* GERE LES LISTES DE VALIDATION DES HORAIRES *' '**********************************************' Dim F As Worksheet Set F = Sheets("Donnees")
Dim rg As Variant, c As Variant, X As Long, P As Variant, Adr As Variant Set rg = Intersect(Union(Range("L7:L107"), Range("O7:O107"), Range("R7:R107")), Target)
If Not rg Is Nothing Then For Each c In rg With c If .Offset(, -1) <> "" Then If .Offset(, -1).Value2 <= 0.5 Then X = Application.Match(.Offset(, -1), F.Range("D_AM"), 0) Set P = F.Range("F_AM") Adr = "=" & P.Range(Cells(X, 1), Cells(P.Rows.Count, 1)).Address ElseIf .Offset(, -1).Value2 > 0.5 Then X = Application.Match(.Offset(, -1), F.Range("D_PM"), 0) Set P = F.Range("F_PM") 'Adr = "=" & P.Range(Cells(X, 1), Cells(P.Rows.Count, 1)).Address ActiveWorkbook.Names.Add Name:="Adr", RefersTo:="=" & P.Range(Cells(X, 1), Cells(P.Rows.Count, 1)).Address Else .Validation.Delete Exit Sub End If ActiveSheet.Unprotect With .Validation .Delete .Add Type:=xlValidateList, Formula1:="r" End With ActiveSheet.Protect End If End With Next End If '-----------------------
-- Salutations JJ
"Jacky" a écrit dans le message de news: leaf2k$cdp$
Bonjour,
Quelqu'un aurait une idée!
Une liste de validation ne peux pas faire référence à des données sur une autre feuille. Il faudra que tu nommes la plage et faire référence au nom que tu auras choisi.
-- Salutations JJ
"JP" a écrit dans le message de news:
Bonjour à tous,
J'utilise un code pour limiter les données dans une liste de validation de données. A l'origine, les tableaux de données étaient sur la même feuille. Pour une raison d'organisation, je suis contraint de les mettre sur une autre feuille (feuille de "Donnees"). Depuis j'ai un plantage (erreur 1004) sur la ligne suivante:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) '**********************************************' '* GERE LES LISTES DE VALIDATION DES HORAIRES *' '**********************************************' Dim F As Worksheet Set F = Sheets("Donnees")
Dim rg As Variant, c As Variant, X As Long, P As Variant, Adr As Variant Set rg = Intersect(Union(Range("L7:L107"), Range("O7:O107"), Range("R7:R107")), Target)
If Not rg Is Nothing Then For Each c In rg With c If .Offset(, -1) <> "" Then If .Offset(, -1).Value2 <= 0.5 Then X = Application.Match(.Offset(, -1), F.Range("D_AM"), 0) Set P = F.Range("F_AM") Adr = "=" & P.Range(Cells(X, 1), Cells(P.Rows.Count, 1)).Address ElseIf .Offset(, -1).Value2 > 0.5 Then X = Application.Match(.Offset(, -1), F.Range("D_PM"), 0) Set P = F.Range("F_PM") Adr = "=" & P.Range(Cells(X, 1), Cells(P.Rows.Count, 1)).Address Else .Validation.Delete Exit Sub End If ActiveSheet.Unprotect With .Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, Formula1:r .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With ActiveSheet.Protect End If End With Next End If
End Sub
JP
Non, c'est la même chose. Le message d'erreur est: Erreur 1004 définie par l'application ou l'objet .
JP
Non, c'est la même chose.
Le message d'erreur est: Erreur 1004 définie par l'application ou l'objet .
Non, c'est la même chose. Le message d'erreur est: Erreur 1004 définie par l'application ou l'objet .
JP
Jacky
Re.. Si tu le souhaites fait un classeur avec les données concernées et envoi...
-- Salutations JJ
"JP" a écrit dans le message de news:
Non, c'est la même chose. Le message d'erreur est: Erreur 1004 définie par l'application ou l'objet.
JP
Re..
Si tu le souhaites fait un classeur avec les données concernées et envoi...
--
Salutations
JJ
"JP" <jthillard@gmail.com> a écrit dans le message de news:
d8f1c62f-3c5e-4ee2-804f-af3b2cdfd9c2@googlegroups.com...
Non, c'est la même chose.
Le message d'erreur est: Erreur 1004 définie par l'application ou l'objet.
Le problème est dans l'onglet planning lorsque tu veux selectionner une donnée heure dans une des cellules des colonnes L, O ou R.
J'ai remis la macro comme à l'origine quand les tableaux de données étaient dans le même onglet.
JP
Tester comme ceci
http://cjoint.com/?DBxmIW94Fg5
--
Salutations
JJ
"JP" <jthillard@gmail.com> a écrit dans le message de news:
9b710f1d-47ef-428e-9e89-7ce679f395e7@googlegroups.com...
J'ai fait le menage pour l'alléger au maximum.
http://cjoint.com/?3BwsNLRYC9T
Le problème est dans l'onglet planning lorsque tu veux selectionner une donnée heure dans une des cellules des
colonnes L, O ou R.
J'ai remis la macro comme à l'origine quand les tableaux de données étaient dans le même onglet.
Je viens de l'intégrer au projet et bonne nouvelle c'est bon. Puis-je te demander la différence qu'il y a entre:
Set P = Range("D_AM") et Set P = [F_AM]
Je me coucherai moins ignorant!
Merci
JP
Jacky
Re.. <Set P = [D_AM]> et l'abréviation de <Set P = Evaluate("D_AM")> Dans l'éditeur vba, un petit coup de F1 sur "Evaluate" donne pas mal d'explications. -- Salutations JJ
"JP" a écrit dans le message de news:
Bonjour Jacky,
Je viens de l'intégrer au projet et bonne nouvelle c'est bon. Puis-je te demander la différence qu'il y a entre:
Set P = Range("D_AM") et Set P = [F_AM]
Je me coucherai moins ignorant!
Merci
JP
Re..
<Set P = [D_AM]> et l'abréviation de <Set P = Evaluate("D_AM")>
Dans l'éditeur vba, un petit coup de F1 sur "Evaluate" donne pas mal d'explications.
--
Salutations
JJ
"JP" <jthillard@gmail.com> a écrit dans le message de news:
2d50cbfb-da52-473c-acb6-cc790e88600e@googlegroups.com...
Bonjour Jacky,
Je viens de l'intégrer au projet et bonne nouvelle c'est bon.
Puis-je te demander la différence qu'il y a entre:
Re.. <Set P = [D_AM]> et l'abréviation de <Set P = Evaluate("D_AM")> Dans l'éditeur vba, un petit coup de F1 sur "Evaluate" donne pas mal d'explications. -- Salutations JJ
"JP" a écrit dans le message de news:
Bonjour Jacky,
Je viens de l'intégrer au projet et bonne nouvelle c'est bon. Puis-je te demander la différence qu'il y a entre:
