Discussion :

[chrozak]

Bonjour à tous,

Je cherche à copier deux cellules d'une page d'un classeur dans un fichier d'un autre classeur. Je dois donc concaténer les deux cellules pour pouvoir le faire, mais lorsque je le fais ma chaîne n'est pas concaténer et elle affiche BASEBASEBASEBASE BASEBASEBASEBASE la ou je l'ai coller.

Voila mon code :

Code :

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

1
2
3
4
5
6
7
 
    Dim Com As Worksheet
    Dim ws As Worksheetws.Range("A12:B15").UnMerge
    Com.Cells("2,24") = Com.Cells("2,24") & " " & Com.Cells("2,25")
    Com.Cells("2,24").Cells.Copy ws.Cells(13, 1)
    ws.Range("A13:B13").Merge
    ws.Range("A13:B13").HorizontalAlignment = xlCenter

Pourriez-vous m'aider dans la résolution de mon problème ?

Merci d'avance

[had4789]

Bonjour,

utilise l'enregistreur de macro ou colle les valeurs et non les formules.

[chrozak]

Déjà merci de me répondre si vite.
Je n'ai jamais utiliser l'enregistreur de macro, et pour ainsi dire je ne sais pas se que c'est ni à quoi ça sert.

Sinon pour copier la valeur et non pas la formule j'ai essayer cela mais sans succès :

Code :

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

1
2
3
4
5
6
7
Dim Com As Worksheet
    Dim ws As Worksheetws.Range("A12:B15").UnMerge
    Com.Cells("2,24") = Com.Cells("2,24") & " " & Com.Cells("2,25")
    Com.Cells("2,24").Copy
    ws.Cells("13,1").PasteSpecial Paste:=xlPasteValues
    ws.Range("A13:B13").Merge
    ws.Range("A13:B13").HorizontalAlignment = xlCenter

Pourrais-tu me donner un peu plus d'indication ? ^^

[keygen08]

Bonjour

Code :

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

1
2
3
4
5
6
 Dim Com As Worksheet
    Dim ws As Worksheetws.Range("A12:B15").UnMerge '(houla)
'    Com.Cells("2,24") = Com.Cells("2,24") & " " & Com.Cells("2,25")
    ws.Cells(13, 1).Value = Com.Cells("2,24").Value & " " & Com.Cells("2,25").Value
    ws.Range("A13:B13").Merge
    ws.Range("A13:B13").HorizontalAlignment = xlCenter

[chrozak]

Il me met aussi BASEBASEBASE ...
Néanmoins avec la manière que je vous ai mis avant je n'ai pas d'erreur, mais la case reste vide. Le problème ne viendrait pas d'autre part du cou ?

Voila le code complet :

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 Automatisation2()
    Dim Com As Worksheet
    Dim ws As Worksheet
    Dim NoLig As Long
    Set Com = ThisWorkbook.Worksheets("Commandes")
    Excel.Workbooks.Open ("C:\Users\chrozak\Desktop\Bon Livraison.xls") 'On définit le chemin du classeur à ouvrir
    Set ws = ActiveWorkbook.Worksheets("Feuil2") 'On définit la feuille du classeur qui sera ouverte et affiché
 
    ws.Range("A12:B15").UnMerge
    ws.Cells(13, 1).Value = Com.Cells("2,24").Value & " " & Com.Cells("2,25").Value
    ws.Range("A13:B13").Merge
    ws.Range("A13:B13").HorizontalAlignment = xlCenter
 
End Sub

[keygen08]

Mais bien sur

Code :

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

ws.Cells(13, 1).Value = Com.Cells("2,24").Value & " " & Com.Cells("2,25").Value

s'ecrit

Code :

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

ws.Cells(13, 1).Value = Com.Cells(2,24).Value & " " & Com.Cells(2,25).Value

[chrozak]

effectivement ... Donc cette fois j'ai un affichage mais que de la seconde cellule de ma concaténation ><.
Vois-tu autre chose ?

[keygen08]

???

[chrozak]

je cherche à afficher nom prénom et avec mon code j'ai juste le prénom qui s'affiche.
Du cou je demande si vous ne voyez pas d'autre erreur ?

[keygen08]

oui j'ai bien compris la question mais je ne comprends pas pourquoi cela ne fonctionne pas.

nom et prenom sont t.il bien en colonne 24(x) et 25 (y)

en placant

Code :

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

a = Com.Cells(2,24).Value & " " & Com.Cells(2,25).Value

au dessus de

Code :

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

ws.Cells(13, 1).Value = Com.Cells(2,24).Value & " " & Com.Cells(2,25).Value

quel est la valeur de a en placant un espion

[chrozak]

Arès vérification de mon fichier, je me suis aperçus qu'il y avait la même chose dans les deux cellules. j'ai du probablement faire une mauvaise manip au cours de mes différentes tentatives ... Après avoir modifié ça, tout marche niquel .

Je te remercie de ton aide !!!