generer un texte sur les lignes dont la colonne precedente est fusionnée
Bonjour,
Dans ma macro je demande de mettre un texte dans une cellule selon la reponse a deux conditions. Ca j'ai reussi a faire mais je ne parviens pas a faire en sorte que ce texte soit dupliqué sur toutes les lignes qui correspondent a une cellule fusionnés sur une colonne precedente.
Je vous explique:
Si la cellule cells (J,10) a un texte de couleur rouge et que la valeur de la cells (J,6) est egale à zero alors la cels(J,14) doit avoir comme text "Unauthorized Deposit" mais ce text doit etre duppliquée sur toutes les lignes ou la cells(J,10) est fusionée
Voici mon code:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13
| Workbooks("Reporting Global.xlsx").Sheets("Reporting").Activate
Range("A1").Select
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).Value = " 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).Value = "Deposit in Excess"
End If
Next J |
Auriez vous une idee de comment faire?
Merci beaucoup