Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Colorier ligne recopiée

Colorier ligne recopiée

9 réponses
Avatar
Bernard Flavignard
Bonsoir,
Ce matin je vous parlais de la copie de lignes depuis les feuilles d'un classeur
vers la feuille "Invites"
Mon code, qui fonctionne est celui-ci

'Recopie des lignes contenant un 1 en colonne 3
For i = 2 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Activate
'on suppose ne pas avoir plus de 300 lignes dans chaque feuille
For j = 2 To 300
If Cells(j, 3) = "1" Then
Cells(j, 3).Activate
Rows(ActiveCell.Row).Copy
Sheets("Invites").[A65000].End(xlUp).Offset(1, 0)
End If
Next j
Next i

Je voudrais en même temps colorier (remplissage) la ligne que je viens de copier
dans la feuille "Invites"
Merci de votre aide.
--
Bernard Flavignard
www.guidonchalettois.fr
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonsoir,

For i = 2 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Activate
For j = 2 To 300
If Cells(j, 3) = "1" Then
Cells(j, 3).Activate
Rows(ActiveCell.Row).Copy _
Sheets("Invites").[A65000].End(xlUp).Offset(1, 0)
Sheets("Invites").[A65000].End(xlUp).Resize(,
3).Interior.ColorIndex = 33
End If
Next j
Next i

JB

On 15 août, 22:33, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:
Bonsoir,
Ce matin je vous parlais de la copie de lignes depuis les feuilles d'un c lasseur
vers la feuille "Invites"
Mon code, qui fonctionne est celui-ci

'Recopie des lignes contenant un 1 en colonne 3
For i = 2 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Activate
'on suppose ne pas avoir plus de 300 lignes dans chaque feuille
For j = 2 To 300
If Cells(j, 3) = "1" Then
Cells(j, 3).Activate
Rows(ActiveCell.Row).Copy
Sheets("Invites").[A65000].End(xlUp).Offset(1, 0)
End If
Next j
Next i

Je voudrais en même temps colorier (remplissage) la ligne que je viens de copier
dans la feuille "Invites"
Merci de votre aide.
--
Bernard Flavignardwww.guidonchalettois.fr


Avatar
Bernard Flavignard
JB,
Quelle rapidité!
Vous êtes, toi et quelques autres, à surveiller ce groupe afin de voir s'il n'y
a pas de nouvelles questions?
C'est bien agréable de pouvoir se faire aider aussi rapidement.
Avec Resize(,3) je colorie les colonnes 1 à 3, mais si je veux colorier les
colonnes 5 à 7 ?
Encore merci

--
Bernard Flavignard
www.guidonchalettois.fr
"JB" a écrit dans le message de news:

Bonsoir,

For i = 2 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Activate
For j = 2 To 300
If Cells(j, 3) = "1" Then
Cells(j, 3).Activate
Rows(ActiveCell.Row).Copy _
Sheets("Invites").[A65000].End(xlUp).Offset(1, 0)
Sheets("Invites").[A65000].End(xlUp).Resize(,
3).Interior.ColorIndex = 33
End If
Next j
Next i

JB

On 15 août, 22:33, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:
Bonsoir,
Ce matin je vous parlais de la copie de lignes depuis les feuilles d'un
classeur
vers la feuille "Invites"
Mon code, qui fonctionne est celui-ci

'Recopie des lignes contenant un 1 en colonne 3
For i = 2 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Activate
'on suppose ne pas avoir plus de 300 lignes dans chaque feuille
For j = 2 To 300
If Cells(j, 3) = "1" Then
Cells(j, 3).Activate
Rows(ActiveCell.Row).Copy
Sheets("Invites").[A65000].End(xlUp).Offset(1, 0)
End If
Next j
Next i

Je voudrais en même temps colorier (remplissage) la ligne que je viens de
copier
dans la feuille "Invites"
Merci de votre aide.
--
Bernard Flavignardwww.guidonchalettois.fr


Avatar
JB
Colonne 1 à 7:
Sheets("Invites").[A65000].End(xlUp).Resize(,7).Interior.ColorIndex =
33

