Macro simple en panne ?

Le
Guy72
Bonjour
Pourquoi ce code simple ne fonctionne-il pas ?
Peut être y a t-il trop de caractères ?
Merci de votre aide

Private Sub Fond4_Click()
Range("B3:AC5,B6:E6,M6:AC6,B7:AC9,B10:E13,B14:B42,D14:E42,C21:C42,F41:P42,"
_
&"M10:AC42,AM10,AO10,AQ10,AL21,AL23,AL25,G10:G40,I10:I40,K10:K40,C15,C17,C19,"_
& "F11:L11,F13:L13,F15:L15,F17:L17,F19:L19,F21:L21,F23:L23,F25:L25,F27:L27,"
_
& "F29:L29,F31:L31,F33:L33,F35:L35,F37:L37,F39:L39").Interior.ColorIndex = 3
Range("A1").Activate
End Sub

--
Cordialement
Guy
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
papou
Le #17379371
Bonjour
Utilise la méthode Union et là ça passe :
Dim sMaPlage As Range
Set sMaPlage =
Application.Union(Range("B3:AC5,B6:E6,M6:AC6,B7:AC9,B10:E13,B14:B42,D14:E42,C21:C42,F41:P42"),
_
Range("M10:AC42,AM10,AO10,AQ10,AL21,AL23,AL25,G10:G40,I10:I40,K10:K40,C15,C17,C19"),
_
Range("F11:L11,F13:L13,F15:L15,F17:L17,F19:L19,F21:L21,F23:L23,F25:L25,F27:L27"),
_
Range("F29:L29,F31:L31,F33:L33,F35:L35,F37:L37,F39:L39"))
sMaPlage.Interior.ColorIndex = 3

Cordialement
Pascal

"Guy72" e%
Bonjour
Pourquoi ce code simple ne fonctionne-il pas ?
Peut être y a t-il trop de caractères ?
Merci de votre aide

Private Sub Fond4_Click()
Range("B3:AC5,B6:E6,M6:AC6,B7:AC9,B10:E13,B14:B42,D14:E42,C21:C42,F41:P42,"
_
&"M10:AC42,AM10,AO10,AQ10,AL21,AL23,AL25,G10:G40,I10:I40,K10:K40,C15,C17,C19,"_
&
"F11:L11,F13:L13,F15:L15,F17:L17,F19:L19,F21:L21,F23:L23,F25:L25,F27:L27,"
_
& "F29:L29,F31:L31,F33:L33,F35:L35,F37:L37,F39:L39").Interior.ColorIndex =
3
Range("A1").Activate
End Sub

--
Cordialement
Guy



JPMonnier
Le #17379641
Bonjour,
essaie avec cette syntaxe
Range("B3:AC5,B6:E6,M6:AC6,B7:AC9,B10:E13,B14:B42,D14:E42,C21:C42,F41:P42").Activate
Range("M10:AC42,AM10,AO10,AQ10,AL21,AL23,AL25,G10:G40,I10:I40,K10:K40,C15,C17,C19").Activate
Range("F11:L11,F13:L13,F15:L15,F17:L17,F19:L19,F21:L21,F23:L23,F25:L25,F27:L27").Activate
Range("F29:L29,F31:L31,F33:L33,F35:L35,F37:L37,F39:L39").Activate
Selection.Interior.ColorIndex = 3
Range("A1").Activate

--
Cordialement

"Guy72" news:e%
Bonjour
Pourquoi ce code simple ne fonctionne-il pas ?
Peut être y a t-il trop de caractères ?
Merci de votre aide

Private Sub Fond4_Click()
Range("B3:AC5,B6:E6,M6:AC6,B7:AC9,B10:E13,B14:B42,D14:E42,C21:C42,F41:P42,"
_
&"M10:AC42,AM10,AO10,AQ10,AL21,AL23,AL25,G10:G40,I10:I40,K10:K40,C15,C17,C19,"_
&
"F11:L11,F13:L13,F15:L15,F17:L17,F19:L19,F21:L21,F23:L23,F25:L25,F27:L27,"
_
& "F29:L29,F31:L31,F33:L33,F35:L35,F37:L37,F39:L39").Interior.ColorIndex =
3
Range("A1").Activate
End Sub

