problème avec une comparaison

1 réponse

tuor

20/06/2006 à 18:47

bonjour,

voila je cherche a créer une macro qui me permette de rechercher parmis des
données un nom ou un numéro bien précis.
mais je rencontre un problème. je ne sais pas comment faire la comparaison
entre le nom que j'ai rentré et ceux contenu dans ma feuille excel.
pourriez vous m'aider s'il vous plait. je vous envoie la boucle que j'ai
crée.

Merci d'avance pour votre réponse

Sub activesheet()
Dim rep As String
Dim i As Integer
Dim b As String
b = "B"
rep = InputBox("Veuillez rentrer le nom recherché")
For i = 4 To 1000
If rep = Feuil2.Cells.AddressLocal(4, b) Then
MsgBox (Feuil2.Cells.AddressLocal(4, b))
End If
Next i
End Sub

1 réponse

Jean-François Aubert

20/06/2006 à 19:34

Salut tuor,

Je suis resté le plus proche possible de ta macro,
mais tu pourrais aussi utiliser une "application.find(.....)"

Sub activesheet()
Dim rep As String
Dim i As Integer
Dim b As Integer
Dim c As String
c = "B"
b = Range(c & "1").Column
rep = InputBox("Veuillez rentrer le nom recherché")
For i = 1 To 15
If rep = Feuil2.Cells(i, b) Then
MsgBox (Feuil2.Cells(i, b))
End If
Next i
End Sub

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}

"tuor" a écrit dans le message de news:

bonjour,

voila je cherche a créer une macro qui me permette de rechercher parmis
des
données un nom ou un numéro bien précis.
mais je rencontre un problème. je ne sais pas comment faire la comparaison
entre le nom que j'ai rentré et ceux contenu dans ma feuille excel.
pourriez vous m'aider s'il vous plait. je vous envoie la boucle que j'ai
crée.

Merci d'avance pour votre réponse

Sub activesheet()
Dim rep As String
Dim i As Integer
Dim b As String
b = "B"
rep = InputBox("Veuillez rentrer le nom recherché")
For i = 4 To 1000
If rep = Feuil2.Cells.AddressLocal(4, b) Then
MsgBox (Feuil2.Cells.AddressLocal(4, b))
End If
Next i
End Sub

problème avec une comparaison

1 réponse

Veuillez sélectionner un problème