Colonne 5 à 7:
Sheets("Invites").[A65000].End(xlUp).Offset(0, 4).Resize(,
3).Interior.ColorIndex = 33

JB


On 15 août, 23:07, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:
JB,
Quelle rapidité!
Vous êtes, toi et quelques autres, à surveiller ce groupe afin de voi r s'il n'y
a pas de nouvelles questions?
C'est bien agréable de pouvoir se faire aider aussi rapidement.
Avec Resize(,3) je colorie les colonnes 1 à 3, mais si je veux colorier les
colonnes 5 à 7 ?
Encore merci

--
Bernard Flavignardwww.guidonchalettois.fr
"JB" a écrit dans le message de news:

Bonsoir,

For i = 2 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Activate
For j = 2 To 300
If Cells(j, 3) = "1" Then
Cells(j, 3).Activate
Rows(ActiveCell.Row).Copy _
Sheets("Invites").[A65000].End(xlUp).Offset(1, 0)
Sheets("Invites").[A65000].End(xlUp).Resize(,
3).Interior.ColorIndex = 33
End If
Next j
Next i

JB

On 15 août, 22:33, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:



Bonsoir,
Ce matin je vous parlais de la copie de lignes depuis les feuilles d'un
classeur
vers la feuille "Invites"
Mon code, qui fonctionne est celui-ci

'Recopie des lignes contenant un 1 en colonne 3
For i = 2 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Activate
'on suppose ne pas avoir plus de 300 lignes dans chaque feuille
For j = 2 To 300
If Cells(j, 3) = "1" Then
Cells(j, 3).Activate
Rows(ActiveCell.Row).Copy
Sheets("Invites").[A65000].End(xlUp).Offset(1, 0)
End If
Next j
Next i

Je voudrais en même temps colorier (remplissage) la ligne que je vien s de
copier
dans la feuille "Invites"
Merci de votre aide.
--
Bernard Flavignardwww.guidonchalettois.fr- Masquer le texte des message s précédents -


- Afficher le texte des messages précédents -



Avatar
Bernard Flavignard
JB,
C'est si simple.
Mais si je maitrise VBA dans AutoCAD, je suis loin de le faire dans excel.
offset est propre à excel.
Bonne fin de soirée.
--
Bernard Flavignard
www.guidonchalettois.fr
"JB" a écrit dans le message de news:

Colonne 1 à 7:
Sheets("Invites").[A65000].End(xlUp).Resize(,7).Interior.ColorIndex 33

Colonne 5 à 7:
Sheets("Invites").[A65000].End(xlUp).Offset(0, 4).Resize(,
3).Interior.ColorIndex = 33

JB


On 15 août, 23:07, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:
JB,
Quelle rapidité!
Vous êtes, toi et quelques autres, à surveiller ce groupe afin de voir s'il
n'y
a pas de nouvelles questions?
C'est bien agréable de pouvoir se faire aider aussi rapidement.
Avec Resize(,3) je colorie les colonnes 1 à 3, mais si je veux colorier les
colonnes 5 à 7 ?
Encore merci

--
Bernard Flavignardwww.guidonchalettois.fr
"JB" a écrit dans le message de news:

Bonsoir,

For i = 2 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Activate
For j = 2 To 300
If Cells(j, 3) = "1" Then
Cells(j, 3).Activate
Rows(ActiveCell.Row).Copy _
Sheets("Invites").[A65000].End(xlUp).Offset(1, 0)
Sheets("Invites").[A65000].End(xlUp).Resize(,
3).Interior.ColorIndex = 33
End If
Next j
Next i

JB

On 15 août, 22:33, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:



Bonsoir,
Ce matin je vous parlais de la copie de lignes depuis les feuilles d'un
classeur
vers la feuille "Invites"
Mon code, qui fonctionne est celui-ci

'Recopie des lignes contenant un 1 en colonne 3
For i = 2 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Activate
'on suppose ne pas avoir plus de 300 lignes dans chaque feuille
For j = 2 To 300
If Cells(j, 3) = "1" Then
Cells(j, 3).Activate
Rows(ActiveCell.Row).Copy
Sheets("Invites").[A65000].End(xlUp).Offset(1, 0)
End If
Next j
Next i

