Discussion :

[AimeDija]

Bonjour le forum,

Je bloque sur une question assez simple , j'ai trouver comment je peux copier des informations d'une colonne (AC) dans les cellules vides d'une autre colonne (AI) sur une même feuille. Je cherche maintenant à savoir comment je peux mettre en évidence (couleur) les nouvelles données qui sont collés dans cette colonne.

Est ce que quelqu'un pourrait m'aider à y voir plus clair sur la partie de code ci-dessous qui définis le format et le style?

Code :

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

1
2
3
4
5
6
7
8
9
10

     Next
     .Columns(7).NumberFormat = "@" 
     .Columns(7) = Application.Index(t, , 7)
     .Range("AI:AI").Columns(7).Interior.Color = vbBlue ' J'essaye ici de mettre en bleu les cellules qui viennent d'être copier 
 
 End With
 
 Set ws = Nothing

merci d'avance,

[Menhir]

Le problème ne vient pas de la partie mise en couleur mais de la désignation de la zone parent.
Ton code est illogique : tu cherches à désigner la septième colonne d'une zone limitée à une colonne...

Il faudrait que tu en dises plus sur ce que tu cherches à sélectionner pour savoir comment corriger ton code.

La ligne de code qui précède aussi me semble... douteuse. J'ai l'impression que tu veux mettre une valeur dans une zone très vaste (une colonne entière) ce qui risque d'alourdir considérablement (et sans doute inutilement) ton fichier.

[AimeDija]

Bonjour Menhir,

Merci pour ton retour, j'ai complétement changé de code source afin de mieux ciblé mon probléme. Mon but ici est de ;

1. copier les valeurs (dates) présentes en colonnes AC dans les cellules vides de la colonne AI (dans l'entièreté de la colonne). Fait
2. colorier les cellules (colonne AI) dont les valeurs ont étaient copier de la colonne AC afin de les distinguer des autres cellules. à faire

je cherche à désigner par une couleur les cellules dont les dates ont étaient copiées dans toute la colonne AI. Merci de trouver ci-joint un fichier d'exemple

Bien à toi,

[Menhir]

1. copier les valeurs (dates) présentes en colonnes AC dans les cellules vides de la colonne AI (dans l'entièreté de la colonne). Fait

Comment cela a-t-il été fait ?

2. colorier les cellules (colonne AI) dont les valeurs ont étaient copier de la colonne AC afin de les distinguer des autres cellules.

Comment peut-on savoir quelles sont les cellules dans lesquelles on a copié une valeur ?

[AimeDija]

1. comment cela a t il été fait :
Réponse via le code ci-dessous

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Option Explicit
Option Base 1
Dim Year_Date As Integer
Dim Month_Date As Byte
Dim Tab_Temp() As Variant
Dim Tab_Recup() As Variant
Public Sub FillInEmpty()
 
Dim lastRow As Long 
Dim DerCol As Byte
Dim i As Long 
 
Dim ws As Worksheet
 
Dim Rep As Integer
   Erase Tab_Recup
Set ws = Sheets("Page1_1")
 
 
    Rep = MsgBox("Are you willing to copy all dates into this column?", vbYesNo + vbQuestion, "mDF XLpages.com")
    If Rep = vbYes Then
 
With ws
  lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
   DerCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
 Tab_Temp = .Range(.Cells(2, 1), .Cells(lastRow, DerCol)).Value
 ReDim Tab_Recup(1 To UBound(Tab_Temp, 1), 1)
For i = 1 To UBound(Tab_Temp, 1)
 
  If Tab_Temp(i, 35) = "" Then
           Year_Date = Mid(Tab_Temp(i, 29), 1, 4)
          Month_Date = Mid(Tab_Temp(i, 29), 5, 2)
        Tab_Recup(i, 1) = DateSerial(Year_Date, Month_Date, 1)
  Else
       Tab_Recup(i, 1) = Tab_Temp(i, 35)
  End If
Next i
 
        With .Cells(2, 35).Resize(UBound(Tab_Recup, 1))
             .NumberFormat = "mm/yyyy"
             .Value = Tab_Recup
        End With
End With
End If
End Sub

de]

2. Comment peut-on savoir quelles sont les cellules dans lesquelles on a copié une valeur ?

Réponse: telle est ma question, je cherche à copier des valeurs dans des cellules vides et colorier ces dernières afin de les identifiés par rapport aux autres. Est ce possible?