Bonsoir
J'aimerais que:
Si la valeur de c est = 1 , qu'elle devienne 0 ET barbouiller le f ond 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
J'aimerais que:
Si la valeur de c est = 1 , qu'elle devienne =100 ET barbouiller le f ond 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.
Jacquouille.
Bonsoir
J'aimerais que:
Si la valeur de c est = 1 , qu'elle devienne 0 ET barbouiller le f ond 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
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
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
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
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
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
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
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.
Un grand merci à toute explication qui arrivera.
Bonne soirée à tous et tousses.
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.
Un grand merci à toute explication qui arrivera.
Bonne soirée à tous et tousses.
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.
Un grand merci à toute explication qui arrivera.
Bonne soirée à tous et tousses.
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 : a nd
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 -
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 =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 : a nd
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.
Jacquouille.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
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 : a nd
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 -
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 -
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 -
- Afficher le texte des messages précédents -
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 -
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 -
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 -
- Afficher le texte des messages précédents -
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 -
Bonsour® Jacquouille avec ferveur ;o))) vous nous disiez :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.
Un grand merci à toute explication qui arrivera.
Bonne soirée à tous et tousses.
Nul besoin d'un AND qui est un opérateur logique
L'affectation d'un couleur est une instruction comme une autre
en VBA le séparateur d'instruction est " : "
For each c in range("A1:H7")
If c = 1 then c.value 0 : c.interior.colorIndex=3
Next
dans le cas de plusieurs instructions l'utilisation du IF peut s'ecrire
de plusieures façons
IF en ligne
1- pas d'alternative :
IF condition Then Instruction1 : Instriction2 : InstructionX
2- avec alternative :
IF condition Then Instruction1 : Instriction2 : InstructionX ELSE
Instruction4 : InstructionZ
IF structuré
1- pas d'alternative :
IF condition Then
Instruction1
Instruction2
InstructionX
END IF
2- avec alternative :
IF condition Then
Instruction1
Instruction2
InstructionX
ELSE
Instruction4
InstructionZ
END IF
Ou l'on s'apercoit que le modele en ligne bien que plus compact et
equivalent , le modele structuré est plus lisible et plus simple pour la
maintenance
;o)))
--
--
@+
;o)))
Bonsour® Jacquouille avec ferveur ;o))) vous nous disiez :
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.
Un grand merci à toute explication qui arrivera.
Bonne soirée à tous et tousses.
Nul besoin d'un AND qui est un opérateur logique
L'affectation d'un couleur est une instruction comme une autre
en VBA le séparateur d'instruction est " : "
For each c in range("A1:H7")
If c = 1 then c.value 0 : c.interior.colorIndex=3
Next
dans le cas de plusieurs instructions l'utilisation du IF peut s'ecrire
de plusieures façons
IF en ligne
1- pas d'alternative :
IF condition Then Instruction1 : Instriction2 : InstructionX
2- avec alternative :
IF condition Then Instruction1 : Instriction2 : InstructionX ELSE
Instruction4 : InstructionZ
IF structuré
1- pas d'alternative :
IF condition Then
Instruction1
Instruction2
InstructionX
END IF
2- avec alternative :
IF condition Then
Instruction1
Instruction2
InstructionX
ELSE
Instruction4
InstructionZ
END IF
Ou l'on s'apercoit que le modele en ligne bien que plus compact et
equivalent , le modele structuré est plus lisible et plus simple pour la
maintenance
;o)))
--
--
@+
;o)))
Bonsour® Jacquouille avec ferveur ;o))) vous nous disiez :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.
Un grand merci à toute explication qui arrivera.
Bonne soirée à tous et tousses.
Nul besoin d'un AND qui est un opérateur logique
L'affectation d'un couleur est une instruction comme une autre
en VBA le séparateur d'instruction est " : "
For each c in range("A1:H7")
If c = 1 then c.value 0 : c.interior.colorIndex=3
Next
dans le cas de plusieurs instructions l'utilisation du IF peut s'ecrire
de plusieures façons
IF en ligne
1- pas d'alternative :
IF condition Then Instruction1 : Instriction2 : InstructionX
2- avec alternative :
IF condition Then Instruction1 : Instriction2 : InstructionX ELSE
Instruction4 : InstructionZ
IF structuré
1- pas d'alternative :
IF condition Then
Instruction1
Instruction2
InstructionX
END IF
2- avec alternative :
IF condition Then
Instruction1
Instruction2
InstructionX
ELSE
Instruction4
InstructionZ
END IF
Ou l'on s'apercoit que le modele en ligne bien que plus compact et
equivalent , le modele structuré est plus lisible et plus simple pour la
maintenance
;o)))
--
--
@+
;o)))
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.
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.
Jacquouille.
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.
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 -
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 -
- Afficher le texte des messages précédents -
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 -