Erreur 1004 vb: la méthode range à échouer
Résolu
Archorus
Messages postés
3
Statut
Membre
-
Archorus Messages postés 3 Statut Membre -
Archorus Messages postés 3 Statut Membre -
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?
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?
A voir également:
- Erreur 1004 vb: la méthode range à échouer
- Vb - Télécharger - Langages
- Erreur 0x80070643 - Accueil - Windows
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
4 réponses
Bonjour
Apparemment, des fautes de frappe
Interieur = Range("L10C10").InteriorColorIndex
Interieur = Range("L10:C10").Interior.ColorIndex
ou
C10:L10 + logique mais fonctionne
Michel
Apparemment, des fautes de frappe
Interieur = Range("L10C10").InteriorColorIndex
Interieur = Range("L10:C10").Interior.ColorIndex
ou
C10:L10 + logique mais fonctionne
Michel