trouver le numéro d'une case

trouver le numéro d'une case - VB/VBA/VBS - Programmation

Marsh Posté le 23-03-2006 à 19:48:41    

voila mon problème
j'aimerai connaitre le numéro de la cases dans laquelle il y a écrit écrit le text "truc" dans ma page excel . comment est ce que je peux faire, il faut faire un test, .... merci

Reply

Marsh Posté le 23-03-2006 à 19:48:41   

Reply

Marsh Posté le 24-03-2006 à 11:32:42    

Bonjour Tibo
Bonjour à tous
Es tu sur excel ?
Ce que tu appelles le numéro de la case, est ce le n° de la ligne et le repère de la cellule ?
La "case" est elle dans une seule colonne, une seule ligne ou dans une plage ?
Précise nous un peu, après nous pourrons te répondre plus facilement
 
Cordialement

Reply

Marsh Posté le 25-03-2006 à 12:49:59    

effectivement je suis sur excel. Ce que j'appelle "case", c'est en faite une seule cellule. J'aurai besoin de son numéro de ligne et de sa colonne.

Reply

Marsh Posté le 25-03-2006 à 14:36:50    

bonjour,

Code :
  1. Sub test()
  2. MsgBox ActiveCell.Address
  3. End Sub


A+


---------------
roger
Reply

Marsh Posté le 25-03-2006 à 15:05:28    

merci mais en fait il me faut la ligne et la colonne de la cellule dans laquelle il y a écrit le mot "truc" et non pas la ligne et la colonne de la cellule sélectionnée. mais merci quand même

Reply

Marsh Posté le 25-03-2006 à 15:34:58    

Voici une petite macro qui devrait faire l'affaire et que j'ai testée.

Public Sub cherche_truc()
   For row = 1 To 10
      For col = 1 To 10
         If (Cells(row, col).Value = "truc" ) Then
            MsgBox ("Truc trouvé ligne " & row & ", colonne " & col)
            Exit Sub
         End If
      Next
   Next
End Sub


Reply

Marsh Posté le 25-03-2006 à 15:42:03    

Bien !
la méthode la plus générale pour trouver une cellule est find
Une recherche sur ce mot aurait donné :

Code :
  1. Sub test()
  2. With Worksheets(1).Cells
  3.     Set c = .Find("truc", LookIn:=xlValues)
  4.     If Not c Is Nothing Then
  5.       MsgBox c.Address
  6.     End If
  7. End With
  8. End Sub


A+


---------------
roger
Reply

Marsh Posté le 25-03-2006 à 17:54:02    

merci je devrais pouvoir réussir à faire ce que je veux avec ça  

Reply

Sujets relatifs:

Leave a Replay

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