cherche macro

Salut !


J'ai pas tres bien compris la question mais cela je pense va t'aider :

a la place de 'valeur de la cellule A1' du peut mettre :

Range("le nom de ta cellule exemple A1").Value


Voila, tiens nous au courant, romfret

bonsoir Arnoonthenet et Romfret

pour ma part j'ai compris qu'Arno souhaite formater les cellules avec des symboles ( ) ' ,

ci joint une proposition de procédure

Sub insert()
Dim cell As Range

For Each cell In Range("a1:cb300") 'plage à mettre à jour !
Select Case cell.Column
Case 1
cell.Value = "('" & cell.Value & "',"
Case 5
cell.Value = " ' " & cell.Value & "')"
Case Else
cell.Value = " ' " & cell.Value & "',"
End Select
Next

End Sub


j'espere que cela repondra à ta demande...et que j'ai bien compris la question

bonne soirée
michel

rebonsoir

ouppps ...il est temps d'aller me coucher....

au lieu de case 5, il faut inscrire le nombre de colonnes du tableau à formater


bonne soirée
michel

merci michel
C'est ce que j'avais besoin, j'ai modifié un peu pour avoir exactement le rendu souhaité.

C'est un grand pas pour l'évolution de mon site


Bonne nuit



ARNO