Bonjour tout le monde,
Je voudrai copier des cellules non vides dans un nouveau onglet en transposé :
Exemple:
05/04/2018 08/04/2018 10/04/2018 Italy (9h-14h) Romania Romania Slovenia Italy UK
Ce que je veux avoir :
Date Pays 05/04/2018 Italy 08/04/2018 Romania Slovenia 10/04/2018 Romania Italy UK
J'ai essayé ce code mais ça ne marche pas
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 Sub CopyPaste() Dim last_row As Integer: Dim last_column As Integer Dim j As Integer: Dim i As Integer Dim HDate, Pays As String Sheets("Holiday").Select For i = 0 To last_column For j = 0 To last_row Next j Next i If (Cells(i, j).Value <> "") Then A(k) = i(HDate) B(k) = j(Pays) End If End Sub
Merci pour votre aide.
Partager