Discussion :

[nanoo79]

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 :

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

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

[Marc-L]

Bonjour,

voir la propriété MergeArea …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …