Trou de mémoire

[Bulis]

Bonjour le forum
J'ai un trou de mémoire

Comment réunir des données de colonnes différentes pour en faire plus qu'une.

En A j'ai les noms et en B j'ai les prénoms.

Maintenant je souhaiterai que dans la colonne A il y ait les noms suivi des prénoms dans la même colonne.

Merci

 

[@+Thierry]

Bonjour Bulis, le Forum


Voici deux méthodes 100% VBA :

Sub ToutEnAMethodEachCell()
Dim MyRange As Range
Dim Cell As Range

Set MyRange = Range("A1:A5000")

For Each Cell In MyRange
Cell = Cell & " " & Cell.Offset(0, 1)
Cell.Offset(0, 1) = ""
Next
End Sub



Sub ToutEnAMethodArray()
Dim MyArray As Variant
Dim i As Integer

MyArray = Range("A1:B5000")

For i = 1 To UBound(MyArray)
MyArray(i, 1) = MyArray(i, 1) & " " & MyArray(i, 2)
MyArray(i, 2) = ""
Next

Range("A1:B5000") = MyArray

End Sub


Je vous laisse trouver celle qui va le plus vite !!!! (Forza Monaco !)

@+Thierry

 

[effeZERO]

Bonjour Bulis, @+Thierry, le forum,
Il y a aussi : dans la colonne C =a1&" "&b1
Mets un espace entre les "" pour que ce soit lisible.
Le & remplace la fonction CONTATENER
@+ et bonne soirée

 

[@+Thierry]

Bonsoir Effe, re Bulis

Oui bien sûr, la méthode par Formule Concatener, qui donc peut s'écrire avec le "&". Mais perso, çà fait tellement faire de manipulations (Inserrer une Colonne devant, écrire la Formule de concaténation, draguer cette formule sur toute la colonne, ensuite faire un copié de la nouvelle colonne, et ensuite faire un collage spéciale "Valeur"... Et encore l'effacement des anciennes colonnes... Wouaf Wouaf, la macro à déjà finie qu'on a pas encore inserré la colonne (surtout la macro "ToutEnAMethodArray" )


Bonne Soirée Foot, Allez Monaco !!!!
@+Thierry

 

[andré]

Salut @+Thierry,

Un petit rappel : pas besoin de "draguer", un double-click sur la petite croix dans le coin inférieur gauche de la première formule suffit.

Je suis heureux de constater que je ne suis pas les eul à perdre quleque peu la mémoire.

A ce soir sur la tribune d'hommeur !

Ândré.

 

[Bulis]

Bonjour

Merci pour toutes ces solutions

Bulis