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

8 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
Jacky
Bonsoir,
Là....c'est un retour en arrière....vers la sélection "inutile"...
Applique la solution de papou que tu approuves d'ailleurs.
;o))

--
Salutations
JJ


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




Avatar
JPMonnier
Re
En A1 tu entres ta couleur ex 5
click sur le bouton
ça doit marcher
http://cjoint.com/?jEuUh2kcho

--
Cordialement

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
























Avatar
Guy72
Ok ça fonctionne.
--
Cordialement
Guy
"JPMonnier" a écrit dans le message de news:

Re
En A1 tu entres ta couleur ex 5
click sur le bouton
ça doit marcher
http://cjoint.com/?jEuUh2kcho

--
Cordialement

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



























Avatar
Guy72
Bonjour JP
Ton idée est bonne, le code est plus gros, mais je n'ai pas besoin de
refaire un code pour chaque couleur.
J'ai une petit idée !...
Serait-il possible de remplacer la cellule A1 par un bouton qui
incrémenterais le N° de 3 à 8 (ou plus) 3,4,5,6,7,
8,3,4,5,6,7,8,.......etc ?
--
Cordialement
Guy

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

Re
En A1 tu entres ta couleur ex 5
click sur le bouton
ça doit marcher
http://cjoint.com/?jEuUh2kcho

--
Cordialement

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



























Avatar
Guy72
Re
Finalement avec une liste déroulante, je peux avoir toutes les couleur
possible
--
Cordialement
Guy

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

Re
En A1 tu entres ta couleur ex 5
click sur le bouton
ça doit marcher
http://cjoint.com/?jEuUh2kcho

--
Cordialement

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



























Avatar
JPMonnier
Bonjour,
Je te propose cela
http://cjoint.com/?kbk5FwVSOe

--
Cordialement


"Guy72" a écrit dans le message de
news:%23f1s%
Bonjour JP
Ton idée est bonne, le code est plus gros, mais je n'ai pas besoin de
refaire un code pour chaque couleur.
J'ai une petit idée !...
Serait-il possible de remplacer la cellule A1 par un bouton qui
incrémenterais le N° de 3 à 8 (ou plus) 3,4,5,6,7,
8,3,4,5,6,7,8,.......etc ?
--
Cordialement
Guy

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

Re
En A1 tu entres ta couleur ex 5
click sur le bouton
ça doit marcher
http://cjoint.com/?jEuUh2kcho

--
Cordialement

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































Avatar
Guy72
Bonjour,
Ok merci JP, maintenant, je crois que j'ai vraiment le choix.
--
Cordialement
Guy

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

Bonjour,
Je te propose cela
http://cjoint.com/?kbk5FwVSOe

--
Cordialement


"Guy72" a écrit dans le message de
news:%23f1s%
Bonjour JP
Ton idée est bonne, le code est plus gros, mais je n'ai pas besoin de
refaire un code pour chaque couleur.
J'ai une petit idée !...
Serait-il possible de remplacer la cellule A1 par un bouton qui
incrémenterais le N° de 3 à 8 (ou plus) 3,4,5,6,7,
8,3,4,5,6,7,8,.......etc ?
--
Cordialement
Guy

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

Re
En A1 tu entres ta couleur ex 5
click sur le bouton
ça doit marcher
http://cjoint.com/?jEuUh2kcho

--
Cordialement

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


































Avatar
Guy72
Bonjour JP
Finalement est-il possible d"avoir la couleur sans le bouton
--
Cordialement
Guy

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

Re
En A1 tu entres ta couleur ex 5
click sur le bouton
ça doit marcher
http://cjoint.com/?jEuUh2kcho

--
Cordialement

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