Donner une valeur à des cellules

Bonsoir

Je ne pense pas que tu puisses avoir de solution par formules, car je ne vois pas comment détecter la ligne ou tu te trouves autrement que par macro.

Mais comme les cracks des formules sont parmis nous, sait-on jamais.

en tout cas, pour te faire patienter, une solution par macro en pièce jointe.

Sub Bouton3_QuandClic()
Dim cellule As Range

'pour chaque cellule de la feuille liste plage a12:a23
For Each cellule In Sheets('Liste').Range('a12:a23')
'la cellule=cellule (ligne sélectionnée, colonne 1)
cellule = Cells(ActiveCell.Row, 1)
'prochaine cellule
Next cellule
End Sub

Cliquez pour agrandir...

Salut

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

Message édité par: Hervé, à: 25/05/2005 18:09

Bonjour Hervé et le Forum

Merci pour cette Macro qui répond parfaitement à mon problème.

Je vais maintenant pouvoir me remettre au boulot sur ce gros fichier de 5 MO.

Merci encore bonne soirée à tous.

Jouxte