macro excel

Bonjour, devant répéter souvent les mêmes ecritures dans excel, je me suis essayé pour la première fois aux macros, mais je ne parviens pas à résoudre le probleme suivant et à créer ainsi une macro utile. Quand j'écris par exemple un "f" dans une cellule, je voudrais que dans la cellule de la colonne suivante s'affiche automatiquement le nombre "50". Or, cela ne fonctionne que dans la cellules à partir de laquelle j'ai créé la macro. Comment faire pour cela se reproduise dans n'importe quelle cellule de ma feuille quand je demande la macro à partir de cette cellule?

J'espère avoir été à peu près clair. Merci de votre aide.

bonjour,

affiche nous ta macro, et on t'aidera. (Alt F11) copier coller ici.
1)je pense qu'il faudra remplacer ta cellule fixe par with activecells
cette methode t'oblige à cliquer à chaque fois sur le bouton de ta macro pour effectuer l'ecriture de 50.

2ème solution, on pourra t'ecrire une macro evenement, dès que tu entreras la lettre F, excel te mettra automatiquement le chiffre 50 dans la colonne d'à côté.
laisse nous le temps de te faire cela.

Bonjour, merci de t'intéresser à mon problème.

Ci-dessous, ma macro :

fibro Macro
' Macro enregistrée le 11/11/2008 par CDO
'
' Touche de raccourci du clavier: Ctrl+f
'
ActiveCell.FormulaR1C1 = "fibro"
Range("F470").Select
ActiveCell.FormulaR1C1 = "50"
Range("B471").Select
End Sub

2)methode automatique:
ici on rentre la lette f ou F majuscule pour obtenir 50 dans la cellule d'à coté.

cas où :
dans menu/option/onglet modification
La case deplacerla selection après validation: est decochée

copie la macro dans la feuille correspondante à ton classeur (Alt F11)

Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveCell
If ActiveCell.Text = "f" or ActiveCell.Text = "F" Then Cells(ActiveCell.Row, ActiveCell.Column + 1) = 50
End With
End Sub


-------------------------
cas où :
dans menu/option/onglet modification
La case deplacerla selection après validation: est cochée

Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveCell
If Cells(ActiveCell.Row - 1, ActiveCell.Column).Text = "f" or Cells(ActiveCell.Row - 1, ActiveCell.Column).Text = "F" Then Cells(ActiveCell.Row - 1, ActiveCell.Column + 1) = 50
End With
End Sub

----------------

Sub fibro ()

With ActiveCell
If ActiveCell.Text = "fibro" or ActiveCell.Text = "FIBRO" Then Cells(ActiveCell.Row, ActiveCell.Column + 1) = 50
End With

End sub

salut
la même en plus feignant :
With ActiveCell
If ucase(.value)="FIBRO" Then .offset(0,1)= 50
End With

A+

Merci à tous pour votre aide. J'ai également trouvé en tatonnant une autre solution. Pour que la macro que j'enregistre avec l'outil d'excel se positionne sur n'importe quelle cellule et non sur la cellule de creation de la macro, il faut enfoncer le bouton juste à droite du bouton "arrêt de l'enregistrement de la macro".

bonjour CDO,
bravo! tu as trouvé l'astuce du Relatif et non de l'absolu.
nos formules servent aussi à d'autres personnes.