Re-bonsoir à tous !
Alors voilà puisque mon test a marché, je peux enfin vous poser ma
question ;-)
Grâce à vous tous, je commence un peu à maîtriser VB, mais le sujet est
tellement vaste que je ne suis pas au bout de mes peines...
Donc, voici :
je souhaiterais avoir un code qui remplisse en rouge une ligne dont la
cellule en B contient "supprimé". Et petite difficulté supplémentaire,
répéter l'opération sur toutes les lignes d'un tableau dont le nombre de
lignes peut varier.
Comme je ne maîtrise pas trop les loop, les Do while et les For i, je suis
un peu perdu...
Merci d'avance à tous pour votre aide !!
Slts
JF
Re-bonsoir à tous !
Alors voilà puisque mon test a marché, je peux enfin vous poser ma
question ;-)
Grâce à vous tous, je commence un peu à maîtriser VB, mais le sujet est
tellement vaste que je ne suis pas au bout de mes peines...
Donc, voici :
je souhaiterais avoir un code qui remplisse en rouge une ligne dont la
cellule en B contient "supprimé". Et petite difficulté supplémentaire,
répéter l'opération sur toutes les lignes d'un tableau dont le nombre de
lignes peut varier.
Comme je ne maîtrise pas trop les loop, les Do while et les For i, je suis
un peu perdu...
Merci d'avance à tous pour votre aide !!
Slts
JF
Re-bonsoir à tous !
Alors voilà puisque mon test a marché, je peux enfin vous poser ma
question ;-)
Grâce à vous tous, je commence un peu à maîtriser VB, mais le sujet est
tellement vaste que je ne suis pas au bout de mes peines...
Donc, voici :
je souhaiterais avoir un code qui remplisse en rouge une ligne dont la
cellule en B contient "supprimé". Et petite difficulté supplémentaire,
répéter l'opération sur toutes les lignes d'un tableau dont le nombre de
lignes peut varier.
Comme je ne maîtrise pas trop les loop, les Do while et les For i, je suis
un peu perdu...
Merci d'avance à tous pour votre aide !!
Slts
JF
Bonsoir.
Essaie :
Sub test()
Dim c As Range
For Each c In Range("B1", Range("B65536").End(xlUp))
If LCase(c) = "supprimé" Then
c.EntireRow.Interior.ColorIndex = 3
End If
Next c
End Sub
Cordialement.
Daniel
"Jean-François LEGRAS" a écrit dans le message de
news: u6N$Re-bonsoir à tous !
Alors voilà puisque mon test a marché, je peux enfin vous poser ma
question ;-)
Grâce à vous tous, je commence un peu à maîtriser VB, mais le sujet est
tellement vaste que je ne suis pas au bout de mes peines...
Donc, voici :
je souhaiterais avoir un code qui remplisse en rouge une ligne dont la
cellule en B contient "supprimé". Et petite difficulté supplémentaire,
répéter l'opération sur toutes les lignes d'un tableau dont le nombre de
lignes peut varier.
Comme je ne maîtrise pas trop les loop, les Do while et les For i, je
suis un peu perdu...
Merci d'avance à tous pour votre aide !!
Slts
JF
Bonsoir.
Essaie :
Sub test()
Dim c As Range
For Each c In Range("B1", Range("B65536").End(xlUp))
If LCase(c) = "supprimé" Then
c.EntireRow.Interior.ColorIndex = 3
End If
Next c
End Sub
Cordialement.
Daniel
"Jean-François LEGRAS" <jflegras@gmail.com> a écrit dans le message de
news: u6N$FOCcIHA.6024@TK2MSFTNGP06.phx.gbl...
Re-bonsoir à tous !
Alors voilà puisque mon test a marché, je peux enfin vous poser ma
question ;-)
Grâce à vous tous, je commence un peu à maîtriser VB, mais le sujet est
tellement vaste que je ne suis pas au bout de mes peines...
Donc, voici :
je souhaiterais avoir un code qui remplisse en rouge une ligne dont la
cellule en B contient "supprimé". Et petite difficulté supplémentaire,
répéter l'opération sur toutes les lignes d'un tableau dont le nombre de
lignes peut varier.
Comme je ne maîtrise pas trop les loop, les Do while et les For i, je
suis un peu perdu...
Merci d'avance à tous pour votre aide !!
Slts
JF
Bonsoir.
Essaie :
Sub test()
Dim c As Range
For Each c In Range("B1", Range("B65536").End(xlUp))
If LCase(c) = "supprimé" Then
c.EntireRow.Interior.ColorIndex = 3
End If
Next c
End Sub
Cordialement.
Daniel
"Jean-François LEGRAS" a écrit dans le message de
news: u6N$Re-bonsoir à tous !
Alors voilà puisque mon test a marché, je peux enfin vous poser ma
question ;-)
Grâce à vous tous, je commence un peu à maîtriser VB, mais le sujet est
tellement vaste que je ne suis pas au bout de mes peines...
Donc, voici :
je souhaiterais avoir un code qui remplisse en rouge une ligne dont la
cellule en B contient "supprimé". Et petite difficulté supplémentaire,
répéter l'opération sur toutes les lignes d'un tableau dont le nombre de
lignes peut varier.
Comme je ne maîtrise pas trop les loop, les Do while et les For i, je
suis un peu perdu...
Merci d'avance à tous pour votre aide !!
Slts
JF
Merci beaucoup Daniel, ca marche, c'est génial ! Idem pour le sous.total !
Par contre, je ne comprends pas les formules
Dim c As Range
&
LCase(c)
Si tu avais la bonté de me les expliquer ;-)
Merci encore !
Slts
JF
"Daniel.C" a écrit dans le message de news:
%Bonsoir.
Essaie :
Sub test()
Dim c As Range
For Each c In Range("B1", Range("B65536").End(xlUp))
If LCase(c) = "supprimé" Then
c.EntireRow.Interior.ColorIndex = 3
End If
Next c
End Sub
Cordialement.
Daniel
"Jean-François LEGRAS" a écrit dans le message de
news: u6N$Re-bonsoir à tous !
Alors voilà puisque mon test a marché, je peux enfin vous poser ma
question ;-)
Grâce à vous tous, je commence un peu à maîtriser VB, mais le sujet est
tellement vaste que je ne suis pas au bout de mes peines...
Donc, voici :
je souhaiterais avoir un code qui remplisse en rouge une ligne dont la
cellule en B contient "supprimé". Et petite difficulté supplémentaire,
répéter l'opération sur toutes les lignes d'un tableau dont le nombre de
lignes peut varier.
Comme je ne maîtrise pas trop les loop, les Do while et les For i, je
suis un peu perdu...
Merci d'avance à tous pour votre aide !!
Slts
JF
Merci beaucoup Daniel, ca marche, c'est génial ! Idem pour le sous.total !
Par contre, je ne comprends pas les formules
Dim c As Range
&
LCase(c)
Si tu avais la bonté de me les expliquer ;-)
Merci encore !
Slts
JF
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23E84ecCcIHA.6024@TK2MSFTNGP06.phx.gbl...
Bonsoir.
Essaie :
Sub test()
Dim c As Range
For Each c In Range("B1", Range("B65536").End(xlUp))
If LCase(c) = "supprimé" Then
c.EntireRow.Interior.ColorIndex = 3
End If
Next c
End Sub
Cordialement.
Daniel
"Jean-François LEGRAS" <jflegras@gmail.com> a écrit dans le message de
news: u6N$FOCcIHA.6024@TK2MSFTNGP06.phx.gbl...
Re-bonsoir à tous !
Alors voilà puisque mon test a marché, je peux enfin vous poser ma
question ;-)
Grâce à vous tous, je commence un peu à maîtriser VB, mais le sujet est
tellement vaste que je ne suis pas au bout de mes peines...
Donc, voici :
je souhaiterais avoir un code qui remplisse en rouge une ligne dont la
cellule en B contient "supprimé". Et petite difficulté supplémentaire,
répéter l'opération sur toutes les lignes d'un tableau dont le nombre de
lignes peut varier.
Comme je ne maîtrise pas trop les loop, les Do while et les For i, je
suis un peu perdu...
Merci d'avance à tous pour votre aide !!
Slts
JF
Merci beaucoup Daniel, ca marche, c'est génial ! Idem pour le sous.total !
Par contre, je ne comprends pas les formules
Dim c As Range
&
LCase(c)
Si tu avais la bonté de me les expliquer ;-)
Merci encore !
Slts
JF
"Daniel.C" a écrit dans le message de news:
%Bonsoir.
Essaie :
Sub test()
Dim c As Range
For Each c In Range("B1", Range("B65536").End(xlUp))
If LCase(c) = "supprimé" Then
c.EntireRow.Interior.ColorIndex = 3
End If
Next c
End Sub
Cordialement.
Daniel
"Jean-François LEGRAS" a écrit dans le message de
news: u6N$Re-bonsoir à tous !
Alors voilà puisque mon test a marché, je peux enfin vous poser ma
question ;-)
Grâce à vous tous, je commence un peu à maîtriser VB, mais le sujet est
tellement vaste que je ne suis pas au bout de mes peines...
Donc, voici :
je souhaiterais avoir un code qui remplisse en rouge une ligne dont la
cellule en B contient "supprimé". Et petite difficulté supplémentaire,
répéter l'opération sur toutes les lignes d'un tableau dont le nombre de
lignes peut varier.
Comme je ne maîtrise pas trop les loop, les Do while et les For i, je
suis un peu perdu...
Merci d'avance à tous pour votre aide !!
Slts
JF
bonjour jean-françois
c'est toujours pareil le samedi : daniel n'en finit pas de boire l'apéro à
la sortie de ma messe et c'est depuis la sacristie que je te réponds en
son nom (mais probablement moins justement qu'il ne l'aurait fait)
Dim c As Range = déclaration de la variable "c" comme cellule ou plage de
cellules
LCase(c) = minuscules pour le texte de la cellule se trouvant dans "c"
si tu devais avoir "SUPPRIME" dans cette cellule, la proc de Daniel ne
marcherait pas ; si par contre mais aux prix d'une belle entorse du
poignet droit, tu devais écrire "SUPPRIMÉ" ainsi, la proc fonctionnerait
voili voilou
HTH
Mgr T.B.
"Jean-François LEGRAS" a écrit dans le message de
news:Merci beaucoup Daniel, ca marche, c'est génial ! Idem pour le sous.total
!
Par contre, je ne comprends pas les formules
Dim c As Range
&
LCase(c)
Si tu avais la bonté de me les expliquer ;-)
Merci encore !
Slts
JF
"Daniel.C" a écrit dans le message de news:
%Bonsoir.
Essaie :
Sub test()
Dim c As Range
For Each c In Range("B1", Range("B65536").End(xlUp))
If LCase(c) = "supprimé" Then
c.EntireRow.Interior.ColorIndex = 3
End If
Next c
End Sub
Cordialement.
Daniel
"Jean-François LEGRAS" a écrit dans le message de
news: u6N$Re-bonsoir à tous !
Alors voilà puisque mon test a marché, je peux enfin vous poser ma
question ;-)
Grâce à vous tous, je commence un peu à maîtriser VB, mais le sujet est
tellement vaste que je ne suis pas au bout de mes peines...
Donc, voici :
je souhaiterais avoir un code qui remplisse en rouge une ligne dont la
cellule en B contient "supprimé". Et petite difficulté supplémentaire,
répéter l'opération sur toutes les lignes d'un tableau dont le nombre
de lignes peut varier.
Comme je ne maîtrise pas trop les loop, les Do while et les For i, je
suis un peu perdu...
Merci d'avance à tous pour votre aide !!
Slts
JF
bonjour jean-françois
c'est toujours pareil le samedi : daniel n'en finit pas de boire l'apéro à
la sortie de ma messe et c'est depuis la sacristie que je te réponds en
son nom (mais probablement moins justement qu'il ne l'aurait fait)
Dim c As Range = déclaration de la variable "c" comme cellule ou plage de
cellules
LCase(c) = minuscules pour le texte de la cellule se trouvant dans "c"
si tu devais avoir "SUPPRIME" dans cette cellule, la proc de Daniel ne
marcherait pas ; si par contre mais aux prix d'une belle entorse du
poignet droit, tu devais écrire "SUPPRIMÉ" ainsi, la proc fonctionnerait
voili voilou
HTH
Mgr T.B.
"Jean-François LEGRAS" <jflegras@gmail.com> a écrit dans le message de
news: eaCuqrHcIHA.5988@TK2MSFTNGP06.phx.gbl...
Merci beaucoup Daniel, ca marche, c'est génial ! Idem pour le sous.total
!
Par contre, je ne comprends pas les formules
Dim c As Range
&
LCase(c)
Si tu avais la bonté de me les expliquer ;-)
Merci encore !
Slts
JF
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23E84ecCcIHA.6024@TK2MSFTNGP06.phx.gbl...
Bonsoir.
Essaie :
Sub test()
Dim c As Range
For Each c In Range("B1", Range("B65536").End(xlUp))
If LCase(c) = "supprimé" Then
c.EntireRow.Interior.ColorIndex = 3
End If
Next c
End Sub
Cordialement.
Daniel
"Jean-François LEGRAS" <jflegras@gmail.com> a écrit dans le message de
news: u6N$FOCcIHA.6024@TK2MSFTNGP06.phx.gbl...
Re-bonsoir à tous !
Alors voilà puisque mon test a marché, je peux enfin vous poser ma
question ;-)
Grâce à vous tous, je commence un peu à maîtriser VB, mais le sujet est
tellement vaste que je ne suis pas au bout de mes peines...
Donc, voici :
je souhaiterais avoir un code qui remplisse en rouge une ligne dont la
cellule en B contient "supprimé". Et petite difficulté supplémentaire,
répéter l'opération sur toutes les lignes d'un tableau dont le nombre
de lignes peut varier.
Comme je ne maîtrise pas trop les loop, les Do while et les For i, je
suis un peu perdu...
Merci d'avance à tous pour votre aide !!
Slts
JF
bonjour jean-françois
c'est toujours pareil le samedi : daniel n'en finit pas de boire l'apéro à
la sortie de ma messe et c'est depuis la sacristie que je te réponds en
son nom (mais probablement moins justement qu'il ne l'aurait fait)
Dim c As Range = déclaration de la variable "c" comme cellule ou plage de
cellules
LCase(c) = minuscules pour le texte de la cellule se trouvant dans "c"
si tu devais avoir "SUPPRIME" dans cette cellule, la proc de Daniel ne
marcherait pas ; si par contre mais aux prix d'une belle entorse du
poignet droit, tu devais écrire "SUPPRIMÉ" ainsi, la proc fonctionnerait
voili voilou
HTH
Mgr T.B.
"Jean-François LEGRAS" a écrit dans le message de
news:Merci beaucoup Daniel, ca marche, c'est génial ! Idem pour le sous.total
!
Par contre, je ne comprends pas les formules
Dim c As Range
&
LCase(c)
Si tu avais la bonté de me les expliquer ;-)
Merci encore !
Slts
JF
"Daniel.C" a écrit dans le message de news:
%Bonsoir.
Essaie :
Sub test()
Dim c As Range
For Each c In Range("B1", Range("B65536").End(xlUp))
If LCase(c) = "supprimé" Then
c.EntireRow.Interior.ColorIndex = 3
End If
Next c
End Sub
Cordialement.
Daniel
"Jean-François LEGRAS" a écrit dans le message de
news: u6N$Re-bonsoir à tous !
Alors voilà puisque mon test a marché, je peux enfin vous poser ma
question ;-)
Grâce à vous tous, je commence un peu à maîtriser VB, mais le sujet est
tellement vaste que je ne suis pas au bout de mes peines...
Donc, voici :
je souhaiterais avoir un code qui remplisse en rouge une ligne dont la
cellule en B contient "supprimé". Et petite difficulté supplémentaire,
répéter l'opération sur toutes les lignes d'un tableau dont le nombre
de lignes peut varier.
Comme je ne maîtrise pas trop les loop, les Do while et les For i, je
suis un peu perdu...
Merci d'avance à tous pour votre aide !!
Slts
JF
Monseigneur, vous êtes formidable !
Par contre, une question, si je voulais remplir un champ et non une ligne
entière, comment devrais-je procéder ?
Merci à vous d'avance, votre altesse ! ;-)
JF
"Mgr Banni" a écrit dans le message de news:bonjour jean-françois
c'est toujours pareil le samedi : daniel n'en finit pas de boire l'apéro
à la sortie de ma messe et c'est depuis la sacristie que je te réponds en
son nom (mais probablement moins justement qu'il ne l'aurait fait)
Dim c As Range = déclaration de la variable "c" comme cellule ou plage de
cellules
LCase(c) = minuscules pour le texte de la cellule se trouvant dans "c"
si tu devais avoir "SUPPRIME" dans cette cellule, la proc de Daniel ne
marcherait pas ; si par contre mais aux prix d'une belle entorse du
poignet droit, tu devais écrire "SUPPRIMÉ" ainsi, la proc fonctionnerait
voili voilou
HTH
Mgr T.B.
"Jean-François LEGRAS" a écrit dans le message de
news:Merci beaucoup Daniel, ca marche, c'est génial ! Idem pour le sous.total
!
Par contre, je ne comprends pas les formules
Dim c As Range
&
LCase(c)
Si tu avais la bonté de me les expliquer ;-)
Merci encore !
Slts
JF
"Daniel.C" a écrit dans le message de news:
%Bonsoir.
Essaie :
Sub test()
Dim c As Range
For Each c In Range("B1", Range("B65536").End(xlUp))
If LCase(c) = "supprimé" Then
c.EntireRow.Interior.ColorIndex = 3
End If
Next c
End Sub
Cordialement.
Daniel
"Jean-François LEGRAS" a écrit dans le message de
news: u6N$Re-bonsoir à tous !
Alors voilà puisque mon test a marché, je peux enfin vous poser ma
question ;-)
Grâce à vous tous, je commence un peu à maîtriser VB, mais le sujet
est tellement vaste que je ne suis pas au bout de mes peines...
Donc, voici :
je souhaiterais avoir un code qui remplisse en rouge une ligne dont la
cellule en B contient "supprimé". Et petite difficulté supplémentaire,
répéter l'opération sur toutes les lignes d'un tableau dont le nombre
de lignes peut varier.
Comme je ne maîtrise pas trop les loop, les Do while et les For i, je
suis un peu perdu...
Merci d'avance à tous pour votre aide !!
Slts
JF
Monseigneur, vous êtes formidable !
Par contre, une question, si je voulais remplir un champ et non une ligne
entière, comment devrais-je procéder ?
Merci à vous d'avance, votre altesse ! ;-)
JF
"Mgr Banni" <banni@lacurie.va> a écrit dans le message de news:
OoBwjnIcIHA.4936@TK2MSFTNGP03.phx.gbl...
bonjour jean-françois
c'est toujours pareil le samedi : daniel n'en finit pas de boire l'apéro
à la sortie de ma messe et c'est depuis la sacristie que je te réponds en
son nom (mais probablement moins justement qu'il ne l'aurait fait)
Dim c As Range = déclaration de la variable "c" comme cellule ou plage de
cellules
LCase(c) = minuscules pour le texte de la cellule se trouvant dans "c"
si tu devais avoir "SUPPRIME" dans cette cellule, la proc de Daniel ne
marcherait pas ; si par contre mais aux prix d'une belle entorse du
poignet droit, tu devais écrire "SUPPRIMÉ" ainsi, la proc fonctionnerait
voili voilou
HTH
Mgr T.B.
"Jean-François LEGRAS" <jflegras@gmail.com> a écrit dans le message de
news: eaCuqrHcIHA.5988@TK2MSFTNGP06.phx.gbl...
Merci beaucoup Daniel, ca marche, c'est génial ! Idem pour le sous.total
!
Par contre, je ne comprends pas les formules
Dim c As Range
&
LCase(c)
Si tu avais la bonté de me les expliquer ;-)
Merci encore !
Slts
JF
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23E84ecCcIHA.6024@TK2MSFTNGP06.phx.gbl...
Bonsoir.
Essaie :
Sub test()
Dim c As Range
For Each c In Range("B1", Range("B65536").End(xlUp))
If LCase(c) = "supprimé" Then
c.EntireRow.Interior.ColorIndex = 3
End If
Next c
End Sub
Cordialement.
Daniel
"Jean-François LEGRAS" <jflegras@gmail.com> a écrit dans le message de
news: u6N$FOCcIHA.6024@TK2MSFTNGP06.phx.gbl...
Re-bonsoir à tous !
Alors voilà puisque mon test a marché, je peux enfin vous poser ma
question ;-)
Grâce à vous tous, je commence un peu à maîtriser VB, mais le sujet
est tellement vaste que je ne suis pas au bout de mes peines...
Donc, voici :
je souhaiterais avoir un code qui remplisse en rouge une ligne dont la
cellule en B contient "supprimé". Et petite difficulté supplémentaire,
répéter l'opération sur toutes les lignes d'un tableau dont le nombre
de lignes peut varier.
Comme je ne maîtrise pas trop les loop, les Do while et les For i, je
suis un peu perdu...
Merci d'avance à tous pour votre aide !!
Slts
JF
Monseigneur, vous êtes formidable !
Par contre, une question, si je voulais remplir un champ et non une ligne
entière, comment devrais-je procéder ?
Merci à vous d'avance, votre altesse ! ;-)
JF
"Mgr Banni" a écrit dans le message de news:bonjour jean-françois
c'est toujours pareil le samedi : daniel n'en finit pas de boire l'apéro
à la sortie de ma messe et c'est depuis la sacristie que je te réponds en
son nom (mais probablement moins justement qu'il ne l'aurait fait)
Dim c As Range = déclaration de la variable "c" comme cellule ou plage de
cellules
LCase(c) = minuscules pour le texte de la cellule se trouvant dans "c"
si tu devais avoir "SUPPRIME" dans cette cellule, la proc de Daniel ne
marcherait pas ; si par contre mais aux prix d'une belle entorse du
poignet droit, tu devais écrire "SUPPRIMÉ" ainsi, la proc fonctionnerait
voili voilou
HTH
Mgr T.B.
"Jean-François LEGRAS" a écrit dans le message de
news:Merci beaucoup Daniel, ca marche, c'est génial ! Idem pour le sous.total
!
Par contre, je ne comprends pas les formules
Dim c As Range
&
LCase(c)
Si tu avais la bonté de me les expliquer ;-)
Merci encore !
Slts
JF
"Daniel.C" a écrit dans le message de news:
%Bonsoir.
Essaie :
Sub test()
Dim c As Range
For Each c In Range("B1", Range("B65536").End(xlUp))
If LCase(c) = "supprimé" Then
c.EntireRow.Interior.ColorIndex = 3
End If
Next c
End Sub
Cordialement.
Daniel
"Jean-François LEGRAS" a écrit dans le message de
news: u6N$Re-bonsoir à tous !
Alors voilà puisque mon test a marché, je peux enfin vous poser ma
question ;-)
Grâce à vous tous, je commence un peu à maîtriser VB, mais le sujet
est tellement vaste que je ne suis pas au bout de mes peines...
Donc, voici :
je souhaiterais avoir un code qui remplisse en rouge une ligne dont la
cellule en B contient "supprimé". Et petite difficulté supplémentaire,
répéter l'opération sur toutes les lignes d'un tableau dont le nombre
de lignes peut varier.
Comme je ne maîtrise pas trop les loop, les Do while et les For i, je
suis un peu perdu...
Merci d'avance à tous pour votre aide !!
Slts
JF
re JF
je prépare le terrain pour daniel qui devait être de banquet!
en te posant moi aussi une question :
ce serait quoi un champ pour toi? une plage autour de la cellule contenant
"supprimé"? une partie de la ligne à colorier?
tu nous dis pendant que je vais bénir le match Le Mans/OL
Mgr T.B.
"Jean-François LEGRAS" a écrit dans le message de
news: %Monseigneur, vous êtes formidable !
Par contre, une question, si je voulais remplir un champ et non une ligne
entière, comment devrais-je procéder ?
Merci à vous d'avance, votre altesse ! ;-)
JF
"Mgr Banni" a écrit dans le message de news:bonjour jean-françois
c'est toujours pareil le samedi : daniel n'en finit pas de boire l'apéro
à la sortie de ma messe et c'est depuis la sacristie que je te réponds
en son nom (mais probablement moins justement qu'il ne l'aurait fait)
Dim c As Range = déclaration de la variable "c" comme cellule ou plage
de cellules
LCase(c) = minuscules pour le texte de la cellule se trouvant dans "c"
si tu devais avoir "SUPPRIME" dans cette cellule, la proc de Daniel ne
marcherait pas ; si par contre mais aux prix d'une belle entorse du
poignet droit, tu devais écrire "SUPPRIMÉ" ainsi, la proc fonctionnerait
voili voilou
HTH
Mgr T.B.
"Jean-François LEGRAS" a écrit dans le message de
news:Merci beaucoup Daniel, ca marche, c'est génial ! Idem pour le
sous.total !
Par contre, je ne comprends pas les formules
Dim c As Range
&
LCase(c)
Si tu avais la bonté de me les expliquer ;-)
Merci encore !
Slts
JF
"Daniel.C" a écrit dans le message de news:
%Bonsoir.
Essaie :
Sub test()
Dim c As Range
For Each c In Range("B1", Range("B65536").End(xlUp))
If LCase(c) = "supprimé" Then
c.EntireRow.Interior.ColorIndex = 3
End If
Next c
End Sub
Cordialement.
Daniel
"Jean-François LEGRAS" a écrit dans le message de
news: u6N$Re-bonsoir à tous !
Alors voilà puisque mon test a marché, je peux enfin vous poser ma
question ;-)
Grâce à vous tous, je commence un peu à maîtriser VB, mais le sujet
est tellement vaste que je ne suis pas au bout de mes peines...
Donc, voici :
je souhaiterais avoir un code qui remplisse en rouge une ligne dont
la cellule en B contient "supprimé". Et petite difficulté
supplémentaire, répéter l'opération sur toutes les lignes d'un
tableau dont le nombre de lignes peut varier.
Comme je ne maîtrise pas trop les loop, les Do while et les For i, je
suis un peu perdu...
Merci d'avance à tous pour votre aide !!
Slts
JF
re JF
je prépare le terrain pour daniel qui devait être de banquet!
en te posant moi aussi une question :
ce serait quoi un champ pour toi? une plage autour de la cellule contenant
"supprimé"? une partie de la ligne à colorier?
tu nous dis pendant que je vais bénir le match Le Mans/OL
Mgr T.B.
"Jean-François LEGRAS" <jflegras@gmail.com> a écrit dans le message de
news: %23WeCCALcIHA.4888@TK2MSFTNGP05.phx.gbl...
Monseigneur, vous êtes formidable !
Par contre, une question, si je voulais remplir un champ et non une ligne
entière, comment devrais-je procéder ?
Merci à vous d'avance, votre altesse ! ;-)
JF
"Mgr Banni" <banni@lacurie.va> a écrit dans le message de news:
OoBwjnIcIHA.4936@TK2MSFTNGP03.phx.gbl...
bonjour jean-françois
c'est toujours pareil le samedi : daniel n'en finit pas de boire l'apéro
à la sortie de ma messe et c'est depuis la sacristie que je te réponds
en son nom (mais probablement moins justement qu'il ne l'aurait fait)
Dim c As Range = déclaration de la variable "c" comme cellule ou plage
de cellules
LCase(c) = minuscules pour le texte de la cellule se trouvant dans "c"
si tu devais avoir "SUPPRIME" dans cette cellule, la proc de Daniel ne
marcherait pas ; si par contre mais aux prix d'une belle entorse du
poignet droit, tu devais écrire "SUPPRIMÉ" ainsi, la proc fonctionnerait
voili voilou
HTH
Mgr T.B.
"Jean-François LEGRAS" <jflegras@gmail.com> a écrit dans le message de
news: eaCuqrHcIHA.5988@TK2MSFTNGP06.phx.gbl...
Merci beaucoup Daniel, ca marche, c'est génial ! Idem pour le
sous.total !
Par contre, je ne comprends pas les formules
Dim c As Range
&
LCase(c)
Si tu avais la bonté de me les expliquer ;-)
Merci encore !
Slts
JF
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23E84ecCcIHA.6024@TK2MSFTNGP06.phx.gbl...
Bonsoir.
Essaie :
Sub test()
Dim c As Range
For Each c In Range("B1", Range("B65536").End(xlUp))
If LCase(c) = "supprimé" Then
c.EntireRow.Interior.ColorIndex = 3
End If
Next c
End Sub
Cordialement.
Daniel
"Jean-François LEGRAS" <jflegras@gmail.com> a écrit dans le message de
news: u6N$FOCcIHA.6024@TK2MSFTNGP06.phx.gbl...
Re-bonsoir à tous !
Alors voilà puisque mon test a marché, je peux enfin vous poser ma
question ;-)
Grâce à vous tous, je commence un peu à maîtriser VB, mais le sujet
est tellement vaste que je ne suis pas au bout de mes peines...
Donc, voici :
je souhaiterais avoir un code qui remplisse en rouge une ligne dont
la cellule en B contient "supprimé". Et petite difficulté
supplémentaire, répéter l'opération sur toutes les lignes d'un
tableau dont le nombre de lignes peut varier.
Comme je ne maîtrise pas trop les loop, les Do while et les For i, je
suis un peu perdu...
Merci d'avance à tous pour votre aide !!
Slts
JF
re JF
je prépare le terrain pour daniel qui devait être de banquet!
en te posant moi aussi une question :
ce serait quoi un champ pour toi? une plage autour de la cellule contenant
"supprimé"? une partie de la ligne à colorier?
tu nous dis pendant que je vais bénir le match Le Mans/OL
Mgr T.B.
"Jean-François LEGRAS" a écrit dans le message de
news: %Monseigneur, vous êtes formidable !
Par contre, une question, si je voulais remplir un champ et non une ligne
entière, comment devrais-je procéder ?
Merci à vous d'avance, votre altesse ! ;-)
JF
"Mgr Banni" a écrit dans le message de news:bonjour jean-françois
c'est toujours pareil le samedi : daniel n'en finit pas de boire l'apéro
à la sortie de ma messe et c'est depuis la sacristie que je te réponds
en son nom (mais probablement moins justement qu'il ne l'aurait fait)
Dim c As Range = déclaration de la variable "c" comme cellule ou plage
de cellules
LCase(c) = minuscules pour le texte de la cellule se trouvant dans "c"
si tu devais avoir "SUPPRIME" dans cette cellule, la proc de Daniel ne
marcherait pas ; si par contre mais aux prix d'une belle entorse du
poignet droit, tu devais écrire "SUPPRIMÉ" ainsi, la proc fonctionnerait
voili voilou
HTH
Mgr T.B.
"Jean-François LEGRAS" a écrit dans le message de
news:Merci beaucoup Daniel, ca marche, c'est génial ! Idem pour le
sous.total !
Par contre, je ne comprends pas les formules
Dim c As Range
&
LCase(c)
Si tu avais la bonté de me les expliquer ;-)
Merci encore !
Slts
JF
"Daniel.C" a écrit dans le message de news:
%Bonsoir.
Essaie :
Sub test()
Dim c As Range
For Each c In Range("B1", Range("B65536").End(xlUp))
If LCase(c) = "supprimé" Then
c.EntireRow.Interior.ColorIndex = 3
End If
Next c
End Sub
Cordialement.
Daniel
"Jean-François LEGRAS" a écrit dans le message de
news: u6N$Re-bonsoir à tous !
Alors voilà puisque mon test a marché, je peux enfin vous poser ma
question ;-)
Grâce à vous tous, je commence un peu à maîtriser VB, mais le sujet
est tellement vaste que je ne suis pas au bout de mes peines...
Donc, voici :
je souhaiterais avoir un code qui remplisse en rouge une ligne dont
la cellule en B contient "supprimé". Et petite difficulté
supplémentaire, répéter l'opération sur toutes les lignes d'un
tableau dont le nombre de lignes peut varier.
Comme je ne maîtrise pas trop les loop, les Do while et les For i, je
suis un peu perdu...
Merci d'avance à tous pour votre aide !!
Slts
JF