XL 2016 Importer des données depuis un calendrier liste

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 31 Mai 2023

• #2

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<>"")

 

Pièces jointes

• test-qr-230530 (1).xlsm

  121 KB · Affichages: 3

Vote positif 0 Vote négatif

Y

YANNISE

XLDnaute Junior

• 31 Mai 2023

• #3

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 31 Mai 2023

• #4

Re,
Désolé, rien compris.

YANNISE à dit:

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

Cliquez pour agrandir...

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 ?

 

Vote positif 0 Vote négatif

Y

YANNISE

XLDnaute Junior

• 31 Mai 2023

• #5

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 31 Mai 2023

• #6

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

 

Pièces jointes

• test-qr-230530 (1) (1).xlsm

  124.5 KB · Affichages: 1

Vote positif 0 Vote négatif

Solution

Y

YANNISE

XLDnaute Junior

• 31 Mai 2023

• #7

sylvanu, merci bcp

 

Vote positif 0 Vote négatif