Je voudrais en même temps colorier (remplissage) la ligne que je viens de
copier
dans la feuille "Invites"
Merci de votre aide.
--
Bernard Flavignardwww.guidonchalettois.fr- Masquer le texte des messages
précédents -


- Afficher le texte des messages précédents -



Avatar
Bernard Flavignard
Bonsoir,
Les questions amènent des réponses, mais les réponses amènent aussi des
questions....
Ok pour colorier les colonnes 5 à 7.
Mais si je suppose qu'une colonne de ma feuille "Invites"se nomme "toto", sa
position peut varier d'une situation à une autre, comment faire pour colorier la
cellule de la ligne que je viens de recopier et qui se trouve à l'intersection
de la colonne "toto"
Merci
--
Bernard Flavignard
www.guidonchalettois.fr
"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le message de news:
46c36f76$0$27414$
JB,
C'est si simple.
Mais si je maitrise VBA dans AutoCAD, je suis loin de le faire dans excel.
offset est propre à excel.
Bonne fin de soirée.
--
Bernard Flavignard
www.guidonchalettois.fr
"JB" a écrit dans le message de news:

Colonne 1 à 7:
Sheets("Invites").[A65000].End(xlUp).Resize(,7).Interior.ColorIndex > 33

Colonne 5 à 7:
Sheets("Invites").[A65000].End(xlUp).Offset(0, 4).Resize(,
3).Interior.ColorIndex = 33

JB


On 15 août, 23:07, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:
JB,
Quelle rapidité!
Vous êtes, toi et quelques autres, à surveiller ce groupe afin de voir s'il
n'y
a pas de nouvelles questions?
C'est bien agréable de pouvoir se faire aider aussi rapidement.
Avec Resize(,3) je colorie les colonnes 1 à 3, mais si je veux colorier les
colonnes 5 à 7 ?
Encore merci

--
Bernard Flavignardwww.guidonchalettois.fr
"JB" a écrit dans le message de news:

Bonsoir,

For i = 2 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Activate
For j = 2 To 300
If Cells(j, 3) = "1" Then
Cells(j, 3).Activate
Rows(ActiveCell.Row).Copy _
Sheets("Invites").[A65000].End(xlUp).Offset(1, 0)
Sheets("Invites").[A65000].End(xlUp).Resize(,
3).Interior.ColorIndex = 33
End If
Next j
Next i

JB

On 15 août, 22:33, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:



Bonsoir,
Ce matin je vous parlais de la copie de lignes depuis les feuilles d'un
classeur
vers la feuille "Invites"
Mon code, qui fonctionne est celui-ci

'Recopie des lignes contenant un 1 en colonne 3
For i = 2 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Activate
'on suppose ne pas avoir plus de 300 lignes dans chaque feuille
For j = 2 To 300
If Cells(j, 3) = "1" Then
Cells(j, 3).Activate
Rows(ActiveCell.Row).Copy
Sheets("Invites").[A65000].End(xlUp).Offset(1, 0)
End If
Next j
Next i

Je voudrais en même temps colorier (remplissage) la ligne que je viens de
copier
dans la feuille "Invites"
Merci de votre aide.
--
Bernard Flavignardwww.guidonchalettois.fr- Masquer le texte des messages
précédents -


- Afficher le texte des messages précédents -







Avatar
JB
Bonsoir,

Sub conso()
For i = 2 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Activate
For j = 2 To 300
If Cells(j, 3) = "1" Then
Cells(j, 3).Activate
Rows(ActiveCell.Row).Copy _
Sheets("Invites").[A65000].End(xlUp).Offset(1, 0)
' Sheets("Invites").[A65000].End(xlUp).Resize(,
3).Interior.ColorIndex = 33
' Sheets("Invites").[A65000].End(xlUp).Offset(0, 4).Resize(,
3).Interior.ColorIndex = 33
NomCol = "toto"
p = Application.Match(NomCol, Sheets("Invites").[A1:Z1], 0)
Sheets("Invites").[A65000].End(xlUp).Offset(0, p -
1).Interior.ColorIndex = 33
End If
Next j
Next i
End Sub

JB

On 16 août, 21:19, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:
Bonsoir,
Les questions amènent des réponses, mais les réponses amènent aus si des
questions....
Ok pour colorier les colonnes 5 à 7.
Mais si je suppose qu'une colonne de ma feuille "Invites"se nomme "toto", sa
position peut varier d'une situation à une autre, comment faire pour co lorier la
cellule de la ligne que je viens de recopier et qui se trouve à l'inter section
de la colonne "toto"
Merci
--
Bernard Flavignardwww.guidonchalettois.fr
"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le message de news:
46c36f76$0$27414$



JB,
C'est si simple.
Mais si je maitrise VBA dans AutoCAD, je suis loin de le faire dans exc el.
offset est propre à excel.
Bonne fin de soirée.
--
Bernard Flavignard
www.guidonchalettois.fr
"JB" a écrit dans le message de news:

Colonne 1 à 7:
Sheets("Invites").[A65000].End(xlUp).Resize(,7).Interior.ColorIndex =
33

Colonne 5 à 7:
Sheets("Invites").[A65000].End(xlUp).Offset(0, 4).Resize(,
3).Interior.ColorIndex = 33

JB

On 15 août, 23:07, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:
JB,
Quelle rapidité!
Vous êtes, toi et quelques autres, à surveiller ce groupe afin de voir s'il
n'y
a pas de nouvelles questions?
C'est bien agréable de pouvoir se faire aider aussi rapidement.
Avec Resize(,3) je colorie les colonnes 1 à 3, mais si je veux color ier les
colonnes 5 à 7 ?
Encore merci

--
Bernard Flavignardwww.guidonchalettois.fr
"JB" a écrit dans le message de news:

Bonsoir,

For i = 2 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Activate
For j = 2 To 300
If Cells(j, 3) = "1" Then
Cells(j, 3).Activate
Rows(ActiveCell.Row).Copy _
Sheets("Invites").[A65000].End(xlUp).Offset(1, 0)
Sheets("Invites").[A65000].End(xlUp).Resize(,
3).Interior.ColorIndex = 33
End If
Next j
Next i

JB

On 15 août, 22:33, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:

Bonsoir,
Ce matin je vous parlais de la copie de lignes depuis les feuilles d 'un
classeur
vers la feuille "Invites"
Mon code, qui fonctionne est celui-ci

'Recopie des lignes contenant un 1 en colonne 3
For i = 2 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Activate
'on suppose ne pas avoir plus de 300 lignes dans chaque feuille
For j = 2 To 300
If Cells(j, 3) = "1" Then
Cells(j, 3).Activate
Rows(ActiveCell.Row).Copy
Sheets("Invites").[A65000].End(xlUp).Offset(1, 0)
End If
Next j
Next i

Je voudrais en même temps colorier (remplissage) la ligne que je v iens de
copier
dans la feuille "Invites"
Merci de votre aide.
--
Bernard Flavignardwww.guidonchalettois.fr-Masquer le texte des messa ges
précédents -


- Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -



- Afficher le texte des messages précédents -





Avatar
Bernard Flavignard
JB,
J'étais en train de regarde du côté de
Application.Intersect
Avis-je une chance de trouver ?
Merci
--
Bernard Flavignard
www.guidonchalettois.fr
"JB" a écrit dans le message de news:

Bonsoir,

Sub conso()
For i = 2 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Activate
For j = 2 To 300
If Cells(j, 3) = "1" Then
Cells(j, 3).Activate
Rows(ActiveCell.Row).Copy _
Sheets("Invites").[A65000].End(xlUp).Offset(1, 0)
' Sheets("Invites").[A65000].End(xlUp).Resize(,
3).Interior.ColorIndex = 33
' Sheets("Invites").[A65000].End(xlUp).Offset(0, 4).Resize(,
3).Interior.ColorIndex = 33
NomCol = "toto"
p = Application.Match(NomCol, Sheets("Invites").[A1:Z1], 0)
Sheets("Invites").[A65000].End(xlUp).Offset(0, p -
1).Interior.ColorIndex = 33
End If
Next j
Next i
End Sub

JB

On 16 août, 21:19, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:
Bonsoir,
Les questions amènent des réponses, mais les réponses amènent aussi des
questions....
Ok pour colorier les colonnes 5 à 7.
Mais si je suppose qu'une colonne de ma feuille "Invites"se nomme "toto", sa
position peut varier d'une situation à une autre, comment faire pour colorier
la
cellule de la ligne que je viens de recopier et qui se trouve à l'intersection
de la colonne "toto"
Merci
--
Bernard Flavignardwww.guidonchalettois.fr
"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le message de
news:
46c36f76$0$27414$



JB,
C'est si simple.
Mais si je maitrise VBA dans AutoCAD, je suis loin de le faire dans excel.
offset est propre à excel.
Bonne fin de soirée.
--
Bernard Flavignard
www.guidonchalettois.fr
"JB" a écrit dans le message de news:

Colonne 1 à 7:
Sheets("Invites").[A65000].End(xlUp).Resize(,7).Interior.ColorIndex > > 33

Colonne 5 à 7:
Sheets("Invites").[A65000].End(xlUp).Offset(0, 4).Resize(,
3).Interior.ColorIndex = 33

JB

On 15 août, 23:07, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:
JB,
Quelle rapidité!
Vous êtes, toi et quelques autres, à surveiller ce groupe afin de voir s'il
n'y
a pas de nouvelles questions?
C'est bien agréable de pouvoir se faire aider aussi rapidement.
Avec Resize(,3) je colorie les colonnes 1 à 3, mais si je veux colorier les
colonnes 5 à 7 ?
Encore merci

--
Bernard Flavignardwww.guidonchalettois.fr
"JB" a écrit dans le message de news:

Bonsoir,

For i = 2 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Activate
For j = 2 To 300
If Cells(j, 3) = "1" Then
Cells(j, 3).Activate
Rows(ActiveCell.Row).Copy _
Sheets("Invites").[A65000].End(xlUp).Offset(1, 0)
Sheets("Invites").[A65000].End(xlUp).Resize(,
3).Interior.ColorIndex = 33
End If
Next j
Next i

JB

On 15 août, 22:33, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:

Bonsoir,
Ce matin je vous parlais de la copie de lignes depuis les feuilles d'un
classeur
vers la feuille "Invites"
Mon code, qui fonctionne est celui-ci

'Recopie des lignes contenant un 1 en colonne 3
For i = 2 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Activate
'on suppose ne pas avoir plus de 300 lignes dans chaque feuille
For j = 2 To 300
If Cells(j, 3) = "1" Then
Cells(j, 3).Activate
Rows(ActiveCell.Row).Copy
Sheets("Invites").[A65000].End(xlUp).Offset(1, 0)
End If
Next j
Next i

Je voudrais en même temps colorier (remplissage) la ligne que je viens de
copier
dans la feuille "Invites"
Merci de votre aide.
--
Bernard Flavignardwww.guidonchalettois.fr-Masquer le texte des messages
précédents -


- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -



- Afficher le texte des messages précédents -





Avatar
JB
On utilise généralement 'Intersect' pour tester si une adresse de
cellule est incluse dans un champ.

If Not Intersect(Range("monchamp"), Target) Is Nothing Then

http://boisgontierjacques.free.fr/pages_site/cellules.htm#Intersect

Dans le cas présent, si j'ai bien compris le pb, on recherche plutôt
la position où est située une information.

JB
http://boisgontierjacques.free.fr/

On 16 août, 22:28, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:
JB,
J'étais en train de regarde du côté de
Application.Intersect
Avis-je une chance de trouver ?
Merci
--
Bernard Flavignardwww.guidonchalettois.fr
"JB" a écrit dans le message de news:

Bonsoir,

Sub conso()
For i = 2 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Activate
For j = 2 To 300
If Cells(j, 3) = "1" Then
Cells(j, 3).Activate
Rows(ActiveCell.Row).Copy _
Sheets("Invites").[A65000].End(xlUp).Offset(1, 0)
' Sheets("Invites").[A65000].End(xlUp).Resize(,
3).Interior.ColorIndex = 33
' Sheets("Invites").[A65000].End(xlUp).Offset(0, 4).Resize(,
3).Interior.ColorIndex = 33
NomCol = "toto"
p = Application.Match(NomCol, Sheets("Invites").[A1:Z1], 0)
Sheets("Invites").[A65000].End(xlUp).Offset(0, p -
1).Interior.ColorIndex = 33
End If
Next j
Next i
End Sub

