Macro ne fonctionne pas

Bonjour,

J'ai fait une macro qui ne me mets pas d'erreur mais qui ne fait pas ce que je lui demande.

Je souhaite que la macro quand la couleur du texte de la cells(J,10) est rouge et que la valeur de la cells (J,6) = 0 alors elle mette le texte "AsOfDate : Unauthorized Deposit" dans la cells(J,14)

Mais ca ne le fait pas.


Merci pour votre aide!
Voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim AsOfDate As String   AsOfDate = Workbooks("Reporting Nostri.xlsx").Sheets("Macro").Range("B2").Text   Workbooks("Reporting Global.xlsx").Sheets("Reporting").Activate For J = Range("A60000").End(xlUp).Row To 1 Step -1 If Cells(J, 10).Font.Color = vbRed And Cells(J, 6).Value = 0 Then Cells(J, 14).Text = "AsOfDate : Unauthorized Deposit" End If Next J   For J = Range("A60000").End(xlUp).Row To 1 Step -1 If Cells(J, 10).Font.Color = vbRed And Cells(J, 6).Value > 0 Then Cells(J, 14).Text = "AsOfDate : Deposit in Excess" End If Next J

---

Tu as fait du pas à pas pour voir quand il ne rentrait pas dans la boucle et sur quelle cellule il était à ce moment-là ?

regarde la valeur de tes différentes variables au moment ou tu rentre dans ta boucle et dans ta condition pour voir ou ça coince :)
Avant ton If, met un Msgbox sur ces valeurs-là : "Cells(J, 10).Font.Color" et "Cells(J, 6).Value = 0".

Pour cette dernière, c'est un chiffre, ou c'est du format texte ?

Si tu as beaucoup de données, prend juste 3-4 lignes, reteste voir si ça marche, et si ça marche pas, regarde la valeur des variables utilisées ;)

Merci beaucoup, effectivement il ne partait pas de la bonne cellule et du coup ca ne fonctionnait pas. Mais maintenant la macro m'indique cette ligne de code dans le debogage. Oui le "0" est bien une valeur

Code:

---

Cells(J, 14).Text = "06.12.13 : Unauthorized Deposit"

---

Je ne comprends pas ou est le probleme dans la ligne de code que le debogage m'indique.

Je comprend pas : c'est quoi ton problème avec cette ligne tu as une erreur ?

Citation:

---

Envoyé par nanoo79

....
Je ne comprends pas ou est le probleme dans la ligne de code que le debogage m'indique.

---

bonjour,

Il faut lire le message d'erreur !! et le retranscrire ici.

Oui il me dit "Erreur d'execution '1004' Impossible de définir la propriété Text de la classe Range

et le debogage m'envoie sur cette ligne

Code:

---

Cells(J, 14).Text = "AsOfDate : Unauthorized Deposit"

---

Aide en ligne :

Citation:

---

Référence du développeur Excel
Range.Text, propriété
Cette propriété renvoie ou définit le texte de l'objet spécifié. Type de données String en lecture seule.
Syntaxe

---

Excuse moi je ne suis pas sure d'avoir compris. J'ai utilisé String car ce sont du text et des ponctuations. Lequel aurais je du utiliser?

Tout d'abords il ne faut jamais utiliser les objets Cells, Range ... sans préciser le classeur et la feuille concernée
ensuite la propriété Text d'un objet Range est en lecture seule (voir mon post précédent) utilise la propriété value..

Code:

---

1 2 3 4 5 6

Dim sh = WorkSheet set sh = Workbooks("Reporting Global.xlsx").Sheets("Reporting")   (...) sh.Cells(J, 14).Value = "AsOfDate : Unauthorized Deposit"

---

Ah ok merci beaucoup!
Je pensais que quand c'etait du text il fallait mettre .text et que quand c'etait un nombre on mettait.value.

Merci beaucoup