--
Cordialement
Guy



Guy72
Le #17379851
Bonjour papou,
ça ne fonctionne pas, je dois pas mettre les bonnes lignes ?
http://cjoint.com/?jEkUC0R864
--
Cordialement
Guy

"papou" de news:
Bonjour
Utilise la méthode Union et là ça passe :
Dim sMaPlage As Range
Set sMaPlage =
Application.Union(Range("B3:AC5,B6:E6,M6:AC6,B7:AC9,B10:E13,B14:B42,D14:E42,C21:C42,F41:P42"),
_
Range("M10:AC42,AM10,AO10,AQ10,AL21,AL23,AL25,G10:G40,I10:I40,K10:K40,C15,C17,C19"),
_
Range("F11:L11,F13:L13,F15:L15,F17:L17,F19:L19,F21:L21,F23:L23,F25:L25,F27:L27"),
_
Range("F29:L29,F31:L31,F33:L33,F35:L35,F37:L37,F39:L39"))
sMaPlage.Interior.ColorIndex = 3

Cordialement
Pascal

"Guy72" e%
Bonjour
Pourquoi ce code simple ne fonctionne-il pas ?
Peut être y a t-il trop de caractères ?
Merci de votre aide

Private Sub Fond4_Click()
Range("B3:AC5,B6:E6,M6:AC6,B7:AC9,B10:E13,B14:B42,D14:E42,C21:C42,F41:P42,"
_
&"M10:AC42,AM10,AO10,AQ10,AL21,AL23,AL25,G10:G40,I10:I40,K10:K40,C15,C17,C19,"_
&
"F11:L11,F13:L13,F15:L15,F17:L17,F19:L19,F21:L21,F23:L23,F25:L25,F27:L27,"
_
& "F29:L29,F31:L31,F33:L33,F35:L35,F37:L37,F39:L39").Interior.ColorIndex
= 3
Range("A1").Activate
End Sub

--
Cordialement
Guy







papou
Le #17379841
Guy
Toujours un espace avant l'underscore (_) de passage à la ligne.

Cordialement
Pascal

"Guy72"
Bonjour papou,
ça ne fonctionne pas, je dois pas mettre les bonnes lignes ?
http://cjoint.com/?jEkUC0R864
--
Cordialement
Guy

"papou" message de news:
Bonjour
Utilise la méthode Union et là ça passe :
Dim sMaPlage As Range
Set sMaPlage =
Application.Union(Range("B3:AC5,B6:E6,M6:AC6,B7:AC9,B10:E13,B14:B42,D14:E42,C21:C42,F41:P42"),
_
Range("M10:AC42,AM10,AO10,AQ10,AL21,AL23,AL25,G10:G40,I10:I40,K10:K40,C15,C17,C19"),
_
Range("F11:L11,F13:L13,F15:L15,F17:L17,F19:L19,F21:L21,F23:L23,F25:L25,F27:L27"),
_
Range("F29:L29,F31:L31,F33:L33,F35:L35,F37:L37,F39:L39"))
sMaPlage.Interior.ColorIndex = 3

Cordialement
Pascal

"Guy72" e%
Bonjour
Pourquoi ce code simple ne fonctionne-il pas ?
Peut être y a t-il trop de caractères ?
Merci de votre aide

Private Sub Fond4_Click()
Range("B3:AC5,B6:E6,M6:AC6,B7:AC9,B10:E13,B14:B42,D14:E42,C21:C42,F41:P42,"
_
&"M10:AC42,AM10,AO10,AQ10,AL21,AL23,AL25,G10:G40,I10:I40,K10:K40,C15,C17,C19,"_
&
"F11:L11,F13:L13,F15:L15,F17:L17,F19:L19,F21:L21,F23:L23,F25:L25,F27:L27,"
_
& "F29:L29,F31:L31,F33:L33,F35:L35,F37:L37,F39:L39").Interior.ColorIndex
= 3
Range("A1").Activate
End Sub

