sélection d'une cellule dans un tableau variable

porcinet82

XLDnaute Barbatruc

• 11 Janvier 2006

• #2

salut nico,

Comme ton fichier n'est pas passé, je te propose une macro qui trouve la dernière cellule dans laquelle se trouve la chaine de caractère recette 9007

Code:

Sub calc_val()
Dim Recette As Range

For Each Recette In ActiveSheet.UsedRange
    If Recette = 'recette 9007' Then
        Recette.Select
    End If
Next Recette
End Sub

@+

 

Vote positif 0 Vote négatif

Océane

XLDnaute Impliqué

• 11 Janvier 2006

• #3

Plouf ton tableau Mico.
Et il ne remonte toujours pas à la surface

 

Vote positif 0 Vote négatif

Charly2

Nous a quittés en 2006

Repose en paix

• 11 Janvier 2006

• #4

Bonsoir KN4, porcinet82 et Océane 🙂

Une autre possibilité en VBA (même compréhension que porcinet82) :

Sub ChercheRecette()
'
Dim Cellule As Range
'
  Set Cellule = ActiveSheet.UsedRange.Find(what:='recette 9007', _
     LookIn:=xlValue, lookat:=xlWhole)
  If Not IsEmpty(Cellule) Then
    Cellule.Select
    With ActiveWindow
      .ScrollColumn = Selection.Column
      .ScrollRow = Selection.Row
    End With
  End If
End Sub

Cliquez pour agrandir...

A+ 😉

 

Vote positif 0 Vote négatif

K

KN4

Guest

• 12 Janvier 2006

• #5

voici mo tableau

excusez-moi

nico

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 12 Janvier 2006

• #6

Salut nico,

Ton fichier n'est toujours pas passé, il doit être <50ko, zippé, et son nom ne doit contenir ni accent ni carctère spéciaux. Pour plus d'information rend toi à l'adress suivante Lien supprimé

Les solutions que l'on a proposées ne fonctionne pas???

@+

 

Vote positif 0 Vote négatif