Discussion :

[gandalf20000000]

Bonjour,

Voici mon problème

J'ai une variable définir comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim Datejour as string
 
'La case ciblé contient la date du jour
 
Datejour = Workbooks("stocks_2009_10.xls").Sheets("UNE").Range("B6")

J'aimerais pour rechercher et selectionner la case contenant ma variable dans une plage ("A1:IV1") de la feuille ("Stock").

par la suite, l'objectif est de coller le montant du stock dans la case en dessous (mais ca je sais faire )


N'étant pas un expert du VBA, je n'ai aucune idée de la fonction à utiliser

Pouvez-vous m'aider?

merci

[jfontaine]

Bonjour,

Tu peux utiliser la méthode FIND

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Msgbox Sheets("Stock").range("A1:IV1").Find(Datejour).Address

F1 pour plus d'informations

[gandalf20000000]

Merci pour ton aide Jérome,

Pourtant, je n'ai toujours pas réussi à selectionner la case en question

J'ai essayer aussi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
    Dim datejour As String
    Dim cellule As Range
 
    datejour = Workbooks("stocks_2009_10.xls").Sheets("UNE").Range("B8")
 
   cellule = Sheets("Stocks").Range("A1:CD1").Find(datejour)
 
   range(cellule).Selection

Ca plante toujours sur le ligne avec la méthode find. (erreur 91 objet non défini)

[aalex_38]

Bonjour à tous,

Tu dois rajouter set pour instancier un range [pas testé] :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

set cellule = Sheets("Stocks").Range("A1:CD1").Find(datejour)

[jfontaine]

Essai tout simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Stocks").Range("A1:CD1").Find(datejour).Select

[gandalf20000000]

J'ai essayer les deux solutions, ca ne marche pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
   Sub test()
 
 
 
    Dim datejour As String
    Dim cellule As Range
 
    datejour = Workbooks("stocks_2009_10.xls").Sheets("UNE").Range("B8")
 
   cellule = Sheets("Stocks").Range("A1:CD1").Find(datejour)
 
   range(cellule).Select
 
   End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
   Sub test()
 
 
 
    Dim datejour As String
 
 
    datejour = Workbooks("stocks_2009_10.xls").Sheets("UNE").Range("B8")
 
  Sheets("Stocks").Range("A1:CD1").Find(datejour).select
 
   End Sub

[jfontaine]

peut etre cette ligne a corriger

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

datejour = Workbooks("stocks_2009_10.xls").Sheets("UNE").Range("B8").Value

[Didier Gonard]

Bonjour,

Les solutions, ici on te les donneras pratiquement toujours, par contre utilises les comme des pistes pour accroître tes connaissances, c’est ce qui te fera gagner du temps, du copier-coller, ça peut marcher un jour et l’autre non, si on a décrypté (pour les choses basiques au moins) ça va plus vite et c’est plus sûr... et pour employer ce dont on a besoin on regarde l'aide au mini pour voir de quoi il retourne si on ne connaît pas ce qui est employé


code qui plante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
 
 
 
    Dim datejour As String
    Dim cellule As Range
 
    datejour = Workbooks("stocks_2009_10.xls").Sheets("UNE").Range("B8")
 
   cellule = Sheets("Stocks").Range("A1:CD1").Find(datejour)
 
   range(cellule).Select
 
   End Sub

Vois donc dans les tutos à variables, affectation et dans l’aide vba la méthode find….

Aide vba / méthode Find :
Cette méthode recherche une information spécifique dans une plage et renvoie un objet Range …/…

Donc ma variable sera objet et affectée via l’instruction Set.

Aide vba / méthode Find :
…/… What Argument de type Variant obligatoire …/ …

Donc ma variable datejour sera typée Variant

Essaies ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Piste()
Dim datejour As Variant
Dim cellule As Range
'sheets(2) est active
'la date voulue est en C8 de sheets(2)
 
datejour = Sheets(1).Range("B8")
Set cellule = Sheets(2).Range("A1:CD18").Find(datejour)
cellule.Select
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 range(cellule).Select

ne peut avoir de sens que dans ce contexte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub pass()
Dim cellule As String
 
cellule = "C20"
 Range(cellule).Select
End Sub

Sinon soit cellule est un Name et tu devrais avoir Range("cellule").Select
soit cellule est un Range et tu as : cellule.Select

ce seras clair pour toi en lisant le(s) tuto(s) sur les variables

cordialement,

Didier

[gandalf20000000]

merci à tous, et merci à Ormonth pour son aide éclairé!