Voila j'aimerai qu'ne macro commence a partire d'une certaiane ligne
(128)
Pour la couleurs de la cellule c'ests Ok par contre pour les polices
cela me pose un problème.
En faite j'ai des colonnes qui prendrons la couleurs de colonnes
références par l'appuis sur un bouton "Go pour police", je m'explique.
Les colonnes C à H seron les colonnes de référence pour les couleurs
de police des colonnes respective J à O mais qu'a partire de la ligne
128
Donc si je mets un couleurs de police bleu a la cellule C120lors du
clique sur le bouton "Go pour police" , il ne devrait rien se passer
en cellule J120,
Par-contre si je mets une couleur de police rouge en cellule C128 lors
du clique sur le bouton "Go pour police" cela devrait me mettre la
couleur rouge dans la cellule J128.
Je vous joint le code et espère avoir été claire.
Sub Couleur(Plagedep As Range, decalage As Byte)
Dim cell As Range
For Each cell In Plagedep
If cell.Interior.ColorIndex = 3 Then
cell.Offset(0, decalage).Value = 1
cell.Offset(0, decalage).Interior.ColorIndex = 3
End If
Next cell
End Sub
Sub principal()
Call Couleur(Range("C128:H1000"), 7)
Call Couleur(Range("Q128:V1000"), 7)
End Sub
Public Sub titi()
ActiveCell.Offset(rowOffset:=128, columnOffset:=0).Activate
Worksheets("Feuil2").Activate
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
Frédéric Sigonneau
Bonjour,
Essaye d'affecter une macro de ce style à ton bouton "Go pour police" :
Sub GoPourPolice() Dim cell As Range For Each cell In Selection If cell.Row > 127 Then cell.Offset(, 7).Font.ColorIndex = cell.Font.ColorIndex End If Next End Sub
Dans une plage sélectionnée, la macro reproduit la couleur de la police 7 colonnes plus à droite, si la ligne est supérieure à 127. Si ça peut te donner un début de solution..
FS
Bonjour le forum
Voila j'aimerai qu'ne macro commence a partire d'une certaiane ligne (128)
Pour la couleurs de la cellule c'ests Ok par contre pour les polices cela me pose un problème.
En faite j'ai des colonnes qui prendrons la couleurs de colonnes références par l'appuis sur un bouton "Go pour police", je m'explique.
Les colonnes C à H seron les colonnes de référence pour les couleurs de police des colonnes respective J à O mais qu'a partire de la ligne 128
Donc si je mets un couleurs de police bleu a la cellule C120lors du clique sur le bouton "Go pour police" , il ne devrait rien se passer en cellule J120,
Par-contre si je mets une couleur de police rouge en cellule C128 lors du clique sur le bouton "Go pour police" cela devrait me mettre la couleur rouge dans la cellule J128.
Je vous joint le code et espère avoir été claire.
Sub Couleur(Plagedep As Range, decalage As Byte) Dim cell As Range For Each cell In Plagedep If cell.Interior.ColorIndex = 3 Then cell.Offset(0, decalage).Value = 1 cell.Offset(0, decalage).Interior.ColorIndex = 3 End If Next cell End Sub
Sub principal() Call Couleur(Range("C128:H1000"), 7) Call Couleur(Range("Q128:V1000"), 7) End Sub
Public Sub titi() ActiveCell.Offset(rowOffset:8, columnOffset:=0).Activate Worksheets("Feuil2").Activate
Range("AB" & I).Font.ColorIndex = Range("U" & I).Font.ColorIndex Range("AC" & I).Font.ColorIndex = Range("V" & I).Font.ColorIndex Next I End Sub
Je vous remercie encore pour votre aide, qui m'a déja étée si précieuse jusqu'a maintenant, Jacques
-- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Essaye d'affecter une macro de ce style à ton bouton "Go pour police" :
Sub GoPourPolice()
Dim cell As Range
For Each cell In Selection
If cell.Row > 127 Then
cell.Offset(, 7).Font.ColorIndex = cell.Font.ColorIndex
End If
Next
End Sub
Dans une plage sélectionnée, la macro reproduit la couleur de la police 7
colonnes plus à droite, si la ligne est supérieure à 127.
Si ça peut te donner un début de solution..
FS
Bonjour le forum
Voila j'aimerai qu'ne macro commence a partire d'une certaiane ligne
(128)
Pour la couleurs de la cellule c'ests Ok par contre pour les polices
cela me pose un problème.
En faite j'ai des colonnes qui prendrons la couleurs de colonnes
références par l'appuis sur un bouton "Go pour police", je m'explique.
Les colonnes C à H seron les colonnes de référence pour les couleurs
de police des colonnes respective J à O mais qu'a partire de la ligne
128
Donc si je mets un couleurs de police bleu a la cellule C120lors du
clique sur le bouton "Go pour police" , il ne devrait rien se passer
en cellule J120,
Par-contre si je mets une couleur de police rouge en cellule C128 lors
du clique sur le bouton "Go pour police" cela devrait me mettre la
couleur rouge dans la cellule J128.
Je vous joint le code et espère avoir été claire.
Sub Couleur(Plagedep As Range, decalage As Byte)
Dim cell As Range
For Each cell In Plagedep
If cell.Interior.ColorIndex = 3 Then
cell.Offset(0, decalage).Value = 1
cell.Offset(0, decalage).Interior.ColorIndex = 3
End If
Next cell
End Sub
Sub principal()
Call Couleur(Range("C128:H1000"), 7)
Call Couleur(Range("Q128:V1000"), 7)
End Sub
Public Sub titi()
ActiveCell.Offset(rowOffset:8, columnOffset:=0).Activate
Worksheets("Feuil2").Activate
Range("AB" & I).Font.ColorIndex = Range("U" & I).Font.ColorIndex
Range("AC" & I).Font.ColorIndex = Range("V" & I).Font.ColorIndex
Next I
End Sub
Je vous remercie encore pour votre aide, qui m'a déja étée si
précieuse jusqu'a maintenant, Jacques
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Essaye d'affecter une macro de ce style à ton bouton "Go pour police" :
Sub GoPourPolice() Dim cell As Range For Each cell In Selection If cell.Row > 127 Then cell.Offset(, 7).Font.ColorIndex = cell.Font.ColorIndex End If Next End Sub
Dans une plage sélectionnée, la macro reproduit la couleur de la police 7 colonnes plus à droite, si la ligne est supérieure à 127. Si ça peut te donner un début de solution..
FS
Bonjour le forum
Voila j'aimerai qu'ne macro commence a partire d'une certaiane ligne (128)
Pour la couleurs de la cellule c'ests Ok par contre pour les polices cela me pose un problème.
En faite j'ai des colonnes qui prendrons la couleurs de colonnes références par l'appuis sur un bouton "Go pour police", je m'explique.
Les colonnes C à H seron les colonnes de référence pour les couleurs de police des colonnes respective J à O mais qu'a partire de la ligne 128
Donc si je mets un couleurs de police bleu a la cellule C120lors du clique sur le bouton "Go pour police" , il ne devrait rien se passer en cellule J120,
Par-contre si je mets une couleur de police rouge en cellule C128 lors du clique sur le bouton "Go pour police" cela devrait me mettre la couleur rouge dans la cellule J128.
Je vous joint le code et espère avoir été claire.
Sub Couleur(Plagedep As Range, decalage As Byte) Dim cell As Range For Each cell In Plagedep If cell.Interior.ColorIndex = 3 Then cell.Offset(0, decalage).Value = 1 cell.Offset(0, decalage).Interior.ColorIndex = 3 End If Next cell End Sub
Sub principal() Call Couleur(Range("C128:H1000"), 7) Call Couleur(Range("Q128:V1000"), 7) End Sub
Public Sub titi() ActiveCell.Offset(rowOffset:8, columnOffset:=0).Activate Worksheets("Feuil2").Activate
Range("AB" & I).Font.ColorIndex = Range("U" & I).Font.ColorIndex Range("AC" & I).Font.ColorIndex = Range("V" & I).Font.ColorIndex Next I End Sub
Je vous remercie encore pour votre aide, qui m'a déja étée si précieuse jusqu'a maintenant, Jacques
-- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
jacques-zeziola
Frédéric
Merci de ta réponse, je vais essayer cela tout de suite, et te paye le champagne, Tchin.
merci beaucoup, jacques
wrote in message news:...
Bonjour le forum
Voila j'aimerai qu'ne macro commence a partire d'une certaiane ligne (128)
Pour la couleurs de la cellule c'ests Ok par contre pour les polices cela me pose un problème.
En faite j'ai des colonnes qui prendrons la couleurs de colonnes références par l'appuis sur un bouton "Go pour police", je m'explique.
Les colonnes C à H seron les colonnes de référence pour les couleurs de police des colonnes respective J à O mais qu'a partire de la ligne 128
Donc si je mets un couleurs de police bleu a la cellule C120lors du clique sur le bouton "Go pour police" , il ne devrait rien se passer en cellule J120,
Par-contre si je mets une couleur de police rouge en cellule C128 lors du clique sur le bouton "Go pour police" cela devrait me mettre la couleur rouge dans la cellule J128.
Je vous joint le code et espère avoir été claire.
Sub Couleur(Plagedep As Range, decalage As Byte) Dim cell As Range For Each cell In Plagedep If cell.Interior.ColorIndex = 3 Then cell.Offset(0, decalage).Value = 1 cell.Offset(0, decalage).Interior.ColorIndex = 3 End If Next cell End Sub
Sub principal() Call Couleur(Range("C128:H1000"), 7) Call Couleur(Range("Q128:V1000"), 7) End Sub
Public Sub titi() ActiveCell.Offset(rowOffset:8, columnOffset:=0).Activate Worksheets("Feuil2").Activate
Range("AB" & I).Font.ColorIndex = Range("U" & I).Font.ColorIndex Range("AC" & I).Font.ColorIndex = Range("V" & I).Font.ColorIndex Next I End Sub
Je vous remercie encore pour votre aide, qui m'a déja étée si précieuse jusqu'a maintenant, Jacques
Frédéric
Merci de ta réponse, je vais essayer cela tout de suite, et te paye le
champagne, Tchin.
merci beaucoup, jacques
jacques-zeziola@wanadoo.fr wrote in message news:<5ee3abf8.0310040430.1bfef7c0@posting.google.com>...
Bonjour le forum
Voila j'aimerai qu'ne macro commence a partire d'une certaiane ligne
(128)
Pour la couleurs de la cellule c'ests Ok par contre pour les polices
cela me pose un problème.
En faite j'ai des colonnes qui prendrons la couleurs de colonnes
références par l'appuis sur un bouton "Go pour police", je m'explique.
Les colonnes C à H seron les colonnes de référence pour les couleurs
de police des colonnes respective J à O mais qu'a partire de la ligne
128
Donc si je mets un couleurs de police bleu a la cellule C120lors du
clique sur le bouton "Go pour police" , il ne devrait rien se passer
en cellule J120,
Par-contre si je mets une couleur de police rouge en cellule C128 lors
du clique sur le bouton "Go pour police" cela devrait me mettre la
couleur rouge dans la cellule J128.
Je vous joint le code et espère avoir été claire.
Sub Couleur(Plagedep As Range, decalage As Byte)
Dim cell As Range
For Each cell In Plagedep
If cell.Interior.ColorIndex = 3 Then
cell.Offset(0, decalage).Value = 1
cell.Offset(0, decalage).Interior.ColorIndex = 3
End If
Next cell
End Sub
Sub principal()
Call Couleur(Range("C128:H1000"), 7)
Call Couleur(Range("Q128:V1000"), 7)
End Sub
Public Sub titi()
ActiveCell.Offset(rowOffset:8, columnOffset:=0).Activate
Worksheets("Feuil2").Activate
Merci de ta réponse, je vais essayer cela tout de suite, et te paye le champagne, Tchin.
merci beaucoup, jacques
wrote in message news:...
Bonjour le forum
Voila j'aimerai qu'ne macro commence a partire d'une certaiane ligne (128)
Pour la couleurs de la cellule c'ests Ok par contre pour les polices cela me pose un problème.
En faite j'ai des colonnes qui prendrons la couleurs de colonnes références par l'appuis sur un bouton "Go pour police", je m'explique.
Les colonnes C à H seron les colonnes de référence pour les couleurs de police des colonnes respective J à O mais qu'a partire de la ligne 128
Donc si je mets un couleurs de police bleu a la cellule C120lors du clique sur le bouton "Go pour police" , il ne devrait rien se passer en cellule J120,
Par-contre si je mets une couleur de police rouge en cellule C128 lors du clique sur le bouton "Go pour police" cela devrait me mettre la couleur rouge dans la cellule J128.
Je vous joint le code et espère avoir été claire.
Sub Couleur(Plagedep As Range, decalage As Byte) Dim cell As Range For Each cell In Plagedep If cell.Interior.ColorIndex = 3 Then cell.Offset(0, decalage).Value = 1 cell.Offset(0, decalage).Interior.ColorIndex = 3 End If Next cell End Sub
Sub principal() Call Couleur(Range("C128:H1000"), 7) Call Couleur(Range("Q128:V1000"), 7) End Sub
Public Sub titi() ActiveCell.Offset(rowOffset:8, columnOffset:=0).Activate Worksheets("Feuil2").Activate
