Y a t-il une possibilité pour colorer une selection des cellules (une ligne
sur 2 seulement) en cliquant sur un bouton sans passer par le format
conditionnel ?
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
sabatier
bonjour josé bon, moi je ne suis pas dans un jardin avec le PC pendu dans le bananier mais j'ai quand même trouvé cela, à adapter :
Sub EnCouleurs() Dim i As Integer
For i = 1 To 1000 Step 2 ActiveWorkbook.ActiveSheet.Range(Cells(i, 1), Cells(i, 5)).Select If Selection.Range("B2").Value = 0 Then Range("A1").Select Exit For End If With Selection.Interior .ColorIndex = 35 .Pattern = xlSolid End With Next i End Sub
HTH jps "José" a écrit dans le message de news:410ce6c3$0$29377$
Bonjour à tous,
Y a t-il une possibilité pour colorer une selection des cellules (une ligne
sur 2 seulement) en cliquant sur un bouton sans passer par le format conditionnel ?
Merci
bonjour josé
bon, moi je ne suis pas dans un jardin avec le PC pendu dans le bananier
mais j'ai quand même trouvé cela, à adapter :
Sub EnCouleurs()
Dim i As Integer
For i = 1 To 1000 Step 2
ActiveWorkbook.ActiveSheet.Range(Cells(i, 1), Cells(i, 5)).Select
If Selection.Range("B2").Value = 0 Then
Range("A1").Select
Exit For
End If
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
Next i
End Sub
HTH
jps
"José" <perez.jose@free.fr> a écrit dans le message de
news:410ce6c3$0$29377$626a14ce@news.free.fr...
Bonjour à tous,
Y a t-il une possibilité pour colorer une selection des cellules (une
ligne
sur 2 seulement) en cliquant sur un bouton sans passer par le format
conditionnel ?
bonjour josé bon, moi je ne suis pas dans un jardin avec le PC pendu dans le bananier mais j'ai quand même trouvé cela, à adapter :
Sub EnCouleurs() Dim i As Integer
For i = 1 To 1000 Step 2 ActiveWorkbook.ActiveSheet.Range(Cells(i, 1), Cells(i, 5)).Select If Selection.Range("B2").Value = 0 Then Range("A1").Select Exit For End If With Selection.Interior .ColorIndex = 35 .Pattern = xlSolid End With Next i End Sub
HTH jps "José" a écrit dans le message de news:410ce6c3$0$29377$
Bonjour à tous,
Y a t-il une possibilité pour colorer une selection des cellules (une ligne
sur 2 seulement) en cliquant sur un bouton sans passer par le format conditionnel ?
Merci
isabelle
bonjour José,
'faire une sélection de plage avant d'exécuter la macro Sub Macro1() For i = 2 To Selection.Rows.Count + 1 Step 2 Rows(i).Interior.ColorIndex = 3 Next End Sub
isabelle
Bonjour à tous,
Y a t-il une possibilité pour colorer une selection des cellules (une ligne sur 2 seulement) en cliquant sur un bouton sans passer par le format conditionnel ?
Merci
bonjour José,
'faire une sélection de plage avant d'exécuter la macro
Sub Macro1()
For i = 2 To Selection.Rows.Count + 1 Step 2
Rows(i).Interior.ColorIndex = 3
Next
End Sub
isabelle
Bonjour à tous,
Y a t-il une possibilité pour colorer une selection des cellules (une ligne
sur 2 seulement) en cliquant sur un bouton sans passer par le format
conditionnel ?
'faire une sélection de plage avant d'exécuter la macro Sub Macro1() For i = 2 To Selection.Rows.Count + 1 Step 2 Rows(i).Interior.ColorIndex = 3 Next End Sub
isabelle
Bonjour à tous,
Y a t-il une possibilité pour colorer une selection des cellules (une ligne sur 2 seulement) en cliquant sur un bouton sans passer par le format conditionnel ?
Merci
José
merci beaucoup José "sabatier" a écrit dans le message de news:
bonjour josé bon, moi je ne suis pas dans un jardin avec le PC pendu dans le bananier mais j'ai quand même trouvé cela, à adapter :
Sub EnCouleurs() Dim i As Integer
For i = 1 To 1000 Step 2 ActiveWorkbook.ActiveSheet.Range(Cells(i, 1), Cells(i, 5)).Select If Selection.Range("B2").Value = 0 Then Range("A1").Select Exit For End If With Selection.Interior .ColorIndex = 35 .Pattern = xlSolid End With Next i End Sub
HTH jps "José" a écrit dans le message de news:410ce6c3$0$29377$
Bonjour à tous,
Y a t-il une possibilité pour colorer une selection des cellules (une ligne
sur 2 seulement) en cliquant sur un bouton sans passer par le format conditionnel ?
Merci
merci beaucoup
José
"sabatier" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le message
de news:OfguE58dEHA.3988@tk2msftngp13.phx.gbl...
bonjour josé
bon, moi je ne suis pas dans un jardin avec le PC pendu dans le bananier
mais j'ai quand même trouvé cela, à adapter :
Sub EnCouleurs()
Dim i As Integer
For i = 1 To 1000 Step 2
ActiveWorkbook.ActiveSheet.Range(Cells(i, 1), Cells(i, 5)).Select
If Selection.Range("B2").Value = 0 Then
Range("A1").Select
Exit For
End If
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
Next i
End Sub
HTH
jps
"José" <perez.jose@free.fr> a écrit dans le message de
news:410ce6c3$0$29377$626a14ce@news.free.fr...
Bonjour à tous,
Y a t-il une possibilité pour colorer une selection des cellules (une
ligne
sur 2 seulement) en cliquant sur un bouton sans passer par le format
conditionnel ?
merci beaucoup José "sabatier" a écrit dans le message de news:
bonjour josé bon, moi je ne suis pas dans un jardin avec le PC pendu dans le bananier mais j'ai quand même trouvé cela, à adapter :
Sub EnCouleurs() Dim i As Integer
For i = 1 To 1000 Step 2 ActiveWorkbook.ActiveSheet.Range(Cells(i, 1), Cells(i, 5)).Select If Selection.Range("B2").Value = 0 Then Range("A1").Select Exit For End If With Selection.Interior .ColorIndex = 35 .Pattern = xlSolid End With Next i End Sub
HTH jps "José" a écrit dans le message de news:410ce6c3$0$29377$
Bonjour à tous,
Y a t-il une possibilité pour colorer une selection des cellules (une ligne
sur 2 seulement) en cliquant sur un bouton sans passer par le format conditionnel ?
Merci
José
ça fonctionne bien merci beaucoup josé "isabelle" a écrit dans le message de news:
bonjour José,
'faire une sélection de plage avant d'exécuter la macro Sub Macro1() For i = 2 To Selection.Rows.Count + 1 Step 2 Rows(i).Interior.ColorIndex = 3 Next End Sub
isabelle
Bonjour à tous,
Y a t-il une possibilité pour colorer une selection des cellules (une ligne
sur 2 seulement) en cliquant sur un bouton sans passer par le format conditionnel ?
Merci
ça fonctionne bien
merci beaucoup
josé
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:410CF511.31CFD331@videotron.ca...
bonjour José,
'faire une sélection de plage avant d'exécuter la macro
Sub Macro1()
For i = 2 To Selection.Rows.Count + 1 Step 2
Rows(i).Interior.ColorIndex = 3
Next
End Sub
isabelle
Bonjour à tous,
Y a t-il une possibilité pour colorer une selection des cellules (une
ligne
sur 2 seulement) en cliquant sur un bouton sans passer par le format
conditionnel ?
ça fonctionne bien merci beaucoup josé "isabelle" a écrit dans le message de news:
bonjour José,
'faire une sélection de plage avant d'exécuter la macro Sub Macro1() For i = 2 To Selection.Rows.Count + 1 Step 2 Rows(i).Interior.ColorIndex = 3 Next End Sub
isabelle
Bonjour à tous,
Y a t-il une possibilité pour colorer une selection des cellules (une ligne
sur 2 seulement) en cliquant sur un bouton sans passer par le format conditionnel ?
Merci
RaMA
Bonjour Sub zebre() For Each c In Selection If c.Row Mod 2 = 0 Then c.Interior.ColorIndex = 3 Next End Sub
Salutations RaMa
-- . "José" a écrit dans le message de news:410ce6c3$0$29377$
Bonjour à tous,
Y a t-il une possibilité pour colorer une selection des cellules (une ligne
sur 2 seulement) en cliquant sur un bouton sans passer par le format conditionnel ?
Merci
Bonjour
Sub zebre()
For Each c In Selection
If c.Row Mod 2 = 0 Then c.Interior.ColorIndex = 3
Next
End Sub
Salutations
RaMa
--
.
"José" <perez.jose@free.fr> a écrit dans le message de
news:410ce6c3$0$29377$626a14ce@news.free.fr...
Bonjour à tous,
Y a t-il une possibilité pour colorer une selection des cellules (une
ligne
sur 2 seulement) en cliquant sur un bouton sans passer par le format
conditionnel ?