Donner une valeur à des cellules

[Jouxte]

Bonjour à toutes et a tous,

Je souhaite que toutes les cellules de la plage A12 à A23 sur la Feuil 2 (Liste) prennent la valeur de la cellule colonne A ligne sur laquelle je me trouve de la Feuil 1 (Participants)
Si l’un ou l’une d’entre-vous peut me dépanner !!
fichier joint.
est-ce possible sans macro ?

Merci à toutes et a tous.

@+
Jouxte
[file name=Chgtval.zip size=5420]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Chgtval.zip[/file]

 

[Hervé]

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

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

 

[Jouxte]

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