Bonjour
Sauf que d'après ce que j'ai compris, il ne connaît pas la cellule dans laquelle se trouve le texte.
J'ai deux macros mais elles ne répondent pas directement à la question. Je pense qu'il faut les combiner Un pro pourra peut-être trouver la solution.
Sub Macro3()
If Range("A2" ).Value = "gagner" Then
Range("D8" ).Value = "A2"
Else
Range("D8" ).Value = ""
End If
End Sub
Cette macro permet à condition qu'on connaisse la valeur dans laquelle se trouve le texte de copier la référence de la cellule.
Sub Macro4()
For i = 1 To 150
For j = 1 To 200
If Cells(i, j).Value = "gagner" Then
Range("D8" ).Value = Cells(i, j)
End If
Next j
Next i
End Sub
Cette macro permet de copier le texte sans connaître la cellule d'origine.
Message édité par TAM136 le 26-11-2006 à 09:08:16