Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Une erreur sur : Set rgCCCC = Range(["rgAAAA"]).Offset(, 1)

Une erreur sur : Set rgCCCC = Range(["rgAAAA"]).Offset(, 1)

3 réponses
Avatar
Tintin92
Bonjour,

J'ai le message d'erreur :
Erreur 1004
La m=E9thode 'Range' de l'objet '_Worksheet' a =E9chou=E9
sur la ligne de code suivant :
Set rgCCCC =3D Range(["rgAAAA"]).Offset(, 1)

Le code complet est :

Private Sub CommandButton1_Click()
Set rgAAAA =3D Range([A10], [A30])
rgAAAA.Interior.ColorIndex =3D 6
rgAAAA.Interior.Pattern =3D xlSolid
Set rgCCCC =3D Range(["rgAAAA"]).Offset(, 1)
rgCCCC.Interior.ColorIndex =3D 7
rgCCCC.Interior.Pattern =3D xlSolid
End Sub

Ou est mon erreur?

Merci

Tintin92
Signaler un problème avec ce contenu

3 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
Avatar
Pounet95
Bonsoir,
Puisque rgAAA est déjà un objet Range :

set rgCCC=rgAAA.offset(,1) suffit

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

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

Bonjour,

J'ai le message d'erreur :
Erreur 1004
La méthode 'Range' de l'objet '_Worksheet' a échoué
sur la ligne de code suivant :
Set rgCCCC = Range(["rgAAAA"]).Offset(, 1)

Le code complet est :

Private Sub CommandButton1_Click()
Set rgAAAA = Range([A10], [A30])
rgAAAA.Interior.ColorIndex = 6
rgAAAA.Interior.Pattern = xlSolid
Set rgCCCC = Range(["rgAAAA"]).Offset(, 1)
rgCCCC.Interior.ColorIndex = 7
rgCCCC.Interior.Pattern = xlSolid
End Sub

Ou est mon erreur?

Merci

Tintin92
Avatar
Tintin92
Merci.

Tintin92
Avatar
Pounet95
Mais de rien, c'est du vécu dont j'arrive encore à me rappeler.
Bonne soirée

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

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

Merci.

Tintin92