Liste des analyses faites

Bonsoir,

Sub tstt()
Dim c As Range, txt As String
txt = ""
For Each c In [d5:d31]

If IsEmpty(c) Then
If Not txt = "" Then txt = txt & "; "
txt = txt & c.Offset(0, -3)
End If

Next
[d3] = txt
End Sub




Jean-Paul V a formulé la demande :

Bonjour à tous

J’ai de A5 à A31 la liste des tests (ce sont des libellés) chimiques qui
doivent-être faits :
Al (inf)
Al (sup)
B
Bi
C
Ca
Cr
Ect…

1 ) de D5 à D31 j’ai le résultat des tests pour un échantillon comment
lister en D4 les tests qui n’ont pas été faits donc lorsque la zone est à
blanc.
Ainsi si D5 et D7 sont blancs, j’aimerais avoir en D4 Al (inf) ; B
2 ) si de B5 à B31 j’ai des valeur Min acceptables et de C5 à C31 les
valeurs Max acceptables.Peut-on en D3 lister les tests refusés.
3) si en D3 j’ai blanc j’afficherai ‘’OK’’

Bonne soirée
@+
Jean-Paul V

--
- -

Merci ça mache

Mais j'espérais une fonction car en colonnes E,F,G ect j'ai d'autres tests à
faire pour d'autres échantillons avec cette macro il va falloir que je la
modifie afin d'y ajouter la variable colonne donc affaire à creuser encore.
Je vais me coucher bonsoir et merci encore

Bonsoir,

Sub tstt()
Dim c As Range, txt As String
txt = ""
For Each c In [d5:d31]

If IsEmpty(c) Then
If Not txt = "" Then txt = txt & "; "
txt = txt & c.Offset(0, -3)
End If

Next
[d3] = txt
End Sub




Jean-Paul V a formulé la demande :

Bonjour à tous

J’ai de A5 à A31 la liste des tests (ce sont des libellés) chimiques qui
doivent-être faits :
Al (inf)
Al (sup)
B
Bi
C
Ca
Cr
Ect…

1 ) de D5 à D31 j’ai le résultat des tests pour un échantillon comment
lister en D4 les tests qui n’ont pas été faits donc lorsque la zone est à
blanc.
Ainsi si D5 et D7 sont blancs, j’aimerais avoir en D4 Al (inf) ; B
2 ) si de B5 à B31 j’ai des valeur Min acceptables et de C5 à C31 les
valeurs Max acceptables.Peut-on en D3 lister les tests refusés.
3) si en D3 j’ai blanc j’afficherai ‘’OK’’

Bonne soirée
@+
Jean-Paul V

--
- -

...en complément de cette macro, si tu veux
l'executer pour que d3 se modifie au fur et à mesure
de la saisie en d5:d31, à mettre dans le code de la feuille:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iSect As Range
Set iSect = Intersect(Target, [d5:d31])
If Not iSect Is Nothing Then Call tstt
End Sub


Cordialement.

lSteph



Jean-Paul V a émis l'idée suivante :

Bonjour à tous

J’ai de A5 à A31 la liste des tests (ce sont des libellés) chimiques qui
doivent-être faits :
Al (inf)
Al (sup)
B
Bi
C
Ca
Cr
Ect…

1 ) de D5 à D31 j’ai le résultat des tests pour un échantillon comment
lister en D4 les tests qui n’ont pas été faits donc lorsque la zone est à
blanc.
Ainsi si D5 et D7 sont blancs, j’aimerais avoir en D4 Al (inf) ; B
2 ) si de B5 à B31 j’ai des valeur Min acceptables et de C5 à C31 les
valeurs Max acceptables.Peut-on en D3 lister les tests refusés.
3) si en D3 j’ai blanc j’afficherai ‘’OK’’

Bonne soirée
@+
Jean-Paul V

--
- -

Une fonction, pourquoi pas?
En E,F,G le résultat est il toujours à exprimer selon la colonne A?


