Colorier ligne recopiée

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4804421
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" 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


Bernard Flavignard
Le #4804401
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"
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" 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


JB
Le #4804391
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" 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"
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" 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 -



Bernard Flavignard
Le #4804371
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"
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" 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"
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" 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 -



Bernard Flavignard
Le #4803471
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" 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"
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" 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"
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" 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 -







JB
Le #4803441
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" 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" 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"
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" 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"
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" 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 -





Bernard Flavignard
Le #4803431
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"
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" 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" 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"
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" 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"
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" 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 -





JB
Le #4803421
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" 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"
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" 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" 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"
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" 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"
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" 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 -






Bernard Flavignard
Le #4663991
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"
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" 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"
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" 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" 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"
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" 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"
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" 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 -






Publicité
Poster une réponse
Anonyme