Bonjour,
j'ai deux problèmes :
- la première fois que je passe sur cette instruction :
ActiveWorkbook.Names.Delete
Name:="Liste" & j
Vba plante puisque ce nom de liste n'existe pas. Comment faire pourqu 'il
ignore l'erreur. Voila le code complet :
With Sheets("Paramètres")
ActiveWorkbook.Names.Delete Name:="Liste" & j
ActiveWorkbook.Names.Add Name:="Liste" & j,
RefersTo:="=offset(choix2,1,match(Cells(" & j & ", " & k &
"),choix1,0)-1,counta(offset(choix2,,match(Cells(" & j & ", " & k &
"),choix1,0)-1))-1)"
End With
- Une fois ma liste crée je la valide par l'instruction :
With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=Liste" & j
End With
lorsque l'instruction Add se réalise VBA plante comment faire réf érence a
ma liste ?
Merci.
--
Ne pas répondre à l'adresse anti-spam.
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 08:36:38
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Bonjour,
j'ai deux problèmes :
- la première fois que je passe sur cette instruction :
ActiveWorkbook.Names.Delete
Name:="Liste" & j
Vba plante puisque ce nom de liste n'existe pas. Comment faire pourqu 'il
ignore l'erreur. Voila le code complet :
With Sheets("Paramètres")
ActiveWorkbook.Names.Delete Name:="Liste" & j
ActiveWorkbook.Names.Add Name:="Liste" & j,
RefersTo:="=offset(choix2,1,match(Cells(" & j & ", " & k &
"),choix1,0)-1,counta(offset(choix2,,match(Cells(" & j & ", " & k &
"),choix1,0)-1))-1)"
End With
- Une fois ma liste crée je la valide par l'instruction :
With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=Liste" & j
End With
lorsque l'instruction Add se réalise VBA plante comment faire réf érence a
ma liste ?
Merci.
--
Ne pas répondre à l'adresse anti-spam.
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 08:36:38
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Bonjour,
j'ai deux problèmes :
- la première fois que je passe sur cette instruction :
ActiveWorkbook.Names.Delete
Name:="Liste" & j
Vba plante puisque ce nom de liste n'existe pas. Comment faire pourqu 'il
ignore l'erreur. Voila le code complet :
With Sheets("Paramètres")
ActiveWorkbook.Names.Delete Name:="Liste" & j
ActiveWorkbook.Names.Add Name:="Liste" & j,
RefersTo:="=offset(choix2,1,match(Cells(" & j & ", " & k &
"),choix1,0)-1,counta(offset(choix2,,match(Cells(" & j & ", " & k &
"),choix1,0)-1))-1)"
End With
- Une fois ma liste crée je la valide par l'instruction :
With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=Liste" & j
End With
lorsque l'instruction Add se réalise VBA plante comment faire réf érence a
ma liste ?
Merci.
--
Ne pas répondre à l'adresse anti-spam.
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 08:36:38
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Bonjour,
j'ai deux problèmes :
- la première fois que je passe sur cette instruction :
ActiveWorkbook.Names.Delete
Name:="Liste" & j
Vba plante puisque ce nom de liste n'existe pas. Comment faire
pourqu'il
ignore l'erreur. Voila le code complet :
With Sheets("Paramètres")
ActiveWorkbook.Names.Delete Name:="Liste" & j
ActiveWorkbook.Names.Add Name:="Liste" & j,
RefersTo:="=offset(choix2,1,match(Cells(" & j & ", " & k &
"),choix1,0)-1,counta(offset(choix2,,match(Cells(" & j & ", " & k &
"),choix1,0)-1))-1)"
End With
- Une fois ma liste crée je la valide par l'instruction :
With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=Liste" & j
End With
lorsque l'instruction Add se réalise VBA plante comment faire référence
a
ma liste ?
Merci.
--
Ne pas répondre à l'adresse anti-spam.
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 08:36:38
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Bonjour,
j'ai deux problèmes :
- la première fois que je passe sur cette instruction :
ActiveWorkbook.Names.Delete
Name:="Liste" & j
Vba plante puisque ce nom de liste n'existe pas. Comment faire
pourqu'il
ignore l'erreur. Voila le code complet :
With Sheets("Paramètres")
ActiveWorkbook.Names.Delete Name:="Liste" & j
ActiveWorkbook.Names.Add Name:="Liste" & j,
RefersTo:="=offset(choix2,1,match(Cells(" & j & ", " & k &
"),choix1,0)-1,counta(offset(choix2,,match(Cells(" & j & ", " & k &
"),choix1,0)-1))-1)"
End With
- Une fois ma liste crée je la valide par l'instruction :
With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=Liste" & j
End With
lorsque l'instruction Add se réalise VBA plante comment faire référence
a
ma liste ?
Merci.
--
Ne pas répondre à l'adresse anti-spam.
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 08:36:38
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Bonjour,
j'ai deux problèmes :
- la première fois que je passe sur cette instruction :
ActiveWorkbook.Names.Delete
Name:="Liste" & j
Vba plante puisque ce nom de liste n'existe pas. Comment faire
pourqu'il
ignore l'erreur. Voila le code complet :
With Sheets("Paramètres")
ActiveWorkbook.Names.Delete Name:="Liste" & j
ActiveWorkbook.Names.Add Name:="Liste" & j,
RefersTo:="=offset(choix2,1,match(Cells(" & j & ", " & k &
"),choix1,0)-1,counta(offset(choix2,,match(Cells(" & j & ", " & k &
"),choix1,0)-1))-1)"
End With
- Une fois ma liste crée je la valide par l'instruction :
With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=Liste" & j
End With
lorsque l'instruction Add se réalise VBA plante comment faire référence
a
ma liste ?
Merci.
--
Ne pas répondre à l'adresse anti-spam.
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 08:36:38
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Merci c'est bon par contre je me retrouve avec des listes de cette forme :
ÞCALER(choix2;1;EQUIV(Cells(12;
3);choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(Cells(12; 3);choix1;0)-1))-1)
toutes les virgules sont des points virgules est ce que c'est pour cela q ue
mon add plante ?
"JB" a écrit dans le message de news:
Bonjour,
Ajouter :
On Error Resume Next ' avant instruction qui plante
........................
On Error Goto 0 ' après instruction qui plante
Il n'est pas nécessaire de supprimer le nom pour renommer
JB
On 1 juin, 08:36, "Thierry" wrote:Bonjour,
j'ai deux problèmes :
- la première fois que je passe sur cette instruction :
ActiveWorkbook.Names.Delete
Name:="Liste" & j
Vba plante puisque ce nom de liste n'existe pas. Comment faire
pourqu'il
ignore l'erreur. Voila le code complet :
With Sheets("Paramètres")
ActiveWorkbook.Names.Delete Name:="Liste" & j
ActiveWorkbook.Names.Add Name:="Liste" & j,
RefersTo:="=offset(choix2,1,match(Cells(" & j & ", " & k &
"),choix1,0)-1,counta(offset(choix2,,match(Cells(" & j & ", " & k &
"),choix1,0)-1))-1)"
End With
- Une fois ma liste crée je la valide par l'instruction :
With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=Liste" & j
End With
lorsque l'instruction Add se réalise VBA plante comment faire réf érence
a
ma liste ?
Merci.
--
Ne pas répondre à l'adresse anti-spam.
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 08:36:38
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 09:56:42
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 10:29:53
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- Mas quer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci c'est bon par contre je me retrouve avec des listes de cette forme :
=DECALER(choix2;1;EQUIV(Cells(12;
3);choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(Cells(12; 3);choix1;0)-1))-1)
toutes les virgules sont des points virgules est ce que c'est pour cela q ue
mon add plante ?
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1180680566.696940.21...@q75g2000hsh.googlegroups.com...
Bonjour,
Ajouter :
On Error Resume Next ' avant instruction qui plante
........................
On Error Goto 0 ' après instruction qui plante
Il n'est pas nécessaire de supprimer le nom pour renommer
JB
On 1 juin, 08:36, "Thierry" <r...@freesurf.fr> wrote:
Bonjour,
j'ai deux problèmes :
- la première fois que je passe sur cette instruction :
ActiveWorkbook.Names.Delete
Name:="Liste" & j
Vba plante puisque ce nom de liste n'existe pas. Comment faire
pourqu'il
ignore l'erreur. Voila le code complet :
With Sheets("Paramètres")
ActiveWorkbook.Names.Delete Name:="Liste" & j
ActiveWorkbook.Names.Add Name:="Liste" & j,
RefersTo:="=offset(choix2,1,match(Cells(" & j & ", " & k &
"),choix1,0)-1,counta(offset(choix2,,match(Cells(" & j & ", " & k &
"),choix1,0)-1))-1)"
End With
- Une fois ma liste crée je la valide par l'instruction :
With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=Liste" & j
End With
lorsque l'instruction Add se réalise VBA plante comment faire réf érence
a
ma liste ?
Merci.
--
Ne pas répondre à l'adresse anti-spam.
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 08:36:38
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 09:56:42
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 10:29:53
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- Mas quer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci c'est bon par contre je me retrouve avec des listes de cette forme :
ÞCALER(choix2;1;EQUIV(Cells(12;
3);choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(Cells(12; 3);choix1;0)-1))-1)
toutes les virgules sont des points virgules est ce que c'est pour cela q ue
mon add plante ?
"JB" a écrit dans le message de news:
Bonjour,
Ajouter :
On Error Resume Next ' avant instruction qui plante
........................
On Error Goto 0 ' après instruction qui plante
Il n'est pas nécessaire de supprimer le nom pour renommer
JB
On 1 juin, 08:36, "Thierry" wrote:Bonjour,
j'ai deux problèmes :
- la première fois que je passe sur cette instruction :
ActiveWorkbook.Names.Delete
Name:="Liste" & j
Vba plante puisque ce nom de liste n'existe pas. Comment faire
pourqu'il
ignore l'erreur. Voila le code complet :
With Sheets("Paramètres")
ActiveWorkbook.Names.Delete Name:="Liste" & j
ActiveWorkbook.Names.Add Name:="Liste" & j,
RefersTo:="=offset(choix2,1,match(Cells(" & j & ", " & k &
"),choix1,0)-1,counta(offset(choix2,,match(Cells(" & j & ", " & k &
"),choix1,0)-1))-1)"
End With
- Une fois ma liste crée je la valide par l'instruction :
With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=Liste" & j
End With
lorsque l'instruction Add se réalise VBA plante comment faire réf érence
a
ma liste ?
Merci.
--
Ne pas répondre à l'adresse anti-spam.
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 08:36:38
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 09:56:42
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 10:29:53
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- Mas quer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci c'est bon par contre je me retrouve avec des listes de cette forme :
ÞCALER(choix2;1;EQUIV(Cells(12;
3);choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(Cells(12; 3);choix1;0)-1))-1)
toutes les virgules sont des points virgules est ce que c'est pour cela
que
mon add plante ?
"JB" a écrit dans le message de news:
Bonjour,
Ajouter :
On Error Resume Next ' avant instruction qui plante
........................
On Error Goto 0 ' après instruction qui plante
Il n'est pas nécessaire de supprimer le nom pour renommer
JB
On 1 juin, 08:36, "Thierry" wrote:Bonjour,
j'ai deux problèmes :
- la première fois que je passe sur cette instruction :
ActiveWorkbook.Names.Delete
Name:="Liste" & j
Vba plante puisque ce nom de liste n'existe pas. Comment faire
pourqu'il
ignore l'erreur. Voila le code complet :
With Sheets("Paramètres")
ActiveWorkbook.Names.Delete Name:="Liste" & j
ActiveWorkbook.Names.Add Name:="Liste" & j,
RefersTo:="=offset(choix2,1,match(Cells(" & j & ", " & k &
"),choix1,0)-1,counta(offset(choix2,,match(Cells(" & j & ", " & k &
"),choix1,0)-1))-1)"
End With
- Une fois ma liste crée je la valide par l'instruction :
With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=Liste" & j
End With
lorsque l'instruction Add se réalise VBA plante comment faire
référence
a
ma liste ?
Merci.
--
Ne pas répondre à l'adresse anti-spam.
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 08:36:38
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 09:56:42
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 10:29:53
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci c'est bon par contre je me retrouve avec des listes de cette forme :
ÞCALER(choix2;1;EQUIV(Cells(12;
3);choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(Cells(12; 3);choix1;0)-1))-1)
toutes les virgules sont des points virgules est ce que c'est pour cela
que
mon add plante ?
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1180680566.696940.21...@q75g2000hsh.googlegroups.com...
Bonjour,
Ajouter :
On Error Resume Next ' avant instruction qui plante
........................
On Error Goto 0 ' après instruction qui plante
Il n'est pas nécessaire de supprimer le nom pour renommer
JB
On 1 juin, 08:36, "Thierry" <r...@freesurf.fr> wrote:
Bonjour,
j'ai deux problèmes :
- la première fois que je passe sur cette instruction :
ActiveWorkbook.Names.Delete
Name:="Liste" & j
Vba plante puisque ce nom de liste n'existe pas. Comment faire
pourqu'il
ignore l'erreur. Voila le code complet :
With Sheets("Paramètres")
ActiveWorkbook.Names.Delete Name:="Liste" & j
ActiveWorkbook.Names.Add Name:="Liste" & j,
RefersTo:="=offset(choix2,1,match(Cells(" & j & ", " & k &
"),choix1,0)-1,counta(offset(choix2,,match(Cells(" & j & ", " & k &
"),choix1,0)-1))-1)"
End With
- Une fois ma liste crée je la valide par l'instruction :
With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=Liste" & j
End With
lorsque l'instruction Add se réalise VBA plante comment faire
référence
a
ma liste ?
Merci.
--
Ne pas répondre à l'adresse anti-spam.
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 08:36:38
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 09:56:42
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 10:29:53
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci c'est bon par contre je me retrouve avec des listes de cette forme :
ÞCALER(choix2;1;EQUIV(Cells(12;
3);choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(Cells(12; 3);choix1;0)-1))-1)
toutes les virgules sont des points virgules est ce que c'est pour cela
que
mon add plante ?
"JB" a écrit dans le message de news:
Bonjour,
Ajouter :
On Error Resume Next ' avant instruction qui plante
........................
On Error Goto 0 ' après instruction qui plante
Il n'est pas nécessaire de supprimer le nom pour renommer
JB
On 1 juin, 08:36, "Thierry" wrote:Bonjour,
j'ai deux problèmes :
- la première fois que je passe sur cette instruction :
ActiveWorkbook.Names.Delete
Name:="Liste" & j
Vba plante puisque ce nom de liste n'existe pas. Comment faire
pourqu'il
ignore l'erreur. Voila le code complet :
With Sheets("Paramètres")
ActiveWorkbook.Names.Delete Name:="Liste" & j
ActiveWorkbook.Names.Add Name:="Liste" & j,
RefersTo:="=offset(choix2,1,match(Cells(" & j & ", " & k &
"),choix1,0)-1,counta(offset(choix2,,match(Cells(" & j & ", " & k &
"),choix1,0)-1))-1)"
End With
- Une fois ma liste crée je la valide par l'instruction :
With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=Liste" & j
End With
lorsque l'instruction Add se réalise VBA plante comment faire
référence
a
ma liste ?
Merci.
--
Ne pas répondre à l'adresse anti-spam.
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 08:36:38
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 09:56:42
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 10:29:53
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
le problème c'est que je n'ai pas que B2 comme cellule ??? il faut qu'e lle
soit puisse varier dynamiquement car dans b2,b3,b4 peuvent avoir des choix
dans la liste déroulantes differents
"JB" a écrit dans le message de news:
Bonjour,
Création de listes en cascade par VBA:
'-- nommage
ActiveWorkbook.Names.Add Name:="Choix1", RefersToR1C1:= _
"=OFFSET(Listes!R1C1,,,,COUNTA(Listes!R1C1:R1C26))"
ActiveWorkbook.Names.Add Name:="Choix2", RefersToR1C1:="=Listes!
C1"
'-- création listes
[B2].Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:="=Choix1"
End With
Range("B2") = Range("choix1")(1)
Range("C2").Select
x =
"=offset(Choix2,1,match(B2,Choix1,0)-1,counta(offset(Choix2,,match(B2,C hoix1,0)-1))-1)"
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:=x
End With
'--- copie listes
[B2].ClearContents
[B2:C2].Copy [B3:B10]
End Sub
http://boisgontierjacques.free.fr/fichiers/DonneesValidation/Creation...
JB
On 1 juin, 10:29, "Thierry" wrote:Merci c'est bon par contre je me retrouve avec des listes de cette form e :
ÞCALER(choix2;1;EQUIV(Cells(12;
3);choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(Cells(12; 3);choix1;0)-1))-1)
toutes les virgules sont des points virgules est ce que c'est pour cela
que
mon add plante ?
"JB" a écrit dans le message de news:
Bonjour,
Ajouter :
On Error Resume Next ' avant instruction qui plante
........................
On Error Goto 0 ' après instruction qui plante
Il n'est pas nécessaire de supprimer le nom pour renommer
JB
On 1 juin, 08:36, "Thierry" wrote:Bonjour,
j'ai deux problèmes :
- la première fois que je passe sur cette instruction :
ActiveWorkbook.Names.Delete
Name:="Liste" & j
Vba plante puisque ce nom de liste n'existe pas. Comment faire
pourqu'il
ignore l'erreur. Voila le code complet :
With Sheets("Paramètres")
ActiveWorkbook.Names.Delete Name:="Liste" & j
ActiveWorkbook.Names.Add Name:="Liste" & j,
RefersTo:="=offset(choix2,1,match(Cells(" & j & ", " & k &
"),choix1,0)-1,counta(offset(choix2,,match(Cells(" & j & ", " & k &
"),choix1,0)-1))-1)"
End With
- Une fois ma liste crée je la valide par l'instruction :
With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=Liste " & j
End With
lorsque l'instruction Add se réalise VBA plante comment faire
référence
a
ma liste ?
Merci.
--
Ne pas répondre à l'adresse anti-spam.
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 08:36:38
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 09:56:42
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 10:29:53
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-2, 01/06/2007
Analyse le : 01/06/2007 16:13:35
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-2, 01/06/2007
Analyse le : 01/06/2007 16:18:31
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- Mas quer le texte des messages précédents -
- Afficher le texte des messages précédents -
le problème c'est que je n'ai pas que B2 comme cellule ??? il faut qu'e lle
soit puisse varier dynamiquement car dans b2,b3,b4 peuvent avoir des choix
dans la liste déroulantes differents
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1180699427.347540.205...@o5g2000hsb.googlegroups.com...
Bonjour,
Création de listes en cascade par VBA:
'-- nommage
ActiveWorkbook.Names.Add Name:="Choix1", RefersToR1C1:= _
"=OFFSET(Listes!R1C1,,,,COUNTA(Listes!R1C1:R1C26))"
ActiveWorkbook.Names.Add Name:="Choix2", RefersToR1C1:="=Listes!
C1"
'-- création listes
[B2].Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:="=Choix1"
End With
Range("B2") = Range("choix1")(1)
Range("C2").Select
x =
"=offset(Choix2,1,match(B2,Choix1,0)-1,counta(offset(Choix2,,match(B2,C hoix1,0)-1))-1)"
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:=x
End With
'--- copie listes
[B2].ClearContents
[B2:C2].Copy [B3:B10]
End Sub
http://boisgontierjacques.free.fr/fichiers/DonneesValidation/Creation...
JB
On 1 juin, 10:29, "Thierry" <r...@freesurf.fr> wrote:
Merci c'est bon par contre je me retrouve avec des listes de cette form e :
=DECALER(choix2;1;EQUIV(Cells(12;
3);choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(Cells(12; 3);choix1;0)-1))-1)
toutes les virgules sont des points virgules est ce que c'est pour cela
que
mon add plante ?
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1180680566.696940.21...@q75g2000hsh.googlegroups.com...
Bonjour,
Ajouter :
On Error Resume Next ' avant instruction qui plante
........................
On Error Goto 0 ' après instruction qui plante
Il n'est pas nécessaire de supprimer le nom pour renommer
JB
On 1 juin, 08:36, "Thierry" <r...@freesurf.fr> wrote:
Bonjour,
j'ai deux problèmes :
- la première fois que je passe sur cette instruction :
ActiveWorkbook.Names.Delete
Name:="Liste" & j
Vba plante puisque ce nom de liste n'existe pas. Comment faire
pourqu'il
ignore l'erreur. Voila le code complet :
With Sheets("Paramètres")
ActiveWorkbook.Names.Delete Name:="Liste" & j
ActiveWorkbook.Names.Add Name:="Liste" & j,
RefersTo:="=offset(choix2,1,match(Cells(" & j & ", " & k &
"),choix1,0)-1,counta(offset(choix2,,match(Cells(" & j & ", " & k &
"),choix1,0)-1))-1)"
End With
- Une fois ma liste crée je la valide par l'instruction :
With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=Liste " & j
End With
lorsque l'instruction Add se réalise VBA plante comment faire
référence
a
ma liste ?
Merci.
--
Ne pas répondre à l'adresse anti-spam.
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 08:36:38
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 09:56:42
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 10:29:53
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-2, 01/06/2007
Analyse le : 01/06/2007 16:13:35
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-2, 01/06/2007
Analyse le : 01/06/2007 16:18:31
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- Mas quer le texte des messages précédents -
- Afficher le texte des messages précédents -
le problème c'est que je n'ai pas que B2 comme cellule ??? il faut qu'e lle
soit puisse varier dynamiquement car dans b2,b3,b4 peuvent avoir des choix
dans la liste déroulantes differents
"JB" a écrit dans le message de news:
Bonjour,
Création de listes en cascade par VBA:
'-- nommage
ActiveWorkbook.Names.Add Name:="Choix1", RefersToR1C1:= _
"=OFFSET(Listes!R1C1,,,,COUNTA(Listes!R1C1:R1C26))"
ActiveWorkbook.Names.Add Name:="Choix2", RefersToR1C1:="=Listes!
C1"
'-- création listes
[B2].Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:="=Choix1"
End With
Range("B2") = Range("choix1")(1)
Range("C2").Select
x =
"=offset(Choix2,1,match(B2,Choix1,0)-1,counta(offset(Choix2,,match(B2,C hoix1,0)-1))-1)"
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:=x
End With
'--- copie listes
[B2].ClearContents
[B2:C2].Copy [B3:B10]
End Sub
http://boisgontierjacques.free.fr/fichiers/DonneesValidation/Creation...
JB
On 1 juin, 10:29, "Thierry" wrote:Merci c'est bon par contre je me retrouve avec des listes de cette form e :
ÞCALER(choix2;1;EQUIV(Cells(12;
3);choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(Cells(12; 3);choix1;0)-1))-1)
toutes les virgules sont des points virgules est ce que c'est pour cela
que
mon add plante ?
"JB" a écrit dans le message de news:
Bonjour,
Ajouter :
On Error Resume Next ' avant instruction qui plante
........................
On Error Goto 0 ' après instruction qui plante
Il n'est pas nécessaire de supprimer le nom pour renommer
JB
On 1 juin, 08:36, "Thierry" wrote:Bonjour,
j'ai deux problèmes :
- la première fois que je passe sur cette instruction :
ActiveWorkbook.Names.Delete
Name:="Liste" & j
Vba plante puisque ce nom de liste n'existe pas. Comment faire
pourqu'il
ignore l'erreur. Voila le code complet :
With Sheets("Paramètres")
ActiveWorkbook.Names.Delete Name:="Liste" & j
ActiveWorkbook.Names.Add Name:="Liste" & j,
RefersTo:="=offset(choix2,1,match(Cells(" & j & ", " & k &
"),choix1,0)-1,counta(offset(choix2,,match(Cells(" & j & ", " & k &
"),choix1,0)-1))-1)"
End With
- Une fois ma liste crée je la valide par l'instruction :
With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=Liste " & j
End With
lorsque l'instruction Add se réalise VBA plante comment faire
référence
a
ma liste ?
Merci.
--
Ne pas répondre à l'adresse anti-spam.
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 08:36:38
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 09:56:42
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 10:29:53
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-2, 01/06/2007
Analyse le : 01/06/2007 16:13:35
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-2, 01/06/2007
Analyse le : 01/06/2007 16:18:31
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- Mas quer le texte des messages précédents -
- Afficher le texte des messages précédents -
le problème c'est que je n'ai pas que B2 comme cellule ??? il faut qu'elle
soit puisse varier dynamiquement car dans b2,b3,b4 peuvent avoir des choix
dans la liste déroulantes differents
"JB" a écrit dans le message de news:
Bonjour,
Création de listes en cascade par VBA:
'-- nommage
ActiveWorkbook.Names.Add Name:="Choix1", RefersToR1C1:= _
"=OFFSET(Listes!R1C1,,,,COUNTA(Listes!R1C1:R1C26))"
ActiveWorkbook.Names.Add Name:="Choix2", RefersToR1C1:="=Listes!
C1"
'-- création listes
[B2].Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:="=Choix1"
End With
Range("B2") = Range("choix1")(1)
Range("C2").Select
x > "=offset(Choix2,1,match(B2,Choix1,0)-1,counta(offset(Choix2,,match(B2,Choix1,0)-1))-1)"
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:=x
End With
'--- copie listes
[B2].ClearContents
[B2:C2].Copy [B3:B10]
End Sub
http://boisgontierjacques.free.fr/fichiers/DonneesValidation/Creation...
JB
On 1 juin, 10:29, "Thierry" wrote:Merci c'est bon par contre je me retrouve avec des listes de cette forme
:
ÞCALER(choix2;1;EQUIV(Cells(12;
3);choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(Cells(12; 3);choix1;0)-1))-1)
toutes les virgules sont des points virgules est ce que c'est pour cela
que
mon add plante ?
"JB" a écrit dans le message de news:
Bonjour,
Ajouter :
On Error Resume Next ' avant instruction qui plante
........................
On Error Goto 0 ' après instruction qui plante
Il n'est pas nécessaire de supprimer le nom pour renommer
JB
On 1 juin, 08:36, "Thierry" wrote:Bonjour,
j'ai deux problèmes :
- la première fois que je passe sur cette instruction :
ActiveWorkbook.Names.Delete
Name:="Liste" & j
Vba plante puisque ce nom de liste n'existe pas. Comment faire
pourqu'il
ignore l'erreur. Voila le code complet :
With Sheets("Paramètres")
ActiveWorkbook.Names.Delete Name:="Liste" & j
ActiveWorkbook.Names.Add Name:="Liste" & j,
RefersTo:="=offset(choix2,1,match(Cells(" & j & ", " & k &
"),choix1,0)-1,counta(offset(choix2,,match(Cells(" & j & ", " & k &
"),choix1,0)-1))-1)"
End With
- Une fois ma liste crée je la valide par l'instruction :
With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=Liste" & j
End With
lorsque l'instruction Add se réalise VBA plante comment faire
référence
a
ma liste ?
Merci.
--
Ne pas répondre à l'adresse anti-spam.
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 08:36:38
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 09:56:42
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 10:29:53
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-2, 01/06/2007
Analyse le : 01/06/2007 16:13:35
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-2, 01/06/2007
Analyse le : 01/06/2007 16:18:31
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
le problème c'est que je n'ai pas que B2 comme cellule ??? il faut qu'elle
soit puisse varier dynamiquement car dans b2,b3,b4 peuvent avoir des choix
dans la liste déroulantes differents
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1180699427.347540.205...@o5g2000hsb.googlegroups.com...
Bonjour,
Création de listes en cascade par VBA:
'-- nommage
ActiveWorkbook.Names.Add Name:="Choix1", RefersToR1C1:= _
"=OFFSET(Listes!R1C1,,,,COUNTA(Listes!R1C1:R1C26))"
ActiveWorkbook.Names.Add Name:="Choix2", RefersToR1C1:="=Listes!
C1"
'-- création listes
[B2].Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:="=Choix1"
End With
Range("B2") = Range("choix1")(1)
Range("C2").Select
x > "=offset(Choix2,1,match(B2,Choix1,0)-1,counta(offset(Choix2,,match(B2,Choix1,0)-1))-1)"
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:=x
End With
'--- copie listes
[B2].ClearContents
[B2:C2].Copy [B3:B10]
End Sub
http://boisgontierjacques.free.fr/fichiers/DonneesValidation/Creation...
JB
On 1 juin, 10:29, "Thierry" <r...@freesurf.fr> wrote:
Merci c'est bon par contre je me retrouve avec des listes de cette forme
:
ÞCALER(choix2;1;EQUIV(Cells(12;
3);choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(Cells(12; 3);choix1;0)-1))-1)
toutes les virgules sont des points virgules est ce que c'est pour cela
que
mon add plante ?
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1180680566.696940.21...@q75g2000hsh.googlegroups.com...
Bonjour,
Ajouter :
On Error Resume Next ' avant instruction qui plante
........................
On Error Goto 0 ' après instruction qui plante
Il n'est pas nécessaire de supprimer le nom pour renommer
JB
On 1 juin, 08:36, "Thierry" <r...@freesurf.fr> wrote:
Bonjour,
j'ai deux problèmes :
- la première fois que je passe sur cette instruction :
ActiveWorkbook.Names.Delete
Name:="Liste" & j
Vba plante puisque ce nom de liste n'existe pas. Comment faire
pourqu'il
ignore l'erreur. Voila le code complet :
With Sheets("Paramètres")
ActiveWorkbook.Names.Delete Name:="Liste" & j
ActiveWorkbook.Names.Add Name:="Liste" & j,
RefersTo:="=offset(choix2,1,match(Cells(" & j & ", " & k &
"),choix1,0)-1,counta(offset(choix2,,match(Cells(" & j & ", " & k &
"),choix1,0)-1))-1)"
End With
- Une fois ma liste crée je la valide par l'instruction :
With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=Liste" & j
End With
lorsque l'instruction Add se réalise VBA plante comment faire
référence
a
ma liste ?
Merci.
--
Ne pas répondre à l'adresse anti-spam.
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 08:36:38
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 09:56:42
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 10:29:53
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-2, 01/06/2007
Analyse le : 01/06/2007 16:13:35
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-2, 01/06/2007
Analyse le : 01/06/2007 16:18:31
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
le problème c'est que je n'ai pas que B2 comme cellule ??? il faut qu'elle
soit puisse varier dynamiquement car dans b2,b3,b4 peuvent avoir des choix
dans la liste déroulantes differents
"JB" a écrit dans le message de news:
Bonjour,
Création de listes en cascade par VBA:
'-- nommage
ActiveWorkbook.Names.Add Name:="Choix1", RefersToR1C1:= _
"=OFFSET(Listes!R1C1,,,,COUNTA(Listes!R1C1:R1C26))"
ActiveWorkbook.Names.Add Name:="Choix2", RefersToR1C1:="=Listes!
C1"
'-- création listes
[B2].Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:="=Choix1"
End With
Range("B2") = Range("choix1")(1)
Range("C2").Select
x > "=offset(Choix2,1,match(B2,Choix1,0)-1,counta(offset(Choix2,,match(B2,Choix1,0)-1))-1)"
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:=x
End With
'--- copie listes
[B2].ClearContents
[B2:C2].Copy [B3:B10]
End Sub
http://boisgontierjacques.free.fr/fichiers/DonneesValidation/Creation...
JB
On 1 juin, 10:29, "Thierry" wrote:Merci c'est bon par contre je me retrouve avec des listes de cette forme
:
ÞCALER(choix2;1;EQUIV(Cells(12;
3);choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(Cells(12; 3);choix1;0)-1))-1)
toutes les virgules sont des points virgules est ce que c'est pour cela
que
mon add plante ?
"JB" a écrit dans le message de news:
Bonjour,
Ajouter :
On Error Resume Next ' avant instruction qui plante
........................
On Error Goto 0 ' après instruction qui plante
Il n'est pas nécessaire de supprimer le nom pour renommer
JB
On 1 juin, 08:36, "Thierry" wrote:Bonjour,
j'ai deux problèmes :
- la première fois que je passe sur cette instruction :
ActiveWorkbook.Names.Delete
Name:="Liste" & j
Vba plante puisque ce nom de liste n'existe pas. Comment faire
pourqu'il
ignore l'erreur. Voila le code complet :
With Sheets("Paramètres")
ActiveWorkbook.Names.Delete Name:="Liste" & j
ActiveWorkbook.Names.Add Name:="Liste" & j,
RefersTo:="=offset(choix2,1,match(Cells(" & j & ", " & k &
"),choix1,0)-1,counta(offset(choix2,,match(Cells(" & j & ", " & k &
"),choix1,0)-1))-1)"
End With
- Une fois ma liste crée je la valide par l'instruction :
With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=Liste" & j
End With
lorsque l'instruction Add se réalise VBA plante comment faire
référence
a
ma liste ?
Merci.
--
Ne pas répondre à l'adresse anti-spam.
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 08:36:38
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 09:56:42
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-1, 31/05/2007
Analyse le : 01/06/2007 10:29:53
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-2, 01/06/2007
Analyse le : 01/06/2007 16:13:35
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-2, 01/06/2007
Analyse le : 01/06/2007 16:18:31
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -