Discussion :

[emilie10]

Bonjour,

Je suis débutante en macro, je n'effectue que tes enregistrements. J'aurais besoin de votre aide pour selectionner une cellule dans une base à partir d'une variable.

Voilà le problème j'ai deux classeurs :

_ classeur 1 qui contient une base dans une feuille "Base_composant"

_classeur 2 avec une seule feuille "Feuille1" qui détaille le composant


Je voudrai a partir d'un bouton (dans mon classeur 2) lancer un programme qui sélectionnerait une cellule Dx dans ma Base composant (classeur 1) pour laquelle la cellule D2 de Feuille 1 classeur 2 est égale à Ax dans ma Base composant (classeur 1).


Je ne sais pas si c'est très clair. J espère que vous pourrez m aider.


Emilie

[Daranc]

ceci répond à ta question?

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
16
17
18
19
20
21
22
23
24
25
Sub pointage()
 
Dim clef As Variant
Dim t As Long
Dim p As Byte
p = 0
With Workbooks("classeur2.xls").Sheets(1)
clef = .Range("d2").Value
End With
With Workbooks("classeur1.xls").Sheets(1)
vise = .Range("a1:a" & .Range("a65535").End(xlUp).Row)
End With
 
For t = 1 To UBound(vise, 1)
If UCase(clef) = UCase(vise(t, 1)) Then
p = 1
GoTo suite
End If
Next
suite:
If p Then
Workbooks("classeur1.xls").Activate
Sheets(1).Cells(t, 4).Select
End If
End Sub

[emilie10]

Bonjour Daranc,

Je te remercie beaucoup pour ton aide ce code fonctionne très bien!!


Cordialement

Emilie