Discussion :

[camillecebo]

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

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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