Copie cellule avec option

Version imprimable

20/05/2015, 11h21
dreamanito

1 pièce(s) jointe(s)

Copie cellule avec option

Bonjour,

j'ai 1 classeur Excel avec 2 feuilles. Je souhaite récupérer les données non vide de mon tableau de la feuille 1 et les copier dans mon tableau de la feuille 2 avec la mise en forme.
La copie doit récupérer la contenu des cellules (non vide) du tableau 1 en le parcourant de gauche à droite, ligne par ligne pour les mettre de gauche à droite dans le tableau 2.

Pour bien comprendre j'attache le classeur en question Pièce jointe 178243 dans lequel j'ai fait à la main ce que je voudrais qu'il fasse tout seul via une macro (derrière un bouton).

Merci à vous.
20/05/2015, 11h30
joe.levrai

Bonjour,

je n'ai pas ouvert le fichier, ta problématique étant simple à présenter à l'écrit

je note que tu veux prendre des cellules d'un Tableau1 en parcourant chaque ligne de gauche à droite
mais tu dis vouloir les écrire dans Tableau2, uniquement de gauche à droite

ce qui revient à dire que Tableau2 ne dispose que d'une ligne ? ça m'étonnerait, tu as du mal expliquer

les tableaux sont dimensionnés de la même manière ou non ?
qu'est ce qui empêcherait qu'on fasse simplement un copier de tableau1 dans tableau2 ?
20/05/2015, 11h37
dreamanito

Citation:

Envoyé par joe.levrai

tu as du mal expliquer

D'où l’intérêt d'avoir mis un fichier d'exemple ;).

Pour répondre à tes questions :

Citation:

Envoyé par joe.levrai

ce qui revient à dire que Tableau2 ne dispose que d'une ligne ?

Le tableau 2 disposent de plusieurs lignes qui devront être auto alimenté par la macro.

Citation:

Envoyé par joe.levrai

les tableaux sont dimensionnés de la même manière ou non ?

Non...

Citation:

Envoyé par joe.levrai

qu'est ce qui empêcherait qu'on fasse simplement un copier de tableau1 dans tableau2 ?

Le fait que les tableaux ne soient pas dimensionnés de la même manière et surtout qu'ils ne sont pas alimentés de la même manière.
Tableau feuille 1 : fonctionne par colonne
Tableau feuille 2 : fonctionne par ligne

Merci !!!

On ne remplace pas un manque de clarté dans des explications par un fichier en pièce jointe

je répète : ce problème s'explique simplement

Regarde :

Citation:

Bonjour,
je dispose d'un Tableau1 composé de 8 colonnes sur un nombre de X lignes
je souhaiterais copier (avec Format) les valeurs de ses cellules qui ne sont pas vides, en partant de la première cellule et en allant de gauche à droite, à effectuer ligne par ligne

la copie doit aller dans un Tableau2 qui est quand à lui composé de 12 colonnes
la recopie doit se faire en partant de la première cellule et en allant de gauche à droite
quand on a remplie la première ligne (= On a déjà copié 12 cellules du Tableau1), on passe à la ligne suivante

Voici des données exemple, que j'adapterai ensuite à mes tableaux s'ils sont positionnés différemment :

- Tableau 1 : les données sont sur la plage B4:I14 de "Feuil1"
- Tableau 2 : la première cellule est en B4 de "Feuil2"

Merci pour votre aide, et je suis désolé de ne pouvoir vous monter un début de code, je n'y arrive pas

ce à quoi, j'aurai bien volontier répondu
Code:

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 Sub Changement() Dim Tablo Dim CellDest As Range Application.ScreenUpdating = False Set CellDest = Sheets("Feuil2").Cells(4, 2) With Sheets("Feuil1") Tablo = .Range(.Cells(3, 2), .Cells(14, 9)) For i = LBound(Tablo, 1) To UBound(Tablo, 1) For j = LBound(Tablo, 2) To UBound(Tablo, 2) If Tablo(i, j) <> "" Then .Cells(i + 2, j + 1).Copy CellDest.PasteSpecial Application.CutCopyMode = False If CellDest.Column = 13 Then Set CellDest = CellDest.Offset(1, -11) Else Set CellDest = CellDest.Offset(0, 1) End If End If Next j Next i End With Application.ScreenUpdating = False End Sub
A mettre sur un bouton