Le 05/11/2006, Jean-Paul V a supposé :

Merci ça mache

Mais j'espérais une fonction car en colonnes E,F,G ect j'ai d'autres tests à
faire pour d'autres échantillons avec cette macro il va falloir que je la
modifie afin d'y ajouter la variable colonne donc affaire à creuser encore.
Je vais me coucher bonsoir et merci encore

Bonsoir,

Sub tstt()
Dim c As Range, txt As String
txt = ""
For Each c In [d5:d31]

If IsEmpty(c) Then
If Not txt = "" Then txt = txt & "; "
txt = txt & c.Offset(0, -3)
End If

Next
[d3] = txt
End Sub




Jean-Paul V a formulé la demande :

Bonjour à tous

J’ai de A5 à A31 la liste des tests (ce sont des libellés) chimiques qui
doivent-être faits :
Al (inf)
Al (sup)
B
Bi
C
Ca
Cr
Ect…

1 ) de D5 à D31 j’ai le résultat des tests pour un échantillon comment
lister en D4 les tests qui n’ont pas été faits donc lorsque la zone est à
blanc.
Ainsi si D5 et D7 sont blancs, j’aimerais avoir en D4 Al (inf) ; B
2 ) si de B5 à B31 j’ai des valeur Min acceptables et de C5 à C31 les
valeurs Max acceptables.Peut-on en D3 lister les tests refusés.
3) si en D3 j’ai blanc j’afficherai ‘’OK’’

Bonne soirée
@+
Jean-Paul V

--
- -

--
- -

Re,

Supposons que ce soit toujours A prise en référence, il faudra pointer
la plage des tests exemple =tstt(d5:d31)
Voici donc:

Function tstt(maplage As Range) As String
Dim c As Range, myr As Byte
Application.Volatile
tstt = ""

For Each c In maplage

If IsEmpty(c) Then
If Not tstt = "" Then tstt = tstt & "; "
tstt = tstt & Cells(c.Row, 1)
End If

Next

End Function

'lSteph


Jean-Paul V a présenté l'énoncé suivant :

Merci ça mache

Mais j'espérais une fonction car en colonnes E,F,G ect j'ai d'autres tests à
faire pour d'autres échantillons avec cette macro il va falloir que je la
modifie afin d'y ajouter la variable colonne donc affaire à creuser encore.
Je vais me coucher bonsoir et merci encore

Bonsoir,

Sub tstt()
Dim c As Range, txt As String
txt = ""
For Each c In [d5:d31]

If IsEmpty(c) Then
If Not txt = "" Then txt = txt & "; "
txt = txt & c.Offset(0, -3)
End If

Next
[d3] = txt
End Sub




Jean-Paul V a formulé la demande :

Bonjour à tous

J’ai de A5 à A31 la liste des tests (ce sont des libellés) chimiques qui
doivent-être faits :
Al (inf)
Al (sup)
B
Bi
C
Ca
Cr
Ect…

1 ) de D5 à D31 j’ai le résultat des tests pour un échantillon comment
lister en D4 les tests qui n’ont pas été faits donc lorsque la zone est à
blanc.
Ainsi si D5 et D7 sont blancs, j’aimerais avoir en D4 Al (inf) ; B
2 ) si de B5 à B31 j’ai des valeur Min acceptables et de C5 à C31 les
valeurs Max acceptables.Peut-on en D3 lister les tests refusés.
3) si en D3 j’ai blanc j’afficherai ‘’OK’’

Bonne soirée
@+
Jean-Paul V

--
- -

--
- -

Merci ça marche,formidable !

Je ne comprends pas l'utilité de votre complément puisque la fonction se met
bien à jour si un test complémentaire est fait.
De plus si je mets le complément (Private Sub Worksheet_Change(ByVal Target
As Range) ) cela se plante car il veut un argument.

