concaténation VBA

tototiti2008

XLDnaute Barbatruc

• 25 Août 2009

• #2

Re : concaténation VBA

Bonjour Murdock,

D'abord, Cell est un nom réservé, je crois, donc j'appelerais ma varaible Cellule ou un truc comme ça. En tout cas comme la collection Cells existe j'évite Cell comme nom de variable.

ensuite où se trouve ta plage Identité ? où veux-tu écrire A1&B1&C1 ?
si c'est en D1 (puis D2, D3...) alors c'est dans Cellule (Cell) qu'il faut écrire

donc je remplacerais :

Code:

Set Identite = Cells("A1") & ("B1") & ("C1")

par

Code:

Cellule.value = Sh2.cells(Cellule.row,1).value & Sh2.cells(Cellule.row,2).value & Sh2.cells(Cellule.row,3).value

 

Vote positif 0 Vote négatif

M

Murdoc

Guest

• 25 Août 2009

• #3

Re : concaténation VBA

Bonjour Tototiti et merci pour ta réponse,

Donc si j'ai bien compris voilà ce que sa donne avec les bonnes modifs.

Sub Concatener()


Dim Cellule As Range, Sh2 As Worksheet

Set Sh2 = Sheets("Feuil2")

For Each Cellule In Sh2.Range("D1😀" & Sh2.Range("D65536").End(xIup).Row)

Cellule.Value = Sh2.Cells(A1, 1).Value & Sh2.Cells(B1, 1).Value & Sh2.Cells(C1, 1).Value

Next

End Sub

Cependant une erreur 1004 apparaît toujours pour la ligne:
For Each Cellule In Sh2.Range("D1😀" & Sh2.Range("D65536").End(xIup).Row)


Que signifie cette erreur??

Merci d'avance

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 25 Août 2009

• #4

Re : concaténation VBA

Re,

si tu mets un espion, que vaut :

Sh2.Range("D65536").End(xIup).Row

quand ça plante ?

 

Vote positif 0 Vote négatif

M

Murdoc

Guest

• 25 Août 2009

• #5

Re : concaténation VBA

La valeur est: erreur définie par l'application ou par l'objet.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 25 Août 2009

• #6

Re : concaténation VBA

Re,

tu aurais un tout petit fichier exemple à nous poster ?

 

Vote positif 0 Vote négatif

M

Murdoc

Guest

• 25 Août 2009

• #7

Re : concaténation VBA

ouaip voilà

 

Pièces jointes

• Essai Macro concat.xls

  30.5 KB · Affichages: 285

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 25 Août 2009

• #8

Re : concaténation VBA

Re,

alors voilà :

comme ta colonne D est vide
Sh2.Range("D65536").End(xlup).Row
vaut 1
donc il vaudrait mieux mettre
Sh2.Range("A65536").End(xlup).Row
par exemple

ensuite tu as fait une faute de frappe, tu as tapé XIUP à la place de XLUP, c'est pour ça que ça plantait


enfin tu devrais mettre

Cellule.value = Sh2.cells(Cellule.row,1).value & Sh2.cells(Cellule.row,2).value & Sh2.cells(Cellule.row,3).value

comme je te l'avais proposé plus haut.

Cells attend un numéro de ligne et un numéro de colonne, tu ne peux pas mettre A1, B1, C1 dedans.
Si tu préfères travailler en A, B, C, tu peux également faire

Cellule.value = Sh2.range("A" & Cellule.row).value & Sh2.range("B" & Cellule.row).value & Sh2.range("C" & Cellule.row).value

 

Vote positif 0 Vote négatif

M

Murdoc

Guest

• 25 Août 2009

• #9

Re : concaténation VBA

ok sa fonctionne presque merci:

Je l'ai fait comme sa:

For Each Cellule In Sh2.Range("D1😀" & Sh2.Range("D65536").End(xlUp).Row)

Cellule.Value = Sh2.Range("A" & 1).Value & Sh2.Range("B" & 1).Value & Sh2.Range("C" & 1).Value

Mais celà n'opère que sur la première ligne alors que toutes les lignes avec de l'écriture devraient être concernées. ???

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 25 Août 2009

• #10

Re : concaténation VBA

Re,

voir plus haut :

comme ta colonne D est vide
Sh2.Range("D65536").End(xlup).Row
vaut 1
donc il vaudrait mieux mettre
Sh2.Range("A65536").End(xlup).Row
par exemple

Cliquez pour agrandir...

remplace

Code:

For Each Cellule In Sh2.Range("D1:D" & Sh2.Range("D65536").End(xlUp).Row)

par

Code:

For Each Cellule In Sh2.Range("D1:D" & Sh2.Range("[COLOR=red]A[/COLOR]65536").End(xlUp).Row)

 

Vote positif 0 Vote négatif

M

Murdoc

Guest

• 25 Août 2009

• #11

Re : concaténation VBA

Oui j'ai essayé mais de cette façon le résultat de la première ligne est recopié dans les suivantes , mais la concaténation n'opére pas ligne par ligne.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 25 Août 2009

• #12

Re : concaténation VBA

Re,

en effet, il faut aussi remplacer :

Code:

Cellule.Value = Sh2.Range("A" & 1).Value & Sh2.Range("B" & 1).Value & Sh2.Range("C" & 1).Value

par

Code:

Cellule.value = Sh2.range("A" & Cellule.row).value & Sh2.range("B" & Cellule.row).value & Sh2.range("C" & Cellule.row).value

 

Vote positif 0 Vote négatif

M

Murdoc

Guest

• 25 Août 2009

• #13

Re : concaténation VBA

Perfecto, merci beaucoup!!

 

Vote positif 0 Vote négatif