CVthèque avec Excel

Bonjour,

Suite à la discussion : http://www.developpez.net/forums/d13...ue-sous-excel/




Je suis nouveau sur le forum et novice sur excel.
Pas de problème sur les fonctions mais beaucoup plus sur les macros....
J'ai regardé le topic et les bdd précédentes qui sont super bien et correspondent parfaitement à ce que je recherche.
Je suis un peu dans le même cas que Mickelo22E, d'ailleurs avez-vous réussi à changer votre CVthèque comme vous le vouliez ?
Sinon est-il possible d'avoir quelques explications afin de comprendre le fonctionnement et pouvoir le changer comme je le souhaite ?
J'ai aussi regardé le lien de rdurupt mais j'ai beaucoup de mal à comprendre comment changer certaines valeurs.
Merci d'avance pour votre aide et vos réponses

Bonjour,
ton fichier excel représente une tranche de vie!

chaque linge représente un enregistrement! tu as un ligne de titre et x ligne de données;si je considère 3 ligne de données, je vais initialiser ma barre de défilement a 4 enregistrement sachant que la ligne 1 représente la bare de titre. donc ma barre de défilement commence à la deuxième ligne et ce termine à la quatrième ligne ce qui me donne bien 3 ligne!

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize() NbId = ActiveSheet.UsedRange.Rows.Count + 1 'je compte une ligne de plus pour l'ajout! Id = 2 Me.ScrollBar1.Min = 2 Me.ScrollBar1.Max = NbId Resultat End Sub

---

donc a chaque fois que je click sur ma barre de défilement j'incrémente ou décrémente ma barre de défilement de 1 ce qui correspond à la ligne que je veux traiter!

Pièce jointe 189966

Code:

---

1 2 3

Private Sub ScrollBar1_Change() v = activesheet.cells(ScrollBar1.value,"A") End Sub

---

mon UserForm dispose d'un certain nombre de champs que je veux renseigner, je vais donc faire coïncider le masque du userform avec le maseque des données Excel , ce que j'ai appelé plus haut tranche de vie!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Resultat() IsModifiable = False numero_Unite_Centrale = ActiveSheet.Cells(Me.ScrollBar1.Value, 1) numero_inventaire_Ecran = ActiveSheet.Cells(Me.ScrollBar1.Value, 2) bureau = ActiveSheet.Cells(Me.ScrollBar1.Value, 3) section = ActiveSheet.Cells(Me.ScrollBar1.Value, 4) poste_calipso = ActiveSheet.Cells(Me.ScrollBar1.Value, 5) automate = ActiveSheet.Cells(Me.ScrollBar1.Value, 6) numero_automate = ActiveSheet.Cells(Me.ScrollBar1.Value, 7) Type_imprimante = ActiveSheet.Cells(Me.ScrollBar1.Value, 8) numero_imprimante = ActiveSheet.Cells(Me.ScrollBar1.Value, 9) prise_RJ_45 = ActiveSheet.Cells(Me.ScrollBar1.Value, 10) utilisateur = ActiveSheet.Cells(Me.ScrollBar1.Value, 11) type_PC_processeur = ActiveSheet.Cells(Me.ScrollBar1.Value, 12) System_Exploitation = ActiveSheet.Cells(Me.ScrollBar1.Value, 13) IsModifiable = True End Sub

---

pour enregistrer les données du formulaire dans excel, je vais utiliser un masque inverse!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

ActiveSheet.Cells(Me.ScrollBar1.Value, 1) = numero_Unite_Centrale ActiveSheet.Cells(Me.ScrollBar1.Value, 2) = numero_inventaire_Ecran ActiveSheet.Cells(Me.ScrollBar1.Value, 3) = bureau ActiveSheet.Cells(Me.ScrollBar1.Value, 4) = section ActiveSheet.Cells(Me.ScrollBar1.Value, 5) = poste_calipso ActiveSheet.Cells(Me.ScrollBar1.Value, 6) = automate ActiveSheet.Cells(Me.ScrollBar1.Value, 7) = numero_automate ActiveSheet.Cells(Me.ScrollBar1.Value, 8) = Type_imprimante ActiveSheet.Cells(Me.ScrollBar1.Value, 9) = numero_imprimante ActiveSheet.Cells(Me.ScrollBar1.Value, 10) = prise_RJ_45 ActiveSheet.Cells(Me.ScrollBar1.Value, 11) = utilisateur ActiveSheet.Cells(Me.ScrollBar1.Value, 12) = type_PC_processeur ActiveSheet.Cells(Me.ScrollBar1.Value, 13) = System_Exploitation

---

pour la recherche je vais utiliser la fonction SerchXls qui me retourne le n° de la ligne que j'afect à value de ma barre de défilent ce qui déclenche l’événement ScrollBar1_Change() et recharge la page!

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton2_Click() Dim L As Long IsModifiable = False L = SerchXls(ActiveSheet.Range("a:a"), ActiveSheet.Range("a1"), Chercher, True) If L > 0 Then Me.ScrollBar1.Value = L Else MsgBox "Pas trouvé" IsModifiable = True End Sub

---