Reste maintenant mes questions 2 et 3 (analyse des résultats des tests Min
et Max),je vais étudier votre fonction de plus près pour ce faire,mais je
crains que mon niveau soit un peu insuffisant.

Bonne journée

Re,

Supposons que ce soit toujours A prise en référence, il faudra pointer
la plage des tests exemple =tstt(d5:d31)
Voici donc:

Function tstt(maplage As Range) As String
Dim c As Range, myr As Byte
Application.Volatile
tstt = ""

For Each c In maplage

If IsEmpty(c) Then
If Not tstt = "" Then tstt = tstt & "; "
tstt = tstt & Cells(c.Row, 1)
End If

Next

End Function

'lSteph


Jean-Paul V a présenté l'énoncé suivant :

Merci ça mache

Mais j'espérais une fonction car en colonnes E,F,G ect j'ai d'autres tests à
faire pour d'autres échantillons avec cette macro il va falloir que je la
modifie afin d'y ajouter la variable colonne donc affaire à creuser encore.
Je vais me coucher bonsoir et merci encore

Bonsoir,

Sub tstt()
Dim c As Range, txt As String
txt = ""
For Each c In [d5:d31]

If IsEmpty(c) Then
If Not txt = "" Then txt = txt & "; "
txt = txt & c.Offset(0, -3)
End If

Next
[d3] = txt
End Sub




Jean-Paul V a formulé la demande :

Bonjour à tous

J’ai de A5 à A31 la liste des tests (ce sont des libellés) chimiques qui
doivent-être faits :
Al (inf)
Al (sup)
B
Bi
C
Ca
Cr
Ect…

1 ) de D5 à D31 j’ai le résultat des tests pour un échantillon comment
lister en D4 les tests qui n’ont pas été faits donc lorsque la zone est à
blanc.
Ainsi si D5 et D7 sont blancs, j’aimerais avoir en D4 Al (inf) ; B
2 ) si de B5 à B31 j’ai des valeur Min acceptables et de C5 à C31 les
valeurs Max acceptables.Peut-on en D3 lister les tests refusés.
3) si en D3 j’ai blanc j’afficherai ‘’OK’’

Bonne soirée
@+
Jean-Paul V

--
- -

--
- -

Bonjour Jean-Paul V,

Puisqu'une fonction doit faire le job,
ce complément est à oublier.

Pour le reste Min et Max , je vais voir ce que j'ai zappé dans tes
posts.

Cordialement.

lSteph

Jean-Paul V a émis l'idée suivante :

Merci ça marche,formidable !

Je ne comprends pas l'utilité de votre complément puisque la fonction se met
bien à jour si un test complémentaire est fait.
De plus si je mets le complément (Private Sub Worksheet_Change(ByVal Target
As Range) ) cela se plante car il veut un argument.

Reste maintenant mes questions 2 et 3 (analyse des résultats des tests Min
et Max),je vais étudier votre fonction de plus près pour ce faire,mais je
crains que mon niveau soit un peu insuffisant.

Bonne journée

Re,

Supposons que ce soit toujours A prise en référence, il faudra pointer
la plage des tests exemple =tstt(d5:d31)
Voici donc:

Function tstt(maplage As Range) As String
Dim c As Range, myr As Byte
Application.Volatile
tstt = ""

For Each c In maplage

If IsEmpty(c) Then
If Not tstt = "" Then tstt = tstt & "; "
tstt = tstt & Cells(c.Row, 1)
End If

Next

End Function

'lSteph


Jean-Paul V a présenté l'énoncé suivant :

Merci ça mache

Mais j'espérais une fonction car en colonnes E,F,G ect j'ai d'autres tests
à faire pour d'autres échantillons avec cette macro il va falloir que je
la modifie afin d'y ajouter la variable colonne donc affaire à creuser
encore. Je vais me coucher bonsoir et merci encore

Bonsoir,

Sub tstt()
Dim c As Range, txt As String
txt = ""
For Each c In [d5:d31]

