question excel : afficher le nom de la cellule dans une case.

question excel : afficher le nom de la cellule dans une case. - Logiciels - Windows & Software

Marsh Posté le 21-08-2006 à 18:14:28    

Bonjour a tous.
 
Ca fais un moment que je cherche mais je ne trouve pas comment resoudre mon probleme.
Alors je vous l'expose merci de bien vouloir m'aider.
 
Sur excel, j'ai une case qui affiche "gagner" et je voudrai avoir dans une autre cellule les coordonnées de la case ou est marqué gagner (sachant quelles est pas toujour au meme endroit)
 
 
A1[]                                                    
b1[gagner]
c1[]
...
 
dans la case X8 je voudrai voir afficher "B1"
 

Reply

Marsh Posté le 21-08-2006 à 18:14:28   

Reply

Marsh Posté le 21-08-2006 à 18:49:38    

Bonjour,
est-ce que ceci peut t'aider à faire quelque chose?
MsgBox Cells(1, 2).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Cordialement

Reply

Marsh Posté le 21-08-2006 à 19:14:29    

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
Reply

Marsh Posté le 21-08-2006 à 21:37:14    

Bonsor,
a améliorer:
Range("a1" ).Activate
 
With Worksheets(1).Range("a1:x500" )
     Set fifi = .Find(What:="gagner", After:=ActiveCell, LookIn:=xlFormulas)
    cascade = fifi.Address(RowAbsolute:=False, ColumnAbsolute:=False)
End With
Range("X8" ).Value = cascade
End Sub
 
le fait de mettre a1:x500 en dur ne me plait pas
@+

Reply

Marsh Posté le 23-08-2006 à 21:13:48    

Merci pour votre aide mais vos formules ne marche pas completement dans mon cas.
Quand au set fifi... casacade, c'est du trop haut vol pour moi^^
 
Finalement je me suis debrouillé sans VB.
J'ai crée une macro qui me permet de mettre un tableau  autour de la feuille
et ensuite je fais une rechercheV pour trouver le numéros de ligne et je "concatene" le A avec le numeros trouvé...
Fastidieu mais tant que ca marche :)
http://img201.imageshack.us/img201/1127/recherchevqr7.th.jpg

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed