concatener en macro

David T · 24 Août 2005

Bonjours à tous le forum!

J'essaye de de concatener par macro le contenu d'une collone! Mais en fait, il y a un petit plus, sinon ce serait facile!

En fait dans la colonne A j'ai des données de la cellule A2 à la cellule A(X)! Le but est de rajouter dans la cellule au tout début le mots 'taille : ' mais uniquement dans les cellules de la colonne A où il y a des données!

Voici un fichier xls pour mieux comprendre

Merci d'avance

[file name=exemple_dav.zip size=2891]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple_dav.zip[/file]

Robert · 24 Août 2005

Bonjour David, bonjour le forum,

En pièce jointe ton fichier avec la macro suivante :

Sub Macro1()
Dim cel As Range 'déclare la variable cel

Sheets('modèle').Activate 'selectionne l'onglet 'modèle'
'boucle sur toutes les cellules éditées de la colonne A
For Each cel In Range('A2:A' & Range('A65536').End(xlUp).Row)
If cel.Value <> '' Then 'condition : si la cellule n'est pas vide
cel.Value = 'taille : ' & cel.Value 'modifie le contenue de la cellule
End If 'fin de la condition
Next cel 'prochaine cellule de la boucle
End Sub

[file name=exemple_dav2.zip size=10308]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple_dav2.zip[/file]

David T · 24 Août 2005

Woua mais c'est génial ça!

Merci beaucoup Robert!!!!

bebere · 24 Août 2005

bonjour David,Robert
le code est dans la feuille modèle
à+ [file name=exemple_dav_20050824102231.zip size=7547]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple_dav_20050824102231.zip[/file]

concatener en macro

David T

Guest

Pièces jointes

Robert

XLDnaute Barbatruc

Pièces jointes

David T

Guest

bebere

Guest

Pièces jointes

Discussions similaires