Trou de mémoire

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

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

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

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é.

Bonjour

Merci pour toutes ces solutions

Bulis