JB

On 16 août, 21:19, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:



Bonsoir,
Les questions amènent des réponses, mais les réponses amènent a ussi des
questions....
Ok pour colorier les colonnes 5 à 7.
Mais si je suppose qu'une colonne de ma feuille "Invites"se nomme "toto ", sa
position peut varier d'une situation à une autre, comment faire pour colorier
la
cellule de la ligne que je viens de recopier et qui se trouve à l'int ersection
de la colonne "toto"
Merci
--
Bernard Flavignardwww.guidonchalettois.fr
"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le messag e de
news:
46c36f76$0$27414$

JB,
C'est si simple.
Mais si je maitrise VBA dans AutoCAD, je suis loin de le faire dans e xcel.
offset est propre à excel.
Bonne fin de soirée.
--
Bernard Flavignard
www.guidonchalettois.fr
"JB" a écrit dans le message de news:

Colonne 1 à 7:
Sheets("Invites").[A65000].End(xlUp).Resize(,7).Interior.ColorIndex =
33

Colonne 5 à 7:
Sheets("Invites").[A65000].End(xlUp).Offset(0, 4).Resize(,
3).Interior.ColorIndex = 33

JB

On 15 août, 23:07, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:
JB,
Quelle rapidité!
Vous êtes, toi et quelques autres, à surveiller ce groupe afin d e voir s'il
n'y
a pas de nouvelles questions?
C'est bien agréable de pouvoir se faire aider aussi rapidement.
Avec Resize(,3) je colorie les colonnes 1 à 3, mais si je veux col orier les
colonnes 5 à 7 ?
Encore merci

--
Bernard Flavignardwww.guidonchalettois.fr
"JB" a écrit dans le message de news:

Bonsoir,

For i = 2 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Activate
For j = 2 To 300
If Cells(j, 3) = "1" Then
Cells(j, 3).Activate
Rows(ActiveCell.Row).Copy _
Sheets("Invites").[A65000].End(xlUp).Offset(1, 0)
Sheets("Invites").[A65000].End(xlUp).Resize(,
3).Interior.ColorIndex = 33
End If
Next j
Next i

JB

On 15 août, 22:33, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:

Bonsoir,
Ce matin je vous parlais de la copie de lignes depuis les feuilles d'un
classeur
vers la feuille "Invites"
Mon code, qui fonctionne est celui-ci

'Recopie des lignes contenant un 1 en colonne 3
For i = 2 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Activate
'on suppose ne pas avoir plus de 300 lignes dans chaque feuille
For j = 2 To 300
If Cells(j, 3) = "1" Then
Cells(j, 3).Activate
Rows(ActiveCell.Row).Copy
Sheets("Invites").[A65000].End(xlUp).Offset(1, 0)
End If
Next j
Next i

Je voudrais en même temps colorier (remplissage) la ligne que je viens de
copier
dans la feuille "Invites"
Merci de votre aide.
--
Bernard Flavignardwww.guidonchalettois.fr-Masquerle texte des mess ages
précédents -


- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -



- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -






Avatar
Bernard Flavignard
JB,
Tu as bien compris.
Alors je vais adopter la solution de ta réponse précédente.
Bonne soirée
--
Bernard Flavignard
www.guidonchalettois.fr
"JB" a écrit dans le message de news:

On utilise généralement 'Intersect' pour tester si une adresse de
cellule est incluse dans un champ.

If Not Intersect(Range("monchamp"), Target) Is Nothing Then

http://boisgontierjacques.free.fr/pages_site/cellules.htm#Intersect

Dans le cas présent, si j'ai bien compris le pb, on recherche plutôt
la position où est située une information.

JB
http://boisgontierjacques.free.fr/

