Tout petit Pb macro

[anthony]

Bonjour,


Voilà, j’ai créé cette macro pour concatener les cellules B2 et D2 dans la cellule A2 puis B3 et D3 en A3 etc…




Range("A2").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[1],RC[3])"
Range("A2").Select
Selection.AutoFill Destination:=Range("A2:A65536"), Type:=xlFillDefault
Range("A2:A65536").Select
Range("A2").Select

Comme le nombre de ligne n’est pas fixe, je réalise cette opération sur toutes les lignes.

Quelle serait la solution pour réaliser cette opération jusqu’à la dernière ligne non vide ?



D’avance merci

 

[STéphane]

bonjour

pour faire vite, remplace range("A2:A65536") par range("A2:A" & range("A65536").end(xlup).row) et cela devrait marcher

bye
Stéphane

 

[anthony]

Sauf erreur de ma part, ma macro continue a concatener toutes les lignes. (de la 2ème jusqu'à la dernière) Elle ne s'arrête pas à la dernière ligne "pleine".

P.S. : la macro ne doit pas concatener la ligne 1

Autre idée?

Merci

 

[STéphane]

pardon, il faut se baser sur la présence de valeurs dans B ou dans D

Sub h()
Range("A2").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[1],RC[3])"
Range("A2").Select
Selection.AutoFill Destination:=Range("A2:A" & Range("b65536").End(xlUp).Row), Type:=xlFillDefault
Range("A2:A65536").Select
Range("A2").Select
End Sub

 

[anthony]

Merci STéphane, cela fonctionne et mes fichiers ont diminué d'environ 3M


@+