--
Cordialement
Guy











Guy72
Le #17379831
Bonjour JP,
ça ne me colore que la dernière ligne
--
Cordialement
Guy
"JPMonnier"
Bonjour,
essaie avec cette syntaxe
Range("B3:AC5,B6:E6,M6:AC6,B7:AC9,B10:E13,B14:B42,D14:E42,C21:C42,F41:P42").Activate
Range("M10:AC42,AM10,AO10,AQ10,AL21,AL23,AL25,G10:G40,I10:I40,K10:K40,C15,C17,C19").Activate
Range("F11:L11,F13:L13,F15:L15,F17:L17,F19:L19,F21:L21,F23:L23,F25:L25,F27:L27").Activate
Range("F29:L29,F31:L31,F33:L33,F35:L35,F37:L37,F39:L39").Activate
Selection.Interior.ColorIndex = 3
Range("A1").Activate

--
Cordialement

"Guy72" news:e%
Bonjour
Pourquoi ce code simple ne fonctionne-il pas ?
Peut être y a t-il trop de caractères ?
Merci de votre aide

Private Sub Fond4_Click()
Range("B3:AC5,B6:E6,M6:AC6,B7:AC9,B10:E13,B14:B42,D14:E42,C21:C42,F41:P42,"
_
&"M10:AC42,AM10,AO10,AQ10,AL21,AL23,AL25,G10:G40,I10:I40,K10:K40,C15,C17,C19,"_
&
"F11:L11,F13:L13,F15:L15,F17:L17,F19:L19,F21:L21,F23:L23,F25:L25,F27:L27,"
_
& "F29:L29,F31:L31,F33:L33,F35:L35,F37:L37,F39:L39").Interior.ColorIndex
= 3
Range("A1").Activate
End Sub

--
Cordialement
Guy






Guy72
Le #17380021
Mais oui sui-je bête, je le savais, et je n'ai pas fais attention (une fois
de plus).
Merci papou
--
Cordialement
Guy

"papou" de news:
Guy
Toujours un espace avant l'underscore (_) de passage à la ligne.

Cordialement
Pascal

"Guy72"
Bonjour papou,
ça ne fonctionne pas, je dois pas mettre les bonnes lignes ?
http://cjoint.com/?jEkUC0R864
--
Cordialement
Guy

"papou" message de news:
Bonjour
Utilise la méthode Union et là ça passe :
Dim sMaPlage As Range
Set sMaPlage =
Application.Union(Range("B3:AC5,B6:E6,M6:AC6,B7:AC9,B10:E13,B14:B42,D14:E42,C21:C42,F41:P42"),
_
Range("M10:AC42,AM10,AO10,AQ10,AL21,AL23,AL25,G10:G40,I10:I40,K10:K40,C15,C17,C19"),
_
Range("F11:L11,F13:L13,F15:L15,F17:L17,F19:L19,F21:L21,F23:L23,F25:L25,F27:L27"),
_
Range("F29:L29,F31:L31,F33:L33,F35:L35,F37:L37,F39:L39"))
sMaPlage.Interior.ColorIndex = 3

Cordialement
Pascal

"Guy72" e%
Bonjour
Pourquoi ce code simple ne fonctionne-il pas ?
Peut être y a t-il trop de caractères ?
Merci de votre aide

Private Sub Fond4_Click()
Range("B3:AC5,B6:E6,M6:AC6,B7:AC9,B10:E13,B14:B42,D14:E42,C21:C42,F41:P42,"
_
&"M10:AC42,AM10,AO10,AQ10,AL21,AL23,AL25,G10:G40,I10:I40,K10:K40,C15,C17,C19,"_
&
"F11:L11,F13:L13,F15:L15,F17:L17,F19:L19,F21:L21,F23:L23,F25:L25,F27:L27,"
_
&
"F29:L29,F31:L31,F33:L33,F35:L35,F37:L37,F39:L39").Interior.ColorIndex
= 3
Range("A1").Activate
End Sub

--
Cordialement
Guy















JPMonnier
Le #17380401
9a fonctionne sur excel 2000
Essaie de remplacer activate par Select
--
Cordialement

