XL 2010 Base de données

TaharGhita

XLDnaute Nouveau
Bonjour Team,

Me voilà je sollicite l'aide des experts.
J'essaye de faire une base de données des employés,
Ci joint deux classeurs :
1fichier avec les données de chaque employé (nom. Prénom. Adresse....)
2 fichier un classeur sur lequel je dois saisir manuellement les données et à l'aide d'un macro je tape un mot clé et par la suite il me fait sortir la fiche de l'employé.
Je me bloque sur le faite que je dois terminer le copier coller du fichier 1 vers le 2 fichier.
La mise en forme est assez médiocre et conception est pas bonne et non présentable.

Pourriez vous m'aider pour corriger et trouver une solution à mes problèmes ?
Je compte le mettre accessible depuis une adresse (URL) est ce que c'est possible ?

Merci d'avance pour votre réponse et aide.
 

Pièces jointes

  • MAJ BASE DE DONNEES.xls
    128 KB · Affichages: 14

TaharGhita

XLDnaute Nouveau
En appuyant sur le bouton Validation modif


Boisgontier
Malheureusement j'ai une image non cliquable ci-dessous:

1584029024217.png
 

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Pour la recherche:
1/ Il y a 6 comboboxs
2/ Recherche intuitive dans le ListBox avec la Textbox

C'est un pgm générique;

On peut modifier


Code:
 ColCombo = Array(1, 2, 3, 4, 5, 6)                           ' A adapter (1 à 6 colonnes maxi)
 colVisu = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17) ' Colonnes ListBox (à adapter)
 colInterro = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17) ' colonnes à interroger (adapter)


Sans titre.png



VB:
 ColCombo = Array(1, 2, 3, 4, 5, 6)                           ' A adapter (1 à 6 colonnes maxi)
colVisu = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17) ' Colonnes ListBox (à adapter)
colInterro = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17) ' colonnes à interroger (adapter)

Boisgontier
 

Pièces jointes

  • Copie de FormRechercheComboTextBoxIntuitifTableau.xlsm
    147.4 KB · Affichages: 7
Dernière édition:

TaharGhita

XLDnaute Nouveau
Pour la recherche:
1/ Il y a 6 comboboxs
2/ Recherche intuitive dans le ListBox avec la Textbox



VB:
 ColCombo = Array(1, 2, 3, 4, 5, 6)                           ' A adapter (1 à 6 colonnes maxi)
colVisu = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17) ' Colonnes ListBox (à adapter)
colInterro = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17) ' colonnes à interroger (adapter)

Boisgontier
J'ai pas la la main pour lancer la recherche dpuis la feuille accueil, voila le fichier en PJ
 

Pièces jointes

  • Copie de FormRechercheComboTextBoxIntuitifTableau.xlsm
    101.1 KB · Affichages: 8

Discussions similaires

Réponses
27
Affichages
1 K

Statistiques des forums

Discussions
315 103
Messages
2 116 249
Membres
112 696
dernier inscrit
MagideDupont