Discussion :

[rayimwende]

bonjour à tous!
je suis un néophyte en programmation vba!
j'ai un projet ou je dois faire des vlookup dans une feuille("SAISIE DONNEES") puis afficher les résultats dans une autres feuille("PERFORMENCE") à une date à saisir dans feuille("PERFORMENCE").
le résultat de la recherche doit être afficher dans:

Code :

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

Thisworkbook.sheets("PERFORMENCE").range("D25:A49")

la valeur recherché est la date du jour et se trouve dans:

Code :

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

Thisworkbook.sheets("PERFORMENCE").range("k2")

La plage ou la recherche est effectuée se trouve dans:

Code :

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

Thisworkbook.sheets("SAISIE DONNEES").range("A5:IN369")

Les valeurs recherchées sont dans les colonne 8 à 253.
La procédure que j'ai écris pour la range("D25") est la suivante:

Code :

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

Range("D25").Value = Application.vlookup(ThisWorkbook.Sheets("PERFORMENCE").Range("k2"), ThisWorkbook.Sheets("SAISIE DONNEES").Range("A5:IN369"), 8, False)

ça marche parfaitement et j'ai ma valeur recherchée qui s'affiche correctement à la range("D25"). Ma QUESTION?
Les autres valeurs recherchées sont dans les colonnes 9,10,11,12,---253
les autres céllules à remplir sont dans les range(D26),D27,D28,D29,---D49
COMMENT ECRIRE UNE BOUCLE POUR REMPLIR LES AUTRES CELLULES .
MODEL:

Code :

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

1
2
3
4
5
6
7
dim i as interger, j as long
for i= 25 to 49
for j=8 to 32
range("D" & i ).value= Application.vlookup(ThisWorkbook.Sheets("PERFORMENCE").Range("k2"), ThisWorkbook.Sheets("SAISIE DONNEES").Range("A5:IN369"), j, False)
next j
next i
End sub

comment écire une boucle pour varier i = 25 to 49 et j=8 to 32
pour afficher mes valeurs
qui peut m'aider car ça ne marche pas la je casse la tete

[tedo01]

Bonjour,
Comme les deux variables sont liées, il suffit d'une seule boucle :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim i As Integer
Dim j As Integer
 
For i = 25 To 49
   j = i - 17
   Range("D" & i ).value= Application.vlookup(ThisWorkbook.Sheets("PERFORMENCE").Range("k2"), ThisWorkbook.Sheets("SAISIE DONNEES").Range("A5:IN369"), j, False)
Next i
End sub

[rayimwende]

super! c'est exactement ce que je veux! merci pour votre contribution. je vous poserai une autre question su le meme sujet dans les heures à venir; et e pense que vous serez toujours disposer à m'aider! merci d'avance

[Aakash Qureshi]

je reviens a cette question posé en 2013. Comment fait on pour etablir la fonction vlookup, parceque:

- j'extrait par mois une base qui fait varier le nombre de ligne.
- la donnée recherchée se trouve sur une autre feuille.
- que je dois creer 3 colonnes pour un meme tableau avec vlookup dont les recherches concerne 3 feuilles differentes.

Merci d'avance pour votre retour