XL 2016 Importer des données depuis un calendrier liste

YANNISE · 31 Mai 2023

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 · 31 Mai 2023

Un essai en PJ avec :

VB:

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

sylvanu · 31 Mai 2023

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

VB:

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

et la MFC en C26:

Code:

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

YANNISE · 31 Mai 2023

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 · 31 Mai 2023

Re,
Désolé, rien compris.

YANNISE à dit:
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 · 31 Mai 2023

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 · 31 Mai 2023

Un essai en PJ avec :

VB:

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 · 31 Mai 2023

sylvanu, merci bcp

XL 2016 Importer des données depuis un calendrier liste

YANNISE

XLDnaute Junior

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

YANNISE

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

YANNISE

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Pièces jointes

YANNISE

XLDnaute Junior

Discussions similaires