Texte sur les lignes dont la colonne precedente est fusionnée

nanoo79 Messages postés 34 Date d'inscription   Statut Membre Dernière intervention   -  
nanoo79 Messages postés 34 Date d'inscription   Statut Membre Dernière intervention   -
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:

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
A voir également:

23 réponses

nanoo79 Messages postés 34 Date d'inscription   Statut Membre Dernière intervention  
 
ok merci beaucoup
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,
Ai trouve:

code que je vous ai ecrit a l'origine: f894009 25 déc. 2013 à 08:05
If Cells(J, "H").MergeArea.Count > 1 Then

celui que vous avez reecrit: nanoo79 25 mars 2014 à 16:33
et que j'ai reutilise (j'aurai pas du rrrrrrrrrrr)
If Cells(K, 10).MergerArea.Count > 1 Then

A vous de corriger
0
nanoo79 Messages postés 34 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup ca marche, encore desolée de vous avoir embete.
Un grand merci.
Fanny
0