If IsEmpty(c) Then
If Not txt = "" Then txt = txt & "; "
txt = txt & c.Offset(0, -3)
End If

Next
[d3] = txt
End Sub




Jean-Paul V a formulé la demande :

Bonjour à tous

J’ai de A5 à A31 la liste des tests (ce sont des libellés) chimiques qui
doivent-être faits :
Al (inf)
Al (sup)
B
Bi
C
Ca
Cr
Ect…

1 ) de D5 à D31 j’ai le résultat des tests pour un échantillon comment
lister en D4 les tests qui n’ont pas été faits donc lorsque la zone est
à blanc.
Ainsi si D5 et D7 sont blancs, j’aimerais avoir en D4 Al (inf) ; B
2 ) si de B5 à B31 j’ai des valeur Min acceptables et de C5 à C31 les
valeurs Max acceptables.Peut-on en D3 lister les tests refusés.
3) si en D3 j’ai blanc j’afficherai ‘’OK’’

Bonne soirée
@+
Jean-Paul V

--
- -

--
- -

--
- -

Re, bonjour,
Vu!
A préciser toutefois la notion d'acceptabilité:

1-Comment jauge-t-on de l'acceptabilité de Min et Max?

a) Min doit être...?
b) Max....?
c) Min par rapport à Max...?

2-Dans la mesure ou D3,E3... accueillent déjà la vérification
qu'un test a été réalisé et sert à lister ceux restant à effectuer,

où prévoir et sous quelle forme le résultat de l'acceptabilité?

@+

lSteph

Merci ça marche,formidable !

Je ne comprends pas l'utilité de votre complément puisque la fonction se met
bien à jour si un test complémentaire est fait.
De plus si je mets le complément (Private Sub Worksheet_Change(ByVal Target
As Range) ) cela se plante car il veut un argument.

Reste maintenant mes questions 2 et 3 (analyse des résultats des tests Min
et Max),je vais étudier votre fonction de plus près pour ce faire,mais je
crains que mon niveau soit un peu insuffisant.

Bonne journée

Re,

Supposons que ce soit toujours A prise en référence, il faudra pointer
la plage des tests exemple =tstt(d5:d31)
Voici donc:

Function tstt(maplage As Range) As String
Dim c As Range, myr As Byte
Application.Volatile
tstt = ""

For Each c In maplage

If IsEmpty(c) Then
If Not tstt = "" Then tstt = tstt & "; "
tstt = tstt & Cells(c.Row, 1)
End If

Next

End Function

'lSteph


Jean-Paul V a présenté l'énoncé suivant :

Merci ça mache

Mais j'espérais une fonction car en colonnes E,F,G ect j'ai d'autres tests
à faire pour d'autres échantillons avec cette macro il va falloir que je
la modifie afin d'y ajouter la variable colonne donc affaire à creuser
encore. Je vais me coucher bonsoir et merci encore

Bonsoir,

Sub tstt()
Dim c As Range, txt As String
txt = ""
For Each c In [d5:d31]

If IsEmpty(c) Then
If Not txt = "" Then txt = txt & "; "
txt = txt & c.Offset(0, -3)
End If

Next
[d3] = txt
End Sub




Jean-Paul V a formulé la demande :

Bonjour à tous

J’ai de A5 à A31 la liste des tests (ce sont des libellés) chimiques qui
doivent-être faits :
Al (inf)
Al (sup)
B
Bi
C
Ca
Cr
Ect…

1 ) de D5 à D31 j’ai le résultat des tests pour un échantillon comment
lister en D4 les tests qui n’ont pas été faits donc lorsque la zone est
à blanc.
Ainsi si D5 et D7 sont blancs, j’aimerais avoir en D4 Al (inf) ; B
2 ) si de B5 à B31 j’ai des valeur Min acceptables et de C5 à C31 les
valeurs Max acceptables.Peut-on en D3 lister les tests refusés.
3) si en D3 j’ai blanc j’afficherai ‘’OK’’

