concatener en macro

[David T]

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]

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]

Woua mais c'est génial ça!

Merci beaucoup Robert!!!!

 

[bebere]

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]