julien clerc
XLDnaute Junior
bonjour à tous je cherche une macro afin d'identifier une cellule sur une feuille de calcule sans chercher manuellement car trop long
merci de votre aides
merci de votre aides
Sub Macro1()
Dim r As Range
Set r = Sheets("Ton_Onglet").Cells.Find(Range("Ta_cellule").Value, , xlValues, xlWhole)
If Not r Is Nothing Then
Sheets("Ton_onglet").Select
r.Select
End If
Sub trouve()
lin = Range("A65536").End(xlUp).Row
col = Range("A1").End(xlToRight).Column
Dim F1 As Worksheet
Set F1 = Worksheets("Feuil1")
' Variable
Dim L As Integer
Dim C As Integer
tab1 = F1.Range(F1.Cells(1, 1), F1.Cells(lin, col))
For i = 1 To UBound(tab1, 1)
For J = 1 To UBound(tab1, 2)
If tab1(i, J) = CStr("1 4 10 12 18") Then '
MsgBox tab1(i, J)
L = i
C = J
End If
Next J
Next i
' Selection de la cellule
F1.Cells(L, C).Select
End Sub
[code=vb]
Bon C'était une pointe d'humour, pour Info se forum est Formidable est ceux qui répondent sont vraiment des Pros donc il faut essayer d'être précis et je tiens a dire merci a tous ceux qui mon aider depuis mes début. en espèrent aussi vous avoir aider au plaisir de vous lire tous vous répondre, apprendre, partager pour être toujours plus fort et performant.
Ps : Robert j'ai trouver la réponse en se moment je trvail beaucoup est je suis sur des choses difficile est complexe pour ce qui est de mon niveau, merci a vous Robert car vous m'avez aussi beaucoup aider sur se forum.
Laurent
New | Facultatif. Le mot clé New est généralement utilisé dans les déclarations pour permettre les créations implicites d'objet. Utilisé avec Set, le mot clé New crée une nouvelle instance de la classe. Si l'argument objectvar contenait une référence à un objet, cette dernière est abandonnée lors de l'association de la nouvelle. Le mot clé New ne peut pas être utilisé pour créer de nouvelles instances de types de données intrinsèques ou des objets dépendants. |
objectexpression | Expression représentant le nom d'un objet, d'une autre variable déclarée du même type objet ou d'une fonction ou méthode renvoyant un objet du même type. |
Nothing | Facultatif. Met fin à l'association entre objectvar et un objet donné. L'attribution de la valeur Nothing à l'argument objectvar libère l'ensemble des ressources système et mémoire associées à l'objet anciennement référencé lorsqu'aucune autre variable ne le désigne. |
' Selection de la cellule
F1.Select
F1.Cells(L, C).Select
Sub trouve()
Dim v As String
Dim dl As Integer
Dim dc As Integer
Dim pl As Range
Dim r As Range
v = Application.InputBox("Valeur", "Indiquer la valeur à recherche", Type:=2)
If Not v = False Then
With Worksheets("Feuil1")
dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row
dc = .Cells(1, 1).End(xlToRight).Column
Set pl = .Range(.Cells(1, 1), .Cells(dl, dc))
Set r = pl.Find(v, , xlValues, xlWhole)
If Not r Is Nothing Then
.Select
r.Select
Else
MsgBox "Valeur : " & v & " non trouvé !"
End If
End With
End If
End Sub
v = "3 12 14 34 35"