Recherche cellule

Résolu
Signaler
Messages postés
6
Date d'inscription
vendredi 22 juin 2007
Statut
Membre
Dernière intervention
25 juin 2007
-
Messages postés
6
Date d'inscription
vendredi 22 juin 2007
Statut
Membre
Dernière intervention
25 juin 2007
-
Rebonjour,

je voudrais également récupérer la position d'une cellule par
exemple : recherche parmis (A:1A10) la cellule 0.1 et nvlle variable
"A5" position de la cellule qui contient 0.1.

Merci d'avance.

6 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,
Essaie plutot
On Error Resume Next
  Dim Address As String
  'Selection de la plage A1:A44 de la feuille 2
  Worksheets(2).Range("A1:A44").Select
  Address = Selection.Find("0.1", ActiveCell, xlValues, xlPart, xlByRows, xlNext, False).Address
  On Error GoTo 0
  'Addresse dans la cellule A5 de la feuille 1
  Worksheets(1).Range("A5").Value = Address, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,
Récapitulons (pour voir si je ne me trompe pas)

Tu souhaites recherche la cellule qui contient 0.1  dans la plage A1:A10 et mettre l'addresse de cette cellule dans la cellule A5 c'est bien ca?

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
6
Date d'inscription
vendredi 22 juin 2007
Statut
Membre
Dernière intervention
25 juin 2007

Oui ou sinon la mettre directement dans une variable de la macro
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
SAlut,
NOTE: pour tes futures question (inutile pour celle ci) pense à la poster dans la section correct: a savoir [infomsg.aspx Thèmes]

/ [infomsgf_VISUAL-BASIC_1.aspx Visual Basic 6] / [infomsgt_LANGAGES-DERIVES_287.aspx Langages dérivés] / [infomsgt_VBA_244.aspx VBA]
=> d'avance merci
Regarde ce que fait ceci:

On Error Resume Next
   Dim Address As String
   Range("A1:A10").Select
   Address = Selection.Find("0.1", ActiveCell, xlValues, xlPart, xlByRows, xlNext, False).Address
   On Error GoTo 0
   Range("A5").Value = Address, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
6
Date d'inscription
vendredi 22 juin 2007
Statut
Membre
Dernière intervention
25 juin 2007

Vu que c'est la feuille 2 je peux mettre :
Range("Worksheets(2).A5:Worksheets(2).A44").Select?

Enfin ca me renvoie "" alors que 0,1 existe bel et bien dans A6 et que ca marche quand je fais la fonction recherche
<col style=\"width: 60pt;\" width=\"80\" /><col />----
0,10
Messages postés
6
Date d'inscription
vendredi 22 juin 2007
Statut
Membre
Dernière intervention
25 juin 2007

Merci!!!