Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel VBA Ma première procédure test me retourne une erreur 424.

VBA Ma première procédure test me retourne une erreur 424.

5 réponses
Avatar
Tintin92
Bonjour,

J'essaie d'=E9crire une premi=E8re proc=E9dure en VBA.

Private Sub CommandButton6_Click()
Set rgCouleurs =3D Range("D23:D33")
For Each c In rgCouleurs
AfficheCouleur rgCouleurs.Text, rgCouleurs.Text.Offset(, 1)
Next c
End Sub

Voil=E0 la procedure que j'ai =E9crite dans le Module3

Sub AfficheCouleur(strCouleur$, Valeur$)
MsgBox (strCouleur + Valeur)
End Sub

dans rgCouleurs il y a :

Blanc Bon
Bleu Passable
Blanc Tr=E8s bien
Jaune Bien
=09
Excel fait une erreur 424 sur ce magnifique code ;-)

Merci

Tintin92
Signaler un problème avec ce contenu

5 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
isabelle
bonjour Tintin92,

Private Sub CommandButton6_Click()
Set rgCouleurs = Range("D23:D33")
For Each c In rgCouleurs
AfficheCouleur Range(c.Address), Range(c.Address).Offset(, 1)
Next c
End Sub

Sub AfficheCouleur(strCouleur$, Valeur$)
MsgBox (strCouleur + Valeur)
End Sub

isabelle


Bonjour,

J'essaie d'écrire une première procédure en VBA.

Private Sub CommandButton6_Click()
Set rgCouleurs = Range("D23:D33")
For Each c In rgCouleurs
AfficheCouleur rgCouleurs.Text, rgCouleurs.Text.Offset(, 1)
Next c
End Sub

Voilà la procedure que j'ai écrite dans le Module3

Sub AfficheCouleur(strCouleur$, Valeur$)
MsgBox (strCouleur + Valeur)
End Sub

dans rgCouleurs il y a :

Blanc Bon
Bleu Passable
Blanc Très bien
Jaune Bien

Excel fait une erreur 424 sur ce magnifique code ;-)

Merci

Tintin92



Avatar
JB
Bonjour,

Sub CommandButton6_Click()
Set rgCouleurs = Range("D23:D33")
For Each c In rgCouleurs
AfficheCouleur c.Value, c.Offset(, 1).Value
Next c
End Sub

Sub AfficheCouleur(strCouleur As String, Valeur As String)
MsgBox strCouleur & Valeur
End Sub

JB
Avatar
Tintin92
Merci.

ça à l'air de fonctionner maintenant.

Tintin92
Avatar
jps
dis, tintin92, tu pourrais soigner tes formules de remerciements ; ce n'est
pas très élégant pour ceux qui t'ont répondu que de dire " ça a l'air de
fonctionner"
jps (qui n'en a pas l'air mais qui.....)

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

Merci.

ça à l'air de fonctionner maintenant.

Tintin92
Avatar
Jacky
:-)
tintin

JJ