XL 2016 Importer des données depuis un calendrier liste

[YANNISE]

Bonjour le forum,

je souhaite importer des données depuis la feuille deux qui présente une liste par date à la feuille 1 selon la date que j'ai sur la feuille 1 cellule C26
ainsi si toutes les données importées sont remplies alors la police de la date devient rouge
mais si les cellules dans la feuille 2 sont vides alors un MsgBox apparait "pas de données à importer"

mon fichier exemple en PJ, merci d'avance

 

[sylvanu]

Bonjour Yannisse,
Si dans la BDD il n'y a qu'une seule ligne par date, alors on peut faire en D26 :

=SI(RECHERCHEV($C26;Feuil2!$D:$H;2;FAUX)=0;"";RECHERCHEV($C26;Feuil2!$D:$H;2;FAUX))

et la MFC en C26:

=ET($D$26<>"";$E$26<>"";$F$26<>"";$G$26<>"")

 

[YANNISE]

Bonjour sylvanu,

merci pour la réponse, mais je voulais une macro car les cellules sur la feuille 1 seront parfois remplies pour alimenter le tableau
j'espère que je me suis bien exprimé, merci

 

[sylvanu]

Re,
Désolé, rien compris.

les cellules sur la feuille 1 seront parfois remplies pour alimenter le tableau

Est ce que ça veut dire que quelquefois la feuille 1 est remplie et doit alimenter la feuille 2 ?
Il faudrait alors deux boutons "Importer" et "Exporter". C'est ça ?

 

[YANNISE]

sylvanu, exactement mais il me suffit maintient juste le bouton de l'import

Importer les données selon la date sur la feuille 1 C26
si les cellules dans la feuille 2 sont vides alors un MsgBox apparait "pas de données à importer"

Merci d'avance

 

[sylvanu]

Un essai en PJ avec :

Sub Importe()
With Sheets("Feuil2")
    On Error GoTo Erreur
    Ligne = Application.Match([C26], .[D1:D10000], 0)
    [D26:G26] = .Range(.Cells(Ligne, "E"), .Cells(Ligne, "H")).Value
End With
Exit Sub
Erreur:
    [D26:G26].ClearContents
    MsgBox "Sorry, date non trouvée."
End Sub

 

[YANNISE]

sylvanu, merci bcp