20/05/2015, 13h02
dreamanito

1 pièce(s) jointe(s)

Effectivement, c'est plutôt clair !

Le code est pleinement fonctionnel, merci à toi !

Quoi qu'il en soit une dernière problématique vient se greffer (je vais essayer d'expliquer distinctement) :

Le tableau de la feuille 1 n'est plus seulement composé de 8 colonnes et 12 lignes mais 16 colonnes et 12 lignes !
Le problème est que ces 8 colonnes supplémentaires se situe sous le tableau actuel ( ce qui créé 2 tableaux)

Le contenu des cellules a récupérer doit donc se faire ainsi :
- de gauche à droite dans le tableau du haut, puis de gauche à droite dans le tableau du bas
- on revient ensuite au tableau du haut et ainsi de suite.

Entre les 2 tableaux il y a un ligne vide et une ligne avec mes intitulés de colonne.

Je joints le classeur pour bien visualiser ma demande.Pièce jointe 178254

Là aussi ton explication est plutôt claire ;)

sans avoir ouvert ton fichier, voici une adaptation

c'est un peu bourrin, mais si j'ai le temps je la simplifierai

Code:

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
Sub Changement()
Dim Tablo
Dim Tablo2
Dim CellDest As Range
 
Application.ScreenUpdating = False
Set CellDest = Sheets("Feuil2").Cells(4, 2)
With Sheets("Feuil1")
    Tablo = .Range(.Cells(3, 2), .Cells(14, 9))
    Tablo2 = .Range(.Cells(17, 2), .Cells(31, 9))
    For i = LBound(Tablo, 1) To UBound(Tablo, 1)
        For j = LBound(Tablo, 2) To UBound(Tablo, 2)
            If Tablo(i, j) <> "" Then
                .Cells(i + 2, j + 1).Copy
                CellDest.PasteSpecial
                Application.CutCopyMode = False
                If CellDest.Column = 13 Then
                    Set CellDest = CellDest.Offset(1, -11)
                Else
                    Set CellDest = CellDest.Offset(0, 1)
                End If
            End If
        Next j
        For j = LBound(Tablo2, 2) To UBound(Tablo2, 2)
            If Tablo2(i, j) <> "" Then
                .Cells(i + 16, j + 1).Copy
                CellDest.PasteSpecial
                Application.CutCopyMode = False
                If CellDest.Column = 13 Then
                    Set CellDest = CellDest.Offset(1, -11)
                Else
                    Set CellDest = CellDest.Offset(0, 1)
                End If
            End If
        Next j
    Next i
End With
Application.ScreenUpdating = False
End Sub

20/05/2015, 15h03
dreamanito

Super boulot !

Le seul problème c'est que finalement toutes mes cellules contiennent dans informations : les formules !
Comment puis je faire pour qu'ils ne prennent en compte SEULEMENT les cellules avec des VALEURS ?

si c'est possible, on peut convertir les formules en valeur, avant d'effectuer la procédure

il suffit d'ajouter entre la ligne 8 et 9 ça
Code:

1 2 .Range(.Cells(3, 2), .Cells(14, 9)).Value = .Range(.Cells(3, 2), .Cells(14, 9)).Value .Range(.Cells(17, 2), .Cells(31, 9)).Value = .Range(.Cells(17, 2), .Cells(31, 9)).Value

20/05/2015, 17h17
dreamanito

C'est parfait ! merci à toi.

Bonne continuation et surement à bientôt pour de nouvelles questions...précises :)