"Guy72" news:
Bonjour JP,
ça ne me colore que la dernière ligne
--
Cordialement
Guy
"JPMonnier"
Bonjour,
essaie avec cette syntaxe
Range("B3:AC5,B6:E6,M6:AC6,B7:AC9,B10:E13,B14:B42,D14:E42,C21:C42,F41:P42").Activate
Range("M10:AC42,AM10,AO10,AQ10,AL21,AL23,AL25,G10:G40,I10:I40,K10:K40,C15,C17,C19").Activate
Range("F11:L11,F13:L13,F15:L15,F17:L17,F19:L19,F21:L21,F23:L23,F25:L25,F27:L27").Activate
Range("F29:L29,F31:L31,F33:L33,F35:L35,F37:L37,F39:L39").Activate
Selection.Interior.ColorIndex = 3
Range("A1").Activate

--
Cordialement

"Guy72" news:e%
Bonjour
Pourquoi ce code simple ne fonctionne-il pas ?
Peut être y a t-il trop de caractères ?
Merci de votre aide

Private Sub Fond4_Click()
Range("B3:AC5,B6:E6,M6:AC6,B7:AC9,B10:E13,B14:B42,D14:E42,C21:C42,F41:P42,"
_
&"M10:AC42,AM10,AO10,AQ10,AL21,AL23,AL25,G10:G40,I10:I40,K10:K40,C15,C17,C19,"_
&
"F11:L11,F13:L13,F15:L15,F17:L17,F19:L19,F21:L21,F23:L23,F25:L25,F27:L27,"
_
& "F29:L29,F31:L31,F33:L33,F35:L35,F37:L37,F39:L39").Interior.ColorIndex
= 3
Range("A1").Activate
End Sub

--
Cordialement
Guy










Guy72
Le #17380831
Même chose
--
Cordialement
Guy

"JPMonnier"
9a fonctionne sur excel 2000
Essaie de remplacer activate par Select
--
Cordialement

"Guy72" news:
Bonjour JP,
ça ne me colore que la dernière ligne
--
Cordialement
Guy
"JPMonnier"
Bonjour,
essaie avec cette syntaxe
Range("B3:AC5,B6:E6,M6:AC6,B7:AC9,B10:E13,B14:B42,D14:E42,C21:C42,F41:P42").Activate
Range("M10:AC42,AM10,AO10,AQ10,AL21,AL23,AL25,G10:G40,I10:I40,K10:K40,C15,C17,C19").Activate
Range("F11:L11,F13:L13,F15:L15,F17:L17,F19:L19,F21:L21,F23:L23,F25:L25,F27:L27").Activate
Range("F29:L29,F31:L31,F33:L33,F35:L35,F37:L37,F39:L39").Activate
Selection.Interior.ColorIndex = 3
Range("A1").Activate

--
Cordialement

"Guy72" news:e%
Bonjour
Pourquoi ce code simple ne fonctionne-il pas ?
Peut être y a t-il trop de caractères ?
Merci de votre aide

Private Sub Fond4_Click()
Range("B3:AC5,B6:E6,M6:AC6,B7:AC9,B10:E13,B14:B42,D14:E42,C21:C42,F41:P42,"
_
&"M10:AC42,AM10,AO10,AQ10,AL21,AL23,AL25,G10:G40,I10:I40,K10:K40,C15,C17,C19,"_
&
"F11:L11,F13:L13,F15:L15,F17:L17,F19:L19,F21:L21,F23:L23,F25:L25,F27:L27,"
_
&
"F29:L29,F31:L31,F33:L33,F35:L35,F37:L37,F39:L39").Interior.ColorIndex
= 3
Range("A1").Activate
End Sub

--
Cordialement
Guy













JPMonnier
Le #17384511
Fichier qui fonctionne chez moi
http://cjoint.com/?jEqyfF00lh

--
Cordialement

"Guy72" news:Otg%
Même chose
--
Cordialement
Guy

"JPMonnier"
9a fonctionne sur excel 2000
Essaie de remplacer activate par Select
--
Cordialement

