Discussion :

[juju05]

Bonjour,

Je souhaite faire un copier-coller avec dédoublement des valeurs contenues dans la valeur source de la ligne 2 de la feuille "PO" vers la feuille nommée "TRT" du même classeur.

Pour cela, j'ai codé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Do Until col > nbcol
      Worksheets("PO").Activate
      If Cells(2, col).value <> date_lue Then
         date_lue = Cells(2, col).value
          Worksheets("TRT").Activate
         Cells(1, colcib).value = date_lue
         colcib = colcib + 1
      End If
      col = col + 1
Loop

Il semble que l'activation de la feuille "TRT" ne soit pas suffisant pour pouvoir y renseigner des valeurs par la suite. Les valeurs vont dans la feuille "PO".

Comment coder le renseignement des cellules de la feuille "TRT" sachant que la position de la colonne est variable ?

Merci d'avance.
Julien.

[parmi]

En principe, nul besoin d'Activate

Code :

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

1
2
3
4
5
6
7
8
Do Until col > nbcol
      If Worksheets("PO").Cells(2, col).value <> date_lue Then
         date_lue = Worksheets("PO").Cells(2, col).Cells(2, col).value
         Worksheets("TRT").Cells(1, colcib).value = date_lue
         colcib = colcib + 1
      End If
      col = col + 1
Loop