Discussion :

[nanoo79]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[illight]

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

[nanoo79]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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.

[illight]

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

[SfJ5Rpw8]

....
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.

[nanoo79]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

Aide en ligne :

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