Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Macro simple en panne ?

Macro simple en panne ?

18 réponses
Avatar
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
Signaler un problème avec ce contenu

10 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
1 2
Avatar
papou
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" a écrit dans le message de 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



Avatar
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" a écrit dans le message de
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



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

"papou" a écrit dans le 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" a écrit dans le message de 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







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

Cordialement
Pascal

"Guy72" a écrit dans le message de news:

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

"papou" a écrit dans le
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" a écrit dans le message de 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











Avatar
Guy72
Bonjour JP,
ça ne me colore que la dernière ligne
--
Cordialement
Guy
"JPMonnier" a écrit dans le message de 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" a écrit dans le message de
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






Avatar
Guy72
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" a écrit dans le message
de news:
Guy
Toujours un espace avant l'underscore (_) de passage à la ligne.

Cordialement
Pascal

"Guy72" a écrit dans le message de news:

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

"papou" a écrit dans le
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" a écrit dans le message de 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















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

"Guy72" a écrit dans le message de
news:
Bonjour JP,
ça ne me colore que la dernière ligne
--
Cordialement
Guy
"JPMonnier" a écrit dans le message de 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" a écrit dans le message de
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










Avatar
Guy72
Même chose
--
Cordialement
Guy

"JPMonnier" a écrit dans le message de news:

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

"Guy72" a écrit dans le message de
news:
Bonjour JP,
ça ne me colore que la dernière ligne
--
Cordialement
Guy
"JPMonnier" a écrit dans le message de 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" a écrit dans le message de
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













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

--
Cordialement

"Guy72" a écrit dans le message de
news:Otg%
Même chose
--
Cordialement
Guy

"JPMonnier" a écrit dans le message de news:

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

"Guy72" a écrit dans le message de
news:
Bonjour JP,
ça ne me colore que la dernière ligne
--
Cordialement
Guy
"JPMonnier" a écrit dans le message de 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" a écrit dans le message de
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

















Avatar
Guy72
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" a écrit dans le message de news:

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

--
Cordialement

"Guy72" a écrit dans le message de
news:Otg%
Même chose
--
Cordialement
Guy

"JPMonnier" a écrit dans le message de news:

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

"Guy72" a écrit dans le message de
news:
Bonjour JP,
ça ne me colore que la dernière ligne
--
Cordialement
Guy
"JPMonnier" a écrit dans le message de
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" a écrit dans le message de
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




















1 2