Discussion :

[GR-MY]

Bonjour,

J'utilise Excel version 1904


J'ai un problème sur mon programme, j'aimerais concaténer 2 colonnes d'une feuilles dans une colonne d'une autre feuille mais le programme me dit qu'il y a une erreur et je ne la trouve pas, est ce que vous pourriez m'aider s'il vous plait ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub TrieRecap()
    der_ligneA = Sheets("Infos 3D ligne").Range("A3").End(xlDown).Row
    der_ligneG = Sheets("Infos 3D ligne").Range("G3").End(xlDown).Row
    Dim x As Variant
    Dim y As Variant
 
    'Chercher tout les noms des zones possible des listes
    For ligne = 1 To der_ligneA
        x = Sheets("Infos 3D ligne").Range("A3").EntireColumn.SpecialCells(xlCellTypeConstants).Value
        y = Sheets("Infos 3D ligne").Range("G3").EntireColumn.SpecialCells(xlCellTypeConstants).Value
        Sheets("Info projet").Range("E1").Value = x & " - " & y                  <-- Cette ligne est en jaune et est marqué : Erreur d'exécution '13': Incompatibilité de type
    Next ligne
    Columns("E:E").EntireColumn.AutoFit 'Ajuster la colonne

Merci à vous par avance

[Mickamax]

Bonjour GR-MY,
(Pense à mettre ton code entre balise pour plus de visibilité)

A première vue, je dirai que ton code ne marche pas car tu cherches à copier les valeurs d'une colonne entière dans une cellule.

Code :

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

1
2
3
x = Sheets("Infos 3D ligne").Range("A3").EntireColumn.SpecialCells(xlCellTypeConstants).Value
y = Sheets("Infos 3D ligne").Range("G3").EntireColumn.SpecialCells(xlCellTypeConstants).Value
Sheets("Info projet").Range("E1").Value = x & " - " & y

Je pense qu'il est plus judicieux d'aller chercher le contenu de tes colonnes par une boucle, cellule par cellule plutôt que de sélectionner toute la colonne. Mais un expert plus avisé que moi pourra sans doute mieux t'aider.



Edit: j'ai réalisé un code qui à l'air de fonctionner chez moi, si ça t'intéresse:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub concat?nation()
 
Dligne = Sheets("Feuil1").Range("A15000").End(xlUp).Row
 
 
For I = 4 To Dligne
 
DligneNC = Sheets("Feuil2").Range("E15000").End(xlUp).Row
 
Sheets("Feuil2").Cells(DligneNC + 1, 5) = Sheets("Feuil1").Cells(I, 1) & " - " & Sheets("Feuil1").Cells(I, 6)
 
Next I
End Sub

A modifier selon tes données, évidemment. N'hésite pas si tu rencontres un problème.

Double EDIT: ça ne m'a pas percuté sur le coup… mais tu peux tout aussi bien utiliser la fonction CONCATENER() qui t'évitera de rédiger une macro… ou utiliser une fonction de ce type:




Mickamax

[GR-MY]

Super ça fonctionne !!!!!!!! Merci beaucoup !!!!!!