Bonne soirée
@+
Jean-Paul V

--
- -

--
- -

--
- -

Bonjour ISteph

Je n'ai pas encore cherché.
En colonne B nous avons les valeurs minimum et en C les val max , je
souhaite que si en B5 j’ai 0.30 et en C5 0.60 avec D5 = 0.20 ou 0.80 je veux
que l’on affiche que le test Al(inf) est rejeté ...ect pour les autre cas.Il
faut que D2 affiche tous les tests faits rejetés.

@+ bonne journée

Re, bonjour,
Vu!
A préciser toutefois la notion d'acceptabilité:

1-Comment jauge-t-on de l'acceptabilité de Min et Max?

a) Min doit être...?
b) Max....?
c) Min par rapport à Max...?

2-Dans la mesure ou D3,E3... accueillent déjà la vérification
qu'un test a été réalisé et sert à lister ceux restant à effectuer,

où prévoir et sous quelle forme le résultat de l'acceptabilité?

@+

lSteph

Merci ça marche,formidable !

Je ne comprends pas l'utilité de votre complément puisque la fonction se met
bien à jour si un test complémentaire est fait.
De plus si je mets le complément (Private Sub Worksheet_Change(ByVal Target
As Range) ) cela se plante car il veut un argument.

Reste maintenant mes questions 2 et 3 (analyse des résultats des tests Min
et Max),je vais étudier votre fonction de plus près pour ce faire,mais je
crains que mon niveau soit un peu insuffisant.

Bonne journée

Re,

Supposons que ce soit toujours A prise en référence, il faudra pointer
la plage des tests exemple =tstt(d5:d31)
Voici donc:

Function tstt(maplage As Range) As String
Dim c As Range, myr As Byte
Application.Volatile
tstt = ""

For Each c In maplage

If IsEmpty(c) Then
If Not tstt = "" Then tstt = tstt & "; "
tstt = tstt & Cells(c.Row, 1)
End If

Next

End Function

'lSteph


Jean-Paul V a présenté l'énoncé suivant :

Merci ça mache

Mais j'espérais une fonction car en colonnes E,F,G ect j'ai d'autres tests
à faire pour d'autres échantillons avec cette macro il va falloir que je
la modifie afin d'y ajouter la variable colonne donc affaire à creuser
encore. Je vais me coucher bonsoir et merci encore

Bonsoir,

Sub tstt()
Dim c As Range, txt As String
txt = ""
For Each c In [d5:d31]

If IsEmpty(c) Then
If Not txt = "" Then txt = txt & "; "
txt = txt & c.Offset(0, -3)
End If

Next
[d3] = txt
End Sub




Jean-Paul V a formulé la demande :

Bonjour à tous

J’ai de A5 à A31 la liste des tests (ce sont des libellés) chimiques qui
doivent-être faits :
Al (inf)
Al (sup)
B
Bi
C
Ca
Cr
Ect…

1 ) de D5 à D31 j’ai le résultat des tests pour un échantillon comment
lister en D4 les tests qui n’ont pas été faits donc lorsque la zone est
à blanc.
Ainsi si D5 et D7 sont blancs, j’aimerais avoir en D4 Al (inf) ; B
2 ) si de B5 à B31 j’ai des valeur Min acceptables et de C5 à C31 les
valeurs Max acceptables.Peut-on en D3 lister les tests refusés.
3) si en D3 j’ai blanc j’afficherai ‘’OK’’

Bonne soirée
@+
Jean-Paul V

--
- -

--
- -

--
- -

Bonjour JPV,

As-tu bien enlevé la Private Sub selon avant dernier post?

Voici donc les deux fonctions ainsi revues...Bonne journée:

Function restants(maplage As Range) As String
Dim c As Range
Application.Volatile
restants = ""
For Each c In maplage
If IsEmpty(c) Then
If Not restants = "" Then restants = restants & "; "
restants = restants & Cells(c.Row, 1)
End If
Next
End Function

