Discussion :

[Averell1976]

Bonjour,
Un souci de code VBA, perturbé par le fait que je veux comparer des colonnes d'un onglet excel avec des lignes d'un autre onglet....
Dans le fichier joint, j'ai entre autres l'onglet "MATRICE 2014" et l'onglet "TOURNE DATE".
Ce que je souhaite: en cliquant sur le bouton "MISE A JOUR TOURNE" dans "MATRICE 2014", je voudrais récupérer automatiquement le numéro de tourne en ligne 5 en fonction de la date du jour; pour cela, j'ai dans l'onglet "TOURNE DATE" les numéros de tourne en fonction de chaque jour de l'année: donc je voudrai un code VBA qui dirait: si la date contenue en cellule C9 de l'onglet MATRICE 2014 correspond à la date indiquée en cellule B2 de l'onglet TOURNE DATE, alors récupérer en cellule C5 de l'onglet MATRICE 2014 le numéro de tourne indiquée en cellule A2 de l'onglet TOURNE DATE. Faire cela pour le mois complet.....
Si vous pouviez m'aider...
Merci à vous
Averell

[joe.levrai]

Bonjour,

à tester :

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
 
Sub RecupTourne()
 
Dim ShMat As Worksheet
Dim ShTourne As Worksheet
Dim CellMat As Range
Dim CellTourne As Range
 
Set ShMat = ThisWorkbook.Worksheets("MATRICE 2014")
Set ShTourne = ThisWorkbook.Worksheets("TOURNE DATE")
 
For Each CellTourne In ShTourne.Range("B2", "B" & ShTourne.UsedRange.Rows.Count)
    For Each CellMat In ShMat.Range(Cells(5, 3), Cells(5, 33))
        If CellMat.Offset(4, 0) = CellTourne Then
            CellMat = CellTourne.Offset(0, -1)
        End If
    Next CellMat
Next CellTourne
 
Set ShMat = Nothing
Set ShTourne = Nothing
 
End Sub

[Theze]

Bonjour,

Avec une formule Excel à tirer à l'horizontale. Pour cela, il faut que tu inverse les colonne de la feuille TOURNE DATE donc, les dates en colonne A et le code en colonne B :

Code :

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

1
2
 
=RECHERCHEV(C9;'TOURNE DATE'!$A$2:$B$731;2;FAUX)

Hervé.

[Averell1976]

Merci beaucoup, la formule RECHERCHEV marche impeccable!!!!