Erreur 1004 vb: la méthode range à échouer

[Résolu/Fermé]
Signaler
Messages postés
3
Date d'inscription
samedi 30 mars 2013
Statut
Membre
Dernière intervention
31 mars 2013
-
Messages postés
3
Date d'inscription
samedi 30 mars 2013
Statut
Membre
Dernière intervention
31 mars 2013
-
Bonjour,
J'ai un problème d'erreur 1004 à cette ligne:
Interieur = Range("L10C10").InteriorColorIndex
et voici une partie du code(j'épargne la déclaration de TabCouleur):

'Premièrement on cherche le numéro de la ligne de la combobox
For i = 1 To 32
If TabCouleur(i) = cbx_couleurCategorie.ListIndex Then
Couleur = i
End If
Next
'On change le numéro en ligne et colonne(sachant qu'il y a huit colonne par ligne)
While Couleur > 8
Couleur = Couleur - 8
CouleurColonne = CouleurColonne + 1
Wend
'Declaration du conteneur de la couleur de fond en ligne et colonne
Dim L As String
Dim C As String
Dim Interieur As Variant
Dim ConteneurInterieur As Variant
Dim LDouble As Double
Dim CDouble As Double
'On cherche la cellule qui possède la couleur et on le met dans ConteneurInterieur
LDouble = 1048570 + CouleurColonne
CDouble = 16377 + Couleur
L = "L" + CStr(LDouble)
C = "C" + CStr(CDouble)
Interieur = Range("L10C10").InteriorColorIndex
ConteneurInterieur = Range(L + C).InteriorColorIndex
Interieur = ConteneurInterieur

J'ai fouiller sur internet, j'ai essayé divers choses tels que lui spécifié sur quel classeur sont les cellules(sheets("laFeuille"))interchanger le remplissage de ConteneurInterieur avec Interieur( sa fait la même erreur)...mais rien à faire. Quelqu'un saurait ce qui ne marche pas?

4 réponses

Messages postés
16507
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
17 septembre 2021
3 221
Bonjour

Apparemment, des fautes de frappe
Interieur = Range("L10C10").InteriorColorIndex
Interieur = Range("L10:C10").Interior.ColorIndex
ou
C10:L10 + logique mais fonctionne

Michel
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 42674 internautes nous ont dit merci ce mois-ci

Messages postés
2967
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
880
Salut le Forum

Utilise la méthode Cells au lieu de Range

Mytå
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 42674 internautes nous ont dit merci ce mois-ci

Messages postés
3
Date d'inscription
samedi 30 mars 2013
Statut
Membre
Dernière intervention
31 mars 2013

Merci, sa marche pour Interieur, mais il me fait l'erreur maintenant pour ConteneurInterieur, même en corrigeant mon erreur pour Interior.ColorIndex
Messages postés
3
Date d'inscription
samedi 30 mars 2013
Statut
Membre
Dernière intervention
31 mars 2013

Merci bien michel_m et Myta, le problème est résolu!