Discussion :

[Medde]

Bonjour,

J'aimerais rassembler les données qui se trouvent sur deux feuilles de calcul dans une nouvelle feuille de calcul se trouvant dans le même classeur.
Les données doivent être mis côte à côte, c'est-à-dire : Taille Sheet 1 : 524*68, Taille Sheet 2 : 524*189, Taille Sheet 3 524*257.
Les données contenues dans les feuilles sont des heures, des dates, des chiffres et des textes.

Merci d'avance pour votre aide !

Bonne journée.

[Philippe Tulliez]

Bonjour,
Il me semble qu'il y a contradiction entre

J'aimerais rassembler les données qui se trouvent sur deux feuilles de calcul dans une nouvelle feuille de calcul se trouvant dans le même classeur.

et

Les données doivent être mis côte à côte, c'est-à-dire : Sheet 1 : [68 * 524], Sheet 2 : [189 * 524], Sheet 3 [257
* 524].

Toutefois, si tu souhaites rassembler les données de plusieurs feuilles sur une seule et à conditions que le nombre de colonnes soit identiques et que l'orthographe des étiquettes de colonnes (titres) soit la même, alors tu peux utiliser ou t'inspirer de cette contribution Regrouper plusieurs feuilles sur une autre. (2003-2010)

[Theze]

Bonjour,

Dans les cellules, les valeur sont sous cette forme [68 * 524] ou les crochets n'existent pas ? Si les crochets existent, la proc ci-dessous devrait faire l'affaire. Les plages des feuilles Feuil1 et Feuil2 sont en colonne A et le résultat sera en colonne A de la feuille Feuil3 :

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
 
Sub Test()
 
    Dim Plage As Range
    Dim Cel As Range
    Dim I As Integer
    Dim Valeur1 As Double
    Dim Valeur2 As Double
    Dim Total As Double
    Dim ValeurCom
 
    With Worksheets("Feuil1")
 
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    For Each Cel In Plage
 
        Valeur1 = CDbl(Replace(Split(Cel.Value, "*")(0), "[", ""))
        Valeur2 = CDbl(Replace(Split(Worksheets("Feuil2").Range(Cel.Address).Value, "*")(0), "[", ""))
 
        Total = Valeur1 + Valeur2
 
        ValeurCom = Replace(Split(Cel.Value, "*")(1), "]", "")
 
        Worksheets("Feuil3").Range(Cel.Address).Value = "[" & Total & " * " & ValeurCom & "]"
 
    Next Cel
 
End Sub

Hervé.

[Medde]

Re,

Il me semble qu'il y a contradiction entre

Oui. Édit : Sheet 1 : 524*68, Sheet 2 : 524*189, Sheet : 3 524*257.

Toutefois, si tu souhaites rassembler les données de plusieurs feuilles sur une seule et à conditions que le nombre de colonnes soit identiques et que l'orthographe des étiquettes de colonnes (titres) soit la même, alors tu peux utiliser ou t'inspirer de cette contribution Regrouper plusieurs feuilles sur une autre. (2003-2010)

Les étiquettes et le nombre de colonnes sont différents. Le nombre de lignes est identique.

Dans les cellules, les valeur sont sous cette forme [68 * 524]

524 Lignes et 68 Colonnes.

Merci.

[SfJ5Rpw8]

Bonjour,

vu la clarté de ta demande et le peu d'effort fait pour être clair

le mieux et de faire cela à la main .. tu sélectionne les données à copier puis menu Edition / copier tu te place ensuite à l'endroit ou tu veux placer tes donnée puis menu Edition / Coller ...

en 3 copier/coller c'est fini...

Cdt.

[Medde]

en 3 copier/coller c'est fini...

Effectivement, j'ai l'habitude de faire cette dernière étape à la main, mais j'aurais souhaité coder cette étape afin que la macro puisse être utilisée par une tierce personne sans manips supplémentaires.

vu la clarté de ta demande et le peu d'effort fait pour être clair

Il me semblait que ma requête était explicite, désolé si ce n'était pas le cas. Néanmoins, votre réponse donnée plus haut suggère que vous avez saisi ce que je souhaitais réaliser !

Cordialement.

[SfJ5Rpw8]

...
Il me semblait que ma requête était explicite, désolé si ce n'était pas le cas. Néanmoins, votre réponse donnée plus haut suggère que vous avez saisi ce que je souhaitais réaliser !
...

qu'elle réponse ? je t'ai juste suggéré d'utiliser un copier/coller ...

Et donc tu ne veut pas faire d'effort supplémentaire ? pour être plus clair ..? il y as vraiment des crochets [ ] comme le suggère These dans tes feuilles ?