Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème de selections multiples

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion yaacoubi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Y

yaacoubi

Guest
Bonjour tout le monde,
ça fait pas mal de temps que je me bats pour savoir pourquoi le code suivant ne s'exécute pas:

Sub CellulesDeCouleurs()
Dim ColorIndex As Integer '1
Sheets("Feuil1").Select '2
ColorIndex = Cells(2, 10).Interior.ColorIndex '3
Range("A1:G21").Select '4
Selection.Copy '5
Sheets("Feuil2").Select '6
Range("A1").Select '7
ActiveSheet.Paste '8
Range("A1").Select '9
Set Plage1 = Range("B5:G10") '10
Set Plage2 = Range("B16:G21") '11
Set Plages = Union(Plage1, Plage2) '12
For Each Cll In Plages '13
If Cll.Interior.ColorIndex <> ColorIndex Then plg = plg & Cll.Address() & "," '14
Next Cll '15
If Len(plg) > 0 Then Range(Left(plg, Len(plg) - 1)).Select '16
Selection.ClearContents '17
Selection.Interior.ColorIndex = xlNone '18
End Sub

j'ai coloré les cellules des plages indiquées dans le code ci-dessus par différentes couleurs et je ne veux garder dans la deuxième feuille que la couleur de la cellule (2,10) (ligne 3 du code).
Le code s'exécute sans problème si je remplace le signe <> par = dans la ligne 14 du code par contre en présence du signe <> il indique le message d'erreur suivant : La méthode Range de l'objet global a échoué
Est ce qu'il y a quelqu'un qui peut m'aider et merci d'avance.
 
Trier par date Trier par votes
Re : Problème de selections multiples

Bonsoir

dans ta ligne de code :

Code: 
If Cll.Interior.ColorIndex <> ColorIndex Then plg = plg & Cll.Address() & "," '14

tu utilises "ColorIndex" comme variable, alors que c'est déjà un mot utilisé par vba. Modifies peut être ce nom. Ensuite tu fais référence à "plg", cette variable n'est définie nul part et sauf erreur de ma part elle n'est pas initialisée.

bonne soirée.
@+
 
Vote positif 0 Vote négatif
Re : Problème de selections multiples

Salut Yaacoubi,

Sans tester, règle n° 1 : Ne JAMAIS nommer une variable comme une propriété existante dans le vba. Apelle-la StroumphColorIndex si tu veux, mais pas ColorIndex! 🙄 ( je suis même surpris que vba t'ait laissé faire... As tu activé "option explicit"?)

J'essaie de voir si le problème vient de là.

Edit : salut Pierrot 🙂
 
Vote positif 0 Vote négatif
Re : Problème de selections multiples

Bonsoir,

la variable "Dim ColorIndex As Integer '1" correspond à un mot réservé de VBA ce qui doit provoquer le Pb appelez le SauveColorIndex est je pense que cela va fonctionner

GIBI
 
Vote positif 0 Vote négatif
Re : Problème de selections multiples


Bonjour à tous et merci pour les remarques
Je crois que le problème est un problème de débordement (Overflow) car si je réduis la plage le problème ne se pose pas.
Merci
 
Vote positif 0 Vote négatif
Re : Problème de selections multiples

Bonsoir tout le monde,

mis à part le problème que tu as (avais?), voici un code "allégé" des "Select" qui sont très souvent inutile en VBA et qui en plus ralentie l'exécution du code:

Code: 
Sub CellulesDeCouleurs()
  Dim MyColorIndex As Integer  '1
  With Sheets("Feuil1")  '2
    MyColorIndex = .Cells(2, 10).Interior.ColorIndex  '3
    .Range("A1:G21").Copy Sheets("Feuil2").Range("A1")
  End With
  With Sheets("Feuil2")
    Set Plage1 = .Range("B5:G10")  '10
    Set Plage2 = .Range("B16:G21")  '11
  End With
  Set Plages = Union(Plage1, Plage2)  '12
  For Each Cll In Plages  '13
    If Cll.Interior.ColorIndex <> MyColorIndex Then plg = plg & Cll.Address() & ","  '14
  Next Cll  '15
  If Len(plg) > 0 Then Range(Left(plg, Len(plg) - 1)).ClearContents
  Range(Left(plg, Len(plg) - 1)).Interior.ColorIndex = xlNone  '18
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Y a t'il plus simple pour la formule
Réponses
5
Affichages
482
PORCHER
  • Question Question
Microsoft 365 Boucle sur plages nommées
Réponses
11
Affichages
897
Calvus
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
932
Zonmé
Z
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
Q
  • Résolu(e)
Microsoft 365 Exécutions directes différentes vs "pas à pas"
Réponses
2
Affichages
676
Quentin2106
Q
M
  • Question Question
Microsoft 365 Joindre une copie de 2 feuilles Excel dans outlook
Réponses
0
Affichages
668
Mika07
M
J
  • Question Question
XL 2019 Borné une extraction par date
2
Réponses
22
Affichages
3 K
jui42
J
L
  • Résolu(e)
XL 2019 Formulaire Excel - TxtBox avec couleur de la celle associée
Réponses
4
Affichages
806
Lindsay_RBD
L
T
  • Question Question
XL 2016 [VBA] problème macro EXCEL ne réponds pas
Réponses
11
Affichages
2 K
terry08200
T
  • Question Question
Autres Création de Graphe sur excel 2007
Réponses
0
Affichages
723
kkamadou
  • Question Question
Autres CREATION DE GRAPHIQUE
Réponses
0
Affichages
844
kkamadou
  • Question Question
Microsoft 365 Simplification de code
Réponses
1
Affichages
1 K
GADENSEB
  • Question Question
Microsoft 365 Gros problème de ralentissement au lancement d'un inputbox
3 4 5
Réponses
60
Affichages
6 K
soan
S
T
  • Question Question
XL 2019 Worksheet_change fait planté excel
Réponses
6
Affichages
983
thespeedy20
T
W
  • Question Question
Microsoft 365 Ecrire dans une cellule de tous les fichiers des sous-dossiers avec choix du dossier de base
Réponses
1
Affichages
1 K
patricktoulon
  • Question Question
XL 2016 [Résolu] - [VBA] Récupérer le nom de la feuille 1 d'un fichier externe ouvert dans la procédure
Réponses
5
Affichages
2 K
Fredox
S
  • Résolu(e)
XL 2013 Méthode de sélection alternative
Réponses
4
Affichages
2 K
stage_ferrit
S
R
  • Question Question
XL 2019 Probleme de code VBA
Réponses
1
Affichages
1 K
ChTi160
C
  • Question Question
CREATION DE PLUSIEURS TCD VBA
2
Réponses
23
Affichages
4 K
Charles78
C
P
  • Question Question
XL 2016 code formulaire de saisie
2
Réponses
29
Affichages
4 K
Phylo
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…