Ecrire macro

[Speedball]

Bonjour à tous

Je souhaiterais écrire une macro

en premier chercher une cellule dans la colonne A qui contient mon repère 'journée2' et en sortir la ligne 'X'
Ensuite sur cette ligne écrire

With .Range('F'X'')
Range('F21').Value = '8ème journée'
.Characters(2, 3).Font.Superscript = True
End With
With .Range('H'X'')
Range('H21').Value = '9ème journée'
.Characters(2, 3).Font.Superscript = True
End With
With .Range('J'X'')
Range('J21').Value = '10ème journée'
.Characters(3, 3).Font.Superscript = True
End With

J'espère avoir été claire

Merci

 

[Hervé]

Bonjour

Ton post manque de clarté,


essaye, quelque chose comme cà :

Public Sub vev()
Dim laligne As Integer

laligne = Columns(1).Find('journée2', LookAt:=xlWhole).Row

With Range('f' & laligne)
.Value = '8ème journée'
.Characters(2, 3).Font.Superscript = True
End With
'..... etc....
End Sub

Tiens nous au courant.

 

[Speedball]

Ok merci

En même temps j'ai essayé des choses
Et j'ai réussi à corriger mais problème
J'ai écrit çà

Dim J As Integer
J = WorksheetFunction.Match('journée2', .Columns('A'), 0)

With .Range('F' & J)
Range('F' & J).Value = '8ème journée'
.Characters(2, 3).Font.Superscript = True
End With
With .Range('H' & J)
Range('H' & J).Value = '9ème journée'
.Characters(2, 3).Font.Superscript = True
End With

Et çà marche

Cela doit venir au même que toi
Mais je te remercie, je l'ai écrit en aveugle

A plus