Fonction cells.find problème de syntaxe
Résolu
Keufi
-
Le Pingou Messages postés 12276 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12276 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je débute en VBA et j'essaye de faire fonctionner un programme qui me permettrait,à partir de la valeur d'une cellule dans une certaine feuille, de localiser la cellule de même valeur dans une autre feuille.
J'ai essayé ca mais ca donne rien car je n'arrive pas à faire comprendre à excel qu'il faut aller dans une autre feuille pour prendre la valeur à rechercher:
Set cellules = Range(Selection, Selection.End(xlToRight))
longueur = cellules.Count
For i = 1 To longueur
range("W12").Select
Set kan = Selection.CurrentRegion
ActiveWorkbook.Names.Add Name:="kan", RefersTo:=Selection
Sheets("EURIBOR 3 mois").Select
Cells.Find(what:=kan, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Select
ActiveCell.Offset(0, 2).Copy
Sheets("Crédits CMB").Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Select
Next i
QQun pour m'aider svp???
Je débute en VBA et j'essaye de faire fonctionner un programme qui me permettrait,à partir de la valeur d'une cellule dans une certaine feuille, de localiser la cellule de même valeur dans une autre feuille.
J'ai essayé ca mais ca donne rien car je n'arrive pas à faire comprendre à excel qu'il faut aller dans une autre feuille pour prendre la valeur à rechercher:
Set cellules = Range(Selection, Selection.End(xlToRight))
longueur = cellules.Count
For i = 1 To longueur
range("W12").Select
Set kan = Selection.CurrentRegion
ActiveWorkbook.Names.Add Name:="kan", RefersTo:=Selection
Sheets("EURIBOR 3 mois").Select
Cells.Find(what:=kan, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Select
ActiveCell.Offset(0, 2).Copy
Sheets("Crédits CMB").Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Select
Next i
QQun pour m'aider svp???
Configuration: Windows XP Internet Explorer 7.0
2 réponses
-
Bonjour,
Essayez la procédure qui suit ou: valeur cherchée en A1 (en feuille 3) dans la feuille [Feuil1]:
Sub cherchevaleur()
'
test = Range("A1") ' la valeur à chercher
For i = 1 To 256
nuli = Application.Match(test, Sheets("Feuil1").Columns(i), 0)
If Not IsError(nuli) Then
pos = "Feuil1 ! " & Sheets("Feuil1").Cells(nuli, i).Address
MsgBox ("Ma valeur est dans la cellule : " & pos)
Exit Sub
End If
Next i
End Sub -
De rien.
