Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1440 connectés 

  FORUM HardWare.fr
  Windows & Software
  Logiciels

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°2494738
mulpha
Posté le 21-08-2006 à 18:14:28  profilanswer
 

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"
 

mood
Publicité
Posté le 21-08-2006 à 18:14:28  profilanswer
 

n°2494792
seniorpapo​u
Posté le 21-08-2006 à 18:49:38  profilanswer
 

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

n°2494824
TAM136
Posté le 21-08-2006 à 19:14:29  profilanswer
 

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
n°2494974
seniorpapo​u
Posté le 21-08-2006 à 21:37:14  profilanswer
 

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
@+

n°2496935
mulpha
Posté le 23-08-2006 à 21:13:48  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Windows & Software
  Logiciels

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

 

Sujets relatifs
excel : graphique et tricomment changer l'icone de word Excel et ppt?help me
question de debutantliste excel impossible sous google spreedsheet ?
urgent : excel 2007 et macros[firefox] ne veut rien afficher... ??
formule excelQuestion annodine sur la license windows XP
Excel : fonction si et *quotas sous 2003 : question par rapport à la notification par email
Plus de sujets relatifs à : question excel : afficher le nom de la cellule dans une case.


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR