j'ai une feuil1 qui a :
A partir de A5, une suite de date (comme un calendrier)
A partir de B la ligne 3, une suite de=20
nom "rep1", "rep2"...
J'ai une feuil2 qui a un listing de donn=E9es, la colonne A=20
contient un chiffre de 1 =E0 10 et la colonne B des dates
Dans la feuil1, j'aimerai mettre 1 dans l'intersection de=20
la colonne A et la ligne 3 selon les donn=E9es de la feuil2.
Cela fonctionnait jusqu'=E0 l'ajout du AND. J'ai fait comme=20
dans Access.
Voici mon code
For Each D In Worksheets("Feuil1").Range("cl")
For Each D2 In Worksheets("feuil1").Range("chc")
If Not IsError(Application.Match(D.Value, Range
("dt"), 0) And Application.Match(Left(D2.Value2, 1), Range
("cha"), 0)) Then
D.Offset(, 2) =3D 1
End If
Next
Next
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
cat
Oups j'ai oublié le merci beaucoup
-----Message d'origine----- Bonjour,
j'ai une feuil1 qui a : A partir de A5, une suite de date (comme un calendrier) A partir de B la ligne 3, une suite de nom "rep1", "rep2"...
J'ai une feuil2 qui a un listing de données, la colonne A contient un chiffre de 1 à 10 et la colonne B des dates
Dans la feuil1, j'aimerai mettre 1 dans l'intersection de la colonne A et la ligne 3 selon les données de la feuil2.
Cela fonctionnait jusqu'à l'ajout du AND. J'ai fait comme dans Access.
Voici mon code
For Each D In Worksheets("Feuil1").Range("cl") For Each D2 In Worksheets("feuil1").Range("chc") If Not IsError(Application.Match(D.Value, Range ("dt"), 0) And Application.Match(Left(D2.Value2, 1), Range ("cha"), 0)) Then D.Offset(, 2) = 1 End If Next Next
.
Oups j'ai oublié le merci beaucoup
-----Message d'origine-----
Bonjour,
j'ai une feuil1 qui a :
A partir de A5, une suite de date (comme un calendrier)
A partir de B la ligne 3, une suite de
nom "rep1", "rep2"...
J'ai une feuil2 qui a un listing de données, la colonne A
contient un chiffre de 1 à 10 et la colonne B des dates
Dans la feuil1, j'aimerai mettre 1 dans l'intersection de
la colonne A et la ligne 3 selon les données de la feuil2.
Cela fonctionnait jusqu'à l'ajout du AND. J'ai fait comme
dans Access.
Voici mon code
For Each D In Worksheets("Feuil1").Range("cl")
For Each D2 In Worksheets("feuil1").Range("chc")
If Not IsError(Application.Match(D.Value, Range
("dt"), 0) And Application.Match(Left(D2.Value2, 1), Range
("cha"), 0)) Then
D.Offset(, 2) = 1
End If
Next
Next
j'ai une feuil1 qui a : A partir de A5, une suite de date (comme un calendrier) A partir de B la ligne 3, une suite de nom "rep1", "rep2"...
J'ai une feuil2 qui a un listing de données, la colonne A contient un chiffre de 1 à 10 et la colonne B des dates
Dans la feuil1, j'aimerai mettre 1 dans l'intersection de la colonne A et la ligne 3 selon les données de la feuil2.
Cela fonctionnait jusqu'à l'ajout du AND. J'ai fait comme dans Access.
Voici mon code
For Each D In Worksheets("Feuil1").Range("cl") For Each D2 In Worksheets("feuil1").Range("chc") If Not IsError(Application.Match(D.Value, Range ("dt"), 0) And Application.Match(Left(D2.Value2, 1), Range ("cha"), 0)) Then D.Offset(, 2) = 1 End If Next Next
.
Daniel.M
Hello Cath,
For Each D In Worksheets("Feuil1").Range("cl") For Each D2 In Worksheets("feuil1").Range("chc") If Not IsError(Application.Match(D * 1, Range("dt"), 0)) Then If Not IsError(Application.Match(Left(D * 1, 1), _ Range("cha"), 0)) Then D.Offset(, 2) = 1 End If End If Next Next
Salutations,
Daniel M.
"Cath" wrote in message news:34b501c42932$5bda6700$ Bonjour,
j'ai une feuil1 qui a : A partir de A5, une suite de date (comme un calendrier) A partir de B la ligne 3, une suite de nom "rep1", "rep2"...
J'ai une feuil2 qui a un listing de données, la colonne A contient un chiffre de 1 à 10 et la colonne B des dates
Dans la feuil1, j'aimerai mettre 1 dans l'intersection de la colonne A et la ligne 3 selon les données de la feuil2.
Cela fonctionnait jusqu'à l'ajout du AND. J'ai fait comme dans Access.
Voici mon code
For Each D In Worksheets("Feuil1").Range("cl") For Each D2 In Worksheets("feuil1").Range("chc") If Not IsError(Application.Match(D.Value, Range ("dt"), 0) And Application.Match(Left(D2.Value2, 1), Range ("cha"), 0)) Then D.Offset(, 2) = 1 End If Next Next
Hello Cath,
For Each D In Worksheets("Feuil1").Range("cl")
For Each D2 In Worksheets("feuil1").Range("chc")
If Not IsError(Application.Match(D * 1, Range("dt"), 0)) Then
If Not IsError(Application.Match(Left(D * 1, 1), _
Range("cha"), 0)) Then
D.Offset(, 2) = 1
End If
End If
Next
Next
Salutations,
Daniel M.
"Cath" <anonymous@discussions.microsoft.com> wrote in message
news:34b501c42932$5bda6700$a301280a@phx.gbl...
Bonjour,
j'ai une feuil1 qui a :
A partir de A5, une suite de date (comme un calendrier)
A partir de B la ligne 3, une suite de
nom "rep1", "rep2"...
J'ai une feuil2 qui a un listing de données, la colonne A
contient un chiffre de 1 à 10 et la colonne B des dates
Dans la feuil1, j'aimerai mettre 1 dans l'intersection de
la colonne A et la ligne 3 selon les données de la feuil2.
Cela fonctionnait jusqu'à l'ajout du AND. J'ai fait comme
dans Access.
Voici mon code
For Each D In Worksheets("Feuil1").Range("cl")
For Each D2 In Worksheets("feuil1").Range("chc")
If Not IsError(Application.Match(D.Value, Range
("dt"), 0) And Application.Match(Left(D2.Value2, 1), Range
("cha"), 0)) Then
D.Offset(, 2) = 1
End If
Next
Next
For Each D In Worksheets("Feuil1").Range("cl") For Each D2 In Worksheets("feuil1").Range("chc") If Not IsError(Application.Match(D * 1, Range("dt"), 0)) Then If Not IsError(Application.Match(Left(D * 1, 1), _ Range("cha"), 0)) Then D.Offset(, 2) = 1 End If End If Next Next
Salutations,
Daniel M.
"Cath" wrote in message news:34b501c42932$5bda6700$ Bonjour,
j'ai une feuil1 qui a : A partir de A5, une suite de date (comme un calendrier) A partir de B la ligne 3, une suite de nom "rep1", "rep2"...
J'ai une feuil2 qui a un listing de données, la colonne A contient un chiffre de 1 à 10 et la colonne B des dates
Dans la feuil1, j'aimerai mettre 1 dans l'intersection de la colonne A et la ligne 3 selon les données de la feuil2.
Cela fonctionnait jusqu'à l'ajout du AND. J'ai fait comme dans Access.
Voici mon code
For Each D In Worksheets("Feuil1").Range("cl") For Each D2 In Worksheets("feuil1").Range("chc") If Not IsError(Application.Match(D.Value, Range ("dt"), 0) And Application.Match(Left(D2.Value2, 1), Range ("cha"), 0)) Then D.Offset(, 2) = 1 End If Next Next