On 16 août, 22:28, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:
JB,
J'étais en train de regarde du côté de
Application.Intersect
Avis-je une chance de trouver ?
Merci
--
Bernard Flavignardwww.guidonchalettois.fr
"JB" a écrit dans le message de news:

Bonsoir,

Sub conso()
For i = 2 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Activate
For j = 2 To 300
If Cells(j, 3) = "1" Then
Cells(j, 3).Activate
Rows(ActiveCell.Row).Copy _
Sheets("Invites").[A65000].End(xlUp).Offset(1, 0)
' Sheets("Invites").[A65000].End(xlUp).Resize(,
3).Interior.ColorIndex = 33
' Sheets("Invites").[A65000].End(xlUp).Offset(0, 4).Resize(,
3).Interior.ColorIndex = 33
NomCol = "toto"
p = Application.Match(NomCol, Sheets("Invites").[A1:Z1], 0)
Sheets("Invites").[A65000].End(xlUp).Offset(0, p -
1).Interior.ColorIndex = 33
End If
Next j
Next i
End Sub

JB

On 16 août, 21:19, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:



Bonsoir,
Les questions amènent des réponses, mais les réponses amènent aussi des
questions....
Ok pour colorier les colonnes 5 à 7.
Mais si je suppose qu'une colonne de ma feuille "Invites"se nomme "toto", sa
position peut varier d'une situation à une autre, comment faire pour
colorier
la
cellule de la ligne que je viens de recopier et qui se trouve à
l'intersection
de la colonne "toto"
Merci
--
Bernard Flavignardwww.guidonchalettois.fr
"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le message de
news:
46c36f76$0$27414$

JB,
C'est si simple.
Mais si je maitrise VBA dans AutoCAD, je suis loin de le faire dans excel.
offset est propre à excel.
Bonne fin de soirée.
--
Bernard Flavignard
www.guidonchalettois.fr
"JB" a écrit dans le message de news:

Colonne 1 à 7:
Sheets("Invites").[A65000].End(xlUp).Resize(,7).Interior.ColorIndex > > > 33

Colonne 5 à 7:
Sheets("Invites").[A65000].End(xlUp).Offset(0, 4).Resize(,
3).Interior.ColorIndex = 33

JB

On 15 août, 23:07, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:
JB,
Quelle rapidité!
Vous êtes, toi et quelques autres, à surveiller ce groupe afin de voir
s'il
n'y
a pas de nouvelles questions?
C'est bien agréable de pouvoir se faire aider aussi rapidement.
Avec Resize(,3) je colorie les colonnes 1 à 3, mais si je veux colorier
les
colonnes 5 à 7 ?
Encore merci

--
Bernard Flavignardwww.guidonchalettois.fr
"JB" a écrit dans le message de news:

Bonsoir,

For i = 2 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Activate
For j = 2 To 300
If Cells(j, 3) = "1" Then
Cells(j, 3).Activate
Rows(ActiveCell.Row).Copy _
Sheets("Invites").[A65000].End(xlUp).Offset(1, 0)
Sheets("Invites").[A65000].End(xlUp).Resize(,
3).Interior.ColorIndex = 33
End If
Next j
Next i

JB

On 15 août, 22:33, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:

Bonsoir,
Ce matin je vous parlais de la copie de lignes depuis les feuilles d'un
classeur
vers la feuille "Invites"
Mon code, qui fonctionne est celui-ci

'Recopie des lignes contenant un 1 en colonne 3
For i = 2 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Activate
'on suppose ne pas avoir plus de 300 lignes dans chaque feuille
For j = 2 To 300
If Cells(j, 3) = "1" Then
Cells(j, 3).Activate
Rows(ActiveCell.Row).Copy
Sheets("Invites").[A65000].End(xlUp).Offset(1, 0)
End If
Next j
Next i

Je voudrais en même temps colorier (remplissage) la ligne que je viens
de
copier
dans la feuille "Invites"
Merci de votre aide.
--
Bernard Flavignardwww.guidonchalettois.fr-Masquerle texte des messages
précédents -


- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -



- Afficher le texte des messages précédents -- Masquer le texte des messages
précédents -


- Afficher le texte des messages précédents -