Discussion :

[L'Albatros]

Bonjour,

Effectuant des opérations sur une feuille de 30 000 lignes et 12 colonnes, j'ai besoin d'un coup de main pour savoir comment concaténer 2 colonnes (ici K et N) dans une colonne cible (ici Q).

J'aurais besoin d'une instruction du type, qui répond à une contrainte de vitesse de calcul:

Code :

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

1
2
3
4
With ActiveSheet
  Set Plage = .Range("I1:I" & Range("C" & .Rows.Count).End(xlUp).Row)
  Plage.Replace "", "Cellule Vide"
End With

merci d'avance de votre aide !

[Jean-Philippe André]

salut,

l'enregistreur de macro est pas mal de ce point de vue là pour commencer
une idée de code :

Code :

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

1
2
3
4
5
Sub Macro1()
    Range("Q1").Select
    ActiveCell.Formula = "=K1&N1"
    Selection.AutoFill Destination:=Range("Q1:Q" & range("K65536").end(xlup).row)
End Sub

[L'Albatros]

Merci !

oui effectivement, j'aurais dû y penser... surtout que cela marche vite et bien !

On m'a tellement rabaché qu'il ne fallait pas s'inspirer de l'enregistreur de macro que j'en ai oublié le pragmatisme... .

Grande leçon !

[mercatog]

Tu peux aussi utiliser directement

Code :

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

1
2
3
4
5
6
Sub Macro1()
 
With Worksheets("Feuil1")
    .Range("Q1:Q" & .Cells(.Rows.Count, "K").End(xlUp).Row).Formula = "=K1&N1"
End With
End Sub