"Guy72" news:
Bonjour JP,
ça ne me colore que la dernière ligne
--
Cordialement
Guy
"JPMonnier"
Bonjour,
essaie avec cette syntaxe
Range("B3:AC5,B6:E6,M6:AC6,B7:AC9,B10:E13,B14:B42,D14:E42,C21:C42,F41:P42").Activate
Range("M10:AC42,AM10,AO10,AQ10,AL21,AL23,AL25,G10:G40,I10:I40,K10:K40,C15,C17,C19").Activate
Range("F11:L11,F13:L13,F15:L15,F17:L17,F19:L19,F21:L21,F23:L23,F25:L25,F27:L27").Activate
Range("F29:L29,F31:L31,F33:L33,F35:L35,F37:L37,F39:L39").Activate
Selection.Interior.ColorIndex = 3
Range("A1").Activate

--
Cordialement

"Guy72" news:e%
Bonjour
Pourquoi ce code simple ne fonctionne-il pas ?
Peut être y a t-il trop de caractères ?
Merci de votre aide

Private Sub Fond4_Click()
Range("B3:AC5,B6:E6,M6:AC6,B7:AC9,B10:E13,B14:B42,D14:E42,C21:C42,F41:P42,"
_
&"M10:AC42,AM10,AO10,AQ10,AL21,AL23,AL25,G10:G40,I10:I40,K10:K40,C15,C17,C19,"_
&
"F11:L11,F13:L13,F15:L15,F17:L17,F19:L19,F21:L21,F23:L23,F25:L25,F27:L27,"
_
&
"F29:L29,F31:L31,F33:L33,F35:L35,F37:L37,F39:L39").Interior.ColorIndex
= 3
Range("A1").Activate
End Sub

--
Cordialement
Guy

















Guy72
Le #17385731
Salut JP
J'ai Excel 2003 avec XP
Le résultat est toujours le même, j'ai que la dernière ligne F29 àL39.
--
Cordialement
Guy

"JPMonnier"
Fichier qui fonctionne chez moi
http://cjoint.com/?jEqyfF00lh

--
Cordialement

"Guy72" news:Otg%
Même chose
--
Cordialement
Guy

"JPMonnier"
9a fonctionne sur excel 2000
Essaie de remplacer activate par Select
--
Cordialement

"Guy72" news:
Bonjour JP,
ça ne me colore que la dernière ligne
--
Cordialement
Guy
"JPMonnier" news:
Bonjour,
essaie avec cette syntaxe
Range("B3:AC5,B6:E6,M6:AC6,B7:AC9,B10:E13,B14:B42,D14:E42,C21:C42,F41:P42").Activate
Range("M10:AC42,AM10,AO10,AQ10,AL21,AL23,AL25,G10:G40,I10:I40,K10:K40,C15,C17,C19").Activate
Range("F11:L11,F13:L13,F15:L15,F17:L17,F19:L19,F21:L21,F23:L23,F25:L25,F27:L27").Activate
Range("F29:L29,F31:L31,F33:L33,F35:L35,F37:L37,F39:L39").Activate
Selection.Interior.ColorIndex = 3
Range("A1").Activate

--
Cordialement

"Guy72" news:e%
Bonjour
Pourquoi ce code simple ne fonctionne-il pas ?
Peut être y a t-il trop de caractères ?
Merci de votre aide

Private Sub Fond4_Click()
Range("B3:AC5,B6:E6,M6:AC6,B7:AC9,B10:E13,B14:B42,D14:E42,C21:C42,F41:P42,"
_
&"M10:AC42,AM10,AO10,AQ10,AL21,AL23,AL25,G10:G40,I10:I40,K10:K40,C15,C17,C19,"_
&
"F11:L11,F13:L13,F15:L15,F17:L17,F19:L19,F21:L21,F23:L23,F25:L25,F27:L27,"
_
&
"F29:L29,F31:L31,F33:L33,F35:L35,F37:L37,F39:L39").Interior.ColorIndex
= 3
Range("A1").Activate
End Sub

--
Cordialement
Guy




















Publicité
Poster une réponse
Anonyme