Discussion :

[philippe34130]

Bonjour

Je voudrai faire un macro qui me permet d'aller chercher des valeurs dont l'entête de colonne est la date du jour dans une feuille de calcul nommé dans le mois en cours et dans un fichier déterminé ceci afin de créer une bas de donnés pour en exploiter les valeurs.

Ou est il possible de faire une macro qui va chercher directement dans un fichier déterminé une entête de colonne qui est la date du jour sans indiquer la feuille de calcul pour en extraire la valeur d'une cellule

Ex: va chercher dans Fichier (2013) une colonne (date du jour), cellule (A6) et qui sera copié dans une nouvelle ligne chaque jour dans le Fichier (base 2013), colonne (date), colonne (valeur ).
Merci à tous de votre aide précieuse

[Philippe Tulliez]

Bonjour,
Je répond à une de tes questions à savoir comment trouver la position d'une étiquette de colonne.
Nous supposons dans cet exemple que la liste où se trouve ce champ commence à la cellule A1 et la recherche se fait sur une étiquette nommée Date.
La procédure

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub ChercheColonne()
 Dim rng As Range, NumCol As Integer, LookedRange As Range, LookedField As String
 LookedField = "Date" ' Champ recherché
 Set rng = ThisWorkbook.Worksheets("db").Range("A1").CurrentRegion
 On Error Resume Next
 NumCol = Application.Match(LookedField, rng.Resize(1), 0)
 If Err Then MsgBox "Le champ " & LookedField & " n'existe pas": On Error GoTo 0: Exit Sub
 With rng ' Affectation de l'adresse de la colonne contenant le champ cherché
  Set LookedRange = .Offset(1, NumCol - 1).Resize(.Rows.Count - 1, 1)
 End With
 MsgBox "La plage complète de la colonne " & LookedRange.Address
End Sub

[philippe34130]

Bonjour,

En verité c'est plus compliqué que ça j'ai mis en fichier joint le fichier 2013 et base.
Je souhaite en cliquant ou en indiquant une date dans la feuille mise à jour du fichier base, importer du fichier 2013, la valeur ligne 7 de la colonne par ex du 01/08/2013 ou la date du jour qui sera donc valeur1 dans la base et un si de suite jusqu’à la valeur 6.
Merci de ta participation et ton aide