Bonsoir
J'aimerais que:
Si la valeur de c est = 1 , qu'elle devienne =100 ET barbouiller le fond de
cel en rouge.
Je bute sur le AND.
Voici ce que j'ai:
--------------------
Sub Zaza ()
For each c in range("A1:H7")
If [c]=1 then c.value =100 ****C'est ici que j'aimerais ajouter : and
c.interior.colorIndex=3, mais ça va pô. Il me met 0 comme valeur à c.alors,
je contourne en ajoutant:
If [c]=100 then c.interior.colorIndex=3
Next
End sub
-------------
Un grand merci à toute explication qui arrivera.
Bonne soirée à tous et tousses.
--
Bien amicalmement,
Vivement conseillés:
- Un gros marteau
- Un verre de vin d'Alsace....et tout ira mieux.
Bonsoir. Enorme, la différence, avec end if, ça plante ! Désolé. Daniel "Jacquouille" a écrit dans le message de news: %23%
Bonsoir Daniel Tiens, tu mets une endive (end if prononcé à la Française) en fin de ligne? Y a-t-il une différence? Merci d'avoir pris la peine de me répondre.
-- Bien amicalmement, Vivement conseillés: - Un gros marteau - Un verre de vin d'Alsace....et tout ira mieux.
Jacquouille.
"Daniel" a écrit dans le message de news: e4%
Bonsoir. Sur une ligne : If [c] = 1 Then c.Value = 100: c.Interior.ColorIndex = 3: End If Cordialement. Daniel "Jacquouille" a écrit dans le message de news: ek8lJ$
Bonsoir J'aimerais que: Si la valeur de c est = 1 , qu'elle devienne 0 ET barbouiller le fond de cel en rouge. Je bute sur le AND. Voici ce que j'ai: -------------------- Sub Zaza () For each c in range("A1:H7") If [c]=1 then c.value 0 ****C'est ici que j'aimerais ajouter : and c.interior.colorIndex=3, mais ça va pô. Il me met 0 comme valeur à c.alors, je contourne en ajoutant: If [c]0 then c.interior.colorIndex=3 Next End sub ------------- Un grand merci à toute explication qui arrivera. Bonne soirée à tous et tousses. -- Bien amicalmement, Vivement conseillés: - Un gros marteau - Un verre de vin d'Alsace....et tout ira mieux.
Jacquouille.
Bonsoir.
Enorme, la différence, avec end if, ça plante !
Désolé.
Daniel
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: %23%236J7uLxHHA.3364@TK2MSFTNGP02.phx.gbl...
Bonsoir Daniel
Tiens, tu mets une endive (end if prononcé à la Française) en fin de
ligne?
Y a-t-il une différence?
Merci d'avoir pris la peine de me répondre.
--
Bien amicalmement,
Vivement conseillés:
- Un gros marteau
- Un verre de vin d'Alsace....et tout ira mieux.
Jacquouille.
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
e4%231cELxHHA.4640@TK2MSFTNGP03.phx.gbl...
Bonsoir.
Sur une ligne :
If [c] = 1 Then c.Value = 100: c.Interior.ColorIndex = 3: End If
Cordialement.
Daniel
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: ek8lJ$KxHHA.4088@TK2MSFTNGP04.phx.gbl...
Bonsoir
J'aimerais que:
Si la valeur de c est = 1 , qu'elle devienne 0 ET barbouiller le fond
de cel en rouge.
Je bute sur le AND.
Voici ce que j'ai:
--------------------
Sub Zaza ()
For each c in range("A1:H7")
If [c]=1 then c.value 0 ****C'est ici que j'aimerais ajouter : and
c.interior.colorIndex=3, mais ça va pô. Il me met 0 comme valeur à
c.alors, je contourne en ajoutant:
If [c]0 then c.interior.colorIndex=3
Next
End sub
-------------
Un grand merci à toute explication qui arrivera.
Bonne soirée à tous et tousses.
--
Bien amicalmement,
Vivement conseillés:
- Un gros marteau
- Un verre de vin d'Alsace....et tout ira mieux.
Bonsoir. Enorme, la différence, avec end if, ça plante ! Désolé. Daniel "Jacquouille" a écrit dans le message de news: %23%
Bonsoir Daniel Tiens, tu mets une endive (end if prononcé à la Française) en fin de ligne? Y a-t-il une différence? Merci d'avoir pris la peine de me répondre.
-- Bien amicalmement, Vivement conseillés: - Un gros marteau - Un verre de vin d'Alsace....et tout ira mieux.
Jacquouille.
"Daniel" a écrit dans le message de news: e4%
Bonsoir. Sur une ligne : If [c] = 1 Then c.Value = 100: c.Interior.ColorIndex = 3: End If Cordialement. Daniel "Jacquouille" a écrit dans le message de news: ek8lJ$
Bonsoir J'aimerais que: Si la valeur de c est = 1 , qu'elle devienne 0 ET barbouiller le fond de cel en rouge. Je bute sur le AND. Voici ce que j'ai: -------------------- Sub Zaza () For each c in range("A1:H7") If [c]=1 then c.value 0 ****C'est ici que j'aimerais ajouter : and c.interior.colorIndex=3, mais ça va pô. Il me met 0 comme valeur à c.alors, je contourne en ajoutant: If [c]0 then c.interior.colorIndex=3 Next End sub ------------- Un grand merci à toute explication qui arrivera. Bonne soirée à tous et tousses. -- Bien amicalmement, Vivement conseillés: - Un gros marteau - Un verre de vin d'Alsace....et tout ira mieux.
Jacquouille.
jps
:-)))) jps
"Daniel" a écrit dans le message de news: %
Ce que c'est de pas tester ! je mets jamais des trucs comme ça dans la vraie vie :-))) Daniel "jps" a écrit dans le message de news:
et alors, daniel, pourquoi que t'as mis un End If, précédé de ":", qui plus est : tu veux nous noyer ou quoi? jps
"JB" a écrit dans le message de news:
Le test :
If c=1 Then ... ... End If
est fait UNE seule fois. Il est valable pour toutes les instructions entre If et End If.
-Si un autre test sur c était fait APRES End If, c'est la valeur 100 qui serait testée.
Remarque: Si on écris le bloc sur une seule ligne, il n'y pas de End If
If c=1 Then c.value0:c.interior.Colorindex=3
JB
On 12 juil, 20:57, "Jacquouille" wrote:
OK, merci Cela fonctionne bien (le contraire eut été anormal...-) ) Tant que nous y sommes, pouvez-vous m'expliquer pourquoi.....cela fonctionne? En effet, on pose la condition que si c=1, alors c devient 100. Puis, on dit que c.interior...=3. Or, c a la valeur 100 à ce moment, donc la condition n'est plus remplie. Or, cela fonctionne. Porquè??? Un tout grand merci et bonne fin de soirée.
-- Bien amicalmement, Vivement conseillés: - Un gros marteau - Un verre de vin d'Alsace....et tout ira mieux.
Jacquouille.
"JB" a écrit dans le message de news:
Bonsoir,
Sub Zaza() For Each c In Range("A1:H7") If [c] = 1 Then c.Value = 100 c.Interior.ColorIndex = 3 End If Next End Sub
JB
On 12 juil, 20:09, "Jacquouille" wrote:
Bonsoir J'aimerais que: Si la valeur de c est = 1 , qu'elle devienne 0 ET barbouiller le fond de cel en rouge. Je bute sur le AND. Voici ce que j'ai: -------------------- Sub Zaza () For each c in range("A1:H7") If [c]=1 then c.value 0 ****C'est ici que j'aimerais ajouter : and c.interior.colorIndex=3, mais ça va pô. Il me met 0 comme valeur à c.alors, je contourne en ajoutant: If [c]0 then c.interior.colorIndex=3 Next End sub ------------- Un grand merci à toute explication qui arrivera. Bonne soirée à tous et tousses. -- Bien amicalmement, Vivement conseillés: - Un gros marteau - Un verre de vin d'Alsace....et tout ira mieux.
Jacquouille.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
:-))))
jps
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23ljkwyLxHHA.4652@TK2MSFTNGP05.phx.gbl...
Ce que c'est de pas tester ! je mets jamais des trucs comme ça dans la
vraie vie :-)))
Daniel
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
OJFhrrLxHHA.2132@TK2MSFTNGP04.phx.gbl...
et alors, daniel, pourquoi que t'as mis un End If, précédé de ":", qui
plus est : tu veux nous noyer ou quoi?
jps
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1184267573.212299.250180@n60g2000hse.googlegroups.com...
Le test :
If c=1 Then
...
...
End If
est fait UNE seule fois. Il est valable pour toutes les instructions
entre If et End If.
-Si un autre test sur c était fait APRES End If, c'est la valeur 100
qui serait testée.
Remarque: Si on écris le bloc sur une seule ligne, il n'y pas de End
If
If c=1 Then c.value0:c.interior.Colorindex=3
JB
On 12 juil, 20:57, "Jacquouille" <NoSpam_j.thierne...@skynet.be>
wrote:
OK, merci
Cela fonctionne bien (le contraire eut été anormal...-) )
Tant que nous y sommes, pouvez-vous m'expliquer pourquoi.....cela
fonctionne?
En effet, on pose la condition que si c=1, alors c devient 100.
Puis, on dit que c.interior...=3.
Or, c a la valeur 100 à ce moment, donc la condition n'est plus remplie.
Or,
cela fonctionne. Porquè???
Un tout grand merci et bonne fin de soirée.
--
Bien amicalmement,
Vivement conseillés:
- Un gros marteau
- Un verre de vin d'Alsace....et tout ira mieux.
Jacquouille.
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1184264181.823057.20...@57g2000hsv.googlegroups.com...
Bonsoir,
Sub Zaza()
For Each c In Range("A1:H7")
If [c] = 1 Then
c.Value = 100
c.Interior.ColorIndex = 3
End If
Next
End Sub
JB
On 12 juil, 20:09, "Jacquouille" <NoSpam_j.thierne...@skynet.be>
wrote:
Bonsoir
J'aimerais que:
Si la valeur de c est = 1 , qu'elle devienne 0 ET barbouiller le
fond
de
cel en rouge.
Je bute sur le AND.
Voici ce que j'ai:
--------------------
Sub Zaza ()
For each c in range("A1:H7")
If [c]=1 then c.value 0 ****C'est ici que j'aimerais ajouter : and
c.interior.colorIndex=3, mais ça va pô. Il me met 0 comme valeur à
c.alors,
je contourne en ajoutant:
If [c]0 then c.interior.colorIndex=3
Next
End sub
-------------
Un grand merci à toute explication qui arrivera.
Bonne soirée à tous et tousses.
--
Bien amicalmement,
Vivement conseillés:
- Un gros marteau
- Un verre de vin d'Alsace....et tout ira mieux.
Jacquouille.- Masquer le texte des messages précédents -
Ce que c'est de pas tester ! je mets jamais des trucs comme ça dans la vraie vie :-))) Daniel "jps" a écrit dans le message de news:
et alors, daniel, pourquoi que t'as mis un End If, précédé de ":", qui plus est : tu veux nous noyer ou quoi? jps
"JB" a écrit dans le message de news:
Le test :
If c=1 Then ... ... End If
est fait UNE seule fois. Il est valable pour toutes les instructions entre If et End If.
-Si un autre test sur c était fait APRES End If, c'est la valeur 100 qui serait testée.
Remarque: Si on écris le bloc sur une seule ligne, il n'y pas de End If
If c=1 Then c.value0:c.interior.Colorindex=3
JB
On 12 juil, 20:57, "Jacquouille" wrote:
OK, merci Cela fonctionne bien (le contraire eut été anormal...-) ) Tant que nous y sommes, pouvez-vous m'expliquer pourquoi.....cela fonctionne? En effet, on pose la condition que si c=1, alors c devient 100. Puis, on dit que c.interior...=3. Or, c a la valeur 100 à ce moment, donc la condition n'est plus remplie. Or, cela fonctionne. Porquè??? Un tout grand merci et bonne fin de soirée.
-- Bien amicalmement, Vivement conseillés: - Un gros marteau - Un verre de vin d'Alsace....et tout ira mieux.
Jacquouille.
"JB" a écrit dans le message de news:
Bonsoir,
Sub Zaza() For Each c In Range("A1:H7") If [c] = 1 Then c.Value = 100 c.Interior.ColorIndex = 3 End If Next End Sub
JB
On 12 juil, 20:09, "Jacquouille" wrote:
Bonsoir J'aimerais que: Si la valeur de c est = 1 , qu'elle devienne 0 ET barbouiller le fond de cel en rouge. Je bute sur le AND. Voici ce que j'ai: -------------------- Sub Zaza () For each c in range("A1:H7") If [c]=1 then c.value 0 ****C'est ici que j'aimerais ajouter : and c.interior.colorIndex=3, mais ça va pô. Il me met 0 comme valeur à c.alors, je contourne en ajoutant: If [c]0 then c.interior.colorIndex=3 Next End sub ------------- Un grand merci à toute explication qui arrivera. Bonne soirée à tous et tousses. -- Bien amicalmement, Vivement conseillés: - Un gros marteau - Un verre de vin d'Alsace....et tout ira mieux.
Jacquouille.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Jacquouille
Ainsi donc, l'endive, ça plante ! -)) Tiens, cela me fait penser à Fernande et sa bande....(de copains, oeuf corse)
-- Bien amicalmement, Vivement conseillés: - Un gros marteau - Un verre de vin d'Alsace....et tout ira mieux.
Jacquouille.
"Daniel" a écrit dans le message de news:
Bonsoir. Enorme, la différence, avec end if, ça plante ! Désolé. Daniel "Jacquouille" a écrit dans le message de news: %23%
Bonsoir Daniel Tiens, tu mets une endive (end if prononcé à la Française) en fin de ligne? Y a-t-il une différence? Merci d'avoir pris la peine de me répondre.
-- Bien amicalmement, Vivement conseillés: - Un gros marteau - Un verre de vin d'Alsace....et tout ira mieux.
Jacquouille.
"Daniel" a écrit dans le message de news: e4%
Bonsoir. Sur une ligne : If [c] = 1 Then c.Value = 100: c.Interior.ColorIndex = 3: End If Cordialement. Daniel "Jacquouille" a écrit dans le message de news: ek8lJ$
Bonsoir J'aimerais que: Si la valeur de c est = 1 , qu'elle devienne 0 ET barbouiller le fond de cel en rouge. Je bute sur le AND. Voici ce que j'ai: -------------------- Sub Zaza () For each c in range("A1:H7") If [c]=1 then c.value 0 ****C'est ici que j'aimerais ajouter : and c.interior.colorIndex=3, mais ça va pô. Il me met 0 comme valeur à c.alors, je contourne en ajoutant: If [c]0 then c.interior.colorIndex=3 Next End sub ------------- Un grand merci à toute explication qui arrivera. Bonne soirée à tous et tousses. -- Bien amicalmement, Vivement conseillés: - Un gros marteau - Un verre de vin d'Alsace....et tout ira mieux.
Jacquouille.
Ainsi donc, l'endive, ça plante ! -))
Tiens, cela me fait penser à Fernande et sa bande....(de copains, oeuf
corse)
--
Bien amicalmement,
Vivement conseillés:
- Un gros marteau
- Un verre de vin d'Alsace....et tout ira mieux.
Jacquouille.
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uCb5wyLxHHA.4652@TK2MSFTNGP05.phx.gbl...
Bonsoir.
Enorme, la différence, avec end if, ça plante !
Désolé.
Daniel
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: %23%236J7uLxHHA.3364@TK2MSFTNGP02.phx.gbl...
Bonsoir Daniel
Tiens, tu mets une endive (end if prononcé à la Française) en fin de
ligne?
Y a-t-il une différence?
Merci d'avoir pris la peine de me répondre.
--
Bien amicalmement,
Vivement conseillés:
- Un gros marteau
- Un verre de vin d'Alsace....et tout ira mieux.
Jacquouille.
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
e4%231cELxHHA.4640@TK2MSFTNGP03.phx.gbl...
Bonsoir.
Sur une ligne :
If [c] = 1 Then c.Value = 100: c.Interior.ColorIndex = 3: End If
Cordialement.
Daniel
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: ek8lJ$KxHHA.4088@TK2MSFTNGP04.phx.gbl...
Bonsoir
J'aimerais que:
Si la valeur de c est = 1 , qu'elle devienne 0 ET barbouiller le
fond de cel en rouge.
Je bute sur le AND.
Voici ce que j'ai:
--------------------
Sub Zaza ()
For each c in range("A1:H7")
If [c]=1 then c.value 0 ****C'est ici que j'aimerais ajouter : and
c.interior.colorIndex=3, mais ça va pô. Il me met 0 comme valeur à
c.alors, je contourne en ajoutant:
If [c]0 then c.interior.colorIndex=3
Next
End sub
-------------
Un grand merci à toute explication qui arrivera.
Bonne soirée à tous et tousses.
--
Bien amicalmement,
Vivement conseillés:
- Un gros marteau
- Un verre de vin d'Alsace....et tout ira mieux.
Ainsi donc, l'endive, ça plante ! -)) Tiens, cela me fait penser à Fernande et sa bande....(de copains, oeuf corse)
-- Bien amicalmement, Vivement conseillés: - Un gros marteau - Un verre de vin d'Alsace....et tout ira mieux.
Jacquouille.
"Daniel" a écrit dans le message de news:
Bonsoir. Enorme, la différence, avec end if, ça plante ! Désolé. Daniel "Jacquouille" a écrit dans le message de news: %23%
Bonsoir Daniel Tiens, tu mets une endive (end if prononcé à la Française) en fin de ligne? Y a-t-il une différence? Merci d'avoir pris la peine de me répondre.
-- Bien amicalmement, Vivement conseillés: - Un gros marteau - Un verre de vin d'Alsace....et tout ira mieux.
Jacquouille.
"Daniel" a écrit dans le message de news: e4%
Bonsoir. Sur une ligne : If [c] = 1 Then c.Value = 100: c.Interior.ColorIndex = 3: End If Cordialement. Daniel "Jacquouille" a écrit dans le message de news: ek8lJ$
Bonsoir J'aimerais que: Si la valeur de c est = 1 , qu'elle devienne 0 ET barbouiller le fond de cel en rouge. Je bute sur le AND. Voici ce que j'ai: -------------------- Sub Zaza () For each c in range("A1:H7") If [c]=1 then c.value 0 ****C'est ici que j'aimerais ajouter : and c.interior.colorIndex=3, mais ça va pô. Il me met 0 comme valeur à c.alors, je contourne en ajoutant: If [c]0 then c.interior.colorIndex=3 Next End sub ------------- Un grand merci à toute explication qui arrivera. Bonne soirée à tous et tousses. -- Bien amicalmement, Vivement conseillés: - Un gros marteau - Un verre de vin d'Alsace....et tout ira mieux.