Function rejetés(maplage As Range) As String
Dim c As Range
Application.Volatile
rejetés = ""
For Each c In maplage
If Not IsEmpty(c) Then
If Cells(c.Row, 2) > c Or Cells(c.Row, 3) < c Then
If Not rejetés = "" Then rejetés = rejetés & "; "
rejetés = rejetés & Cells(c.Row, 1)
End If
End If
Next

'lSteph


Jean-Paul V avait prétendu :

Bonjour ISteph

Je n'ai pas encore cherché.
En colonne B nous avons les valeurs minimum et en C les val max , je
souhaite que si en B5 j’ai 0.30 et en C5 0.60 avec D5 = 0.20 ou 0.80 je veux
que l’on affiche que le test Al(inf) est rejeté ...ect pour les autre cas.Il
faut que D2 affiche tous les tests faits rejetés.

@+ bonne journée

Re, bonjour,
Vu!
A préciser toutefois la notion d'acceptabilité:

1-Comment jauge-t-on de l'acceptabilité de Min et Max?

a) Min doit être...?
b) Max....?
c) Min par rapport à Max...?

2-Dans la mesure ou D3,E3... accueillent déjà la vérification
qu'un test a été réalisé et sert à lister ceux restant à effectuer,

où prévoir et sous quelle forme le résultat de l'acceptabilité?

@+

lSteph

Merci ça marche,formidable !

Je ne comprends pas l'utilité de votre complément puisque la fonction se
met bien à jour si un test complémentaire est fait.
De plus si je mets le complément (Private Sub Worksheet_Change(ByVal Target
As Range) ) cela se plante car il veut un argument.

Reste maintenant mes questions 2 et 3 (analyse des résultats des tests Min
et Max),je vais étudier votre fonction de plus près pour ce faire,mais je
crains que mon niveau soit un peu insuffisant.

Bonne journée

Re,

Supposons que ce soit toujours A prise en référence, il faudra pointer
la plage des tests exemple =tstt(d5:d31)
Voici donc:

Function tstt(maplage As Range) As String
Dim c As Range, myr As Byte
Application.Volatile
tstt = ""

For Each c In maplage

If IsEmpty(c) Then
If Not tstt = "" Then tstt = tstt & "; "
tstt = tstt & Cells(c.Row, 1)
End If

Next

End Function

'lSteph


Jean-Paul V a présenté l'énoncé suivant :

Merci ça mache

Mais j'espérais une fonction car en colonnes E,F,G ect j'ai d'autres
tests à faire pour d'autres échantillons avec cette macro il va falloir
que je la modifie afin d'y ajouter la variable colonne donc affaire à
creuser encore. Je vais me coucher bonsoir et merci encore

Bonsoir,

Sub tstt()
Dim c As Range, txt As String
txt = ""
For Each c In [d5:d31]

If IsEmpty(c) Then
If Not txt = "" Then txt = txt & "; "
txt = txt & c.Offset(0, -3)
End If

Next
[d3] = txt
End Sub




Jean-Paul V a formulé la demande :

Bonjour à tous

J’ai de A5 à A31 la liste des tests (ce sont des libellés) chimiques
qui doivent-être faits :
Al (inf)
Al (sup)
B
Bi
C
Ca
Cr
Ect…

1 ) de D5 à D31 j’ai le résultat des tests pour un échantillon comment
lister en D4 les tests qui n’ont pas été faits donc lorsque la zone
est à blanc.
Ainsi si D5 et D7 sont blancs, j’aimerais avoir en D4 Al (inf) ; B
2 ) si de B5 à B31 j’ai des valeur Min acceptables et de C5 à C31 les
valeurs Max acceptables.Peut-on en D3 lister les tests refusés.
3) si en D3 j’ai blanc j’afficherai ‘’OK’’

Bonne soirée
@+
Jean-Paul V

--
- -

--
- -

--
- -

--
- -