Forums XLPages

Excel & VBA Forum principal Navigation dans une base de données

Navigation dans une base de données
#1
netweb2008
Débutant XLPages

Inscription: 10/08/2009

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 10-08-2009 21h23
Bonsoir,

Besoin d’aide pour une commande de navigation.

J’ai un usf dans lequel il y a un bouton de navigation (premier, dernier, suivant précédent) je voudrai un code VBA pour naviguer dans une base de données et l'affichage sera visionner dans les textBox prévus pour ça et aussi dans la feuille active base de données nommée "Base".

Pour être plus clair, voilà mon fichier Excel en pièce jointe.


Pièce jointe:
xls Navigation dans une BD.xls   [ Taille: 60.50 Ko - Téléchargements: 513 ]
Hors Ligne
 Rapport   Haut 

Re: Navigation dans une base de données
#2
myDearFriend!
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 10-08-2009 22h57
Bonsoir netweb2008 et bienvenue sur mDF XLpages.com,

Avant toute chose, merci de commencer par consulter CE LIEN en rapport avec CELUI-CI(j'ai d'ailleurs bien noté le nom de ta "société" dans les propriétés de ton fichier )

Ensuite, et pour te montrer que nous sommes de bonnes volontés sur les forums de discussions, tu trouveras ci-joint ton fichier modifié en fonction de ce que j'ai compris de ta question.

J'ai ajouté le code suivant :

DANS LE MODULE DE CODE DU USERFORM
Private Sub NavPremier_Click()
    NavTab 2
End Sub

Private Sub NavDernier_Click()
    NavTab LignMax
End Sub

Private Sub NavRapide_SpinDown()
Dim N As Long
    N = Application.Max(2, ActiveCell.Row - 1)
    NavTab N
End Sub

Private Sub NavRapide_SpinUp()
Dim N As Long
    N = Application.Min(LignMax, ActiveCell.Row + 1)
    NavTab N
End Sub

DANS LE MODULE DE CODE STANDARD (Module1)
Sub NavTab(L As Long)
Dim C As Byte
    With Sheets("BASE")
        For C = 1 To 9
            UserForm3.Controls("TextBox" & C).Value = .Cells(L, C).Text
        Next C
        .Rows(L).Select
    End With
End Sub

Function LignMax() As Long
    With Sheets("BASE")
        LignMax = .Cells(.Rows.Count, 1).End(xlUp).Row
    End With
End Function

J'ai aussi interverti les noms des TextBox1 et TextBox10 dans le Userform.

Bonne continuation.

Cordialement,
Pièce jointe:
zip PourNetweb2008.zip   [ Taille: 22.88 Ko - Téléchargements: 521 ]
Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
 Rapport   Haut 

Réponse pour le Webmaster myDearFriend!
#3
netweb2008
Débutant XLPages

Inscription: 10/08/2009

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 10-08-2009 23h36
Bonsoir myDearFriend!

Je vous remercie pour votre réponse (qui me convient bien).

Mais le moteur de recherche et les deux boutons "modifier" et "supprimer" ne fonctionne plus après votre intervention (erreur code VBA).

pourriez-vous m'aider dans ce sens.


NB : j'ai bien consulté les liens Web que vous avez mentionné.
Hors Ligne
 Rapport   Haut 

Re: Réponse pour le Webmaster myDearFriend!
#4
myDearFriend!
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 11-08-2009 00h01
Re,

Je te l'avais dit plus haut, j'ai inversé le nom des TextBox1 et TextBox10, c'est pourquoi tu rencontres cette réaction sur les autres options de ton formulaire (que je n'avais pas testées, ni modifiées, pensant que tu allais t'en occuper...).

Ci-joint une rectification qui devrait régler le problème je pense.

Cordialement,
Pièce jointe:
zip PourNetweb2008 2.zip   [ Taille: 21.17 Ko - Téléchargements: 565 ]
Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
 Rapport   Haut 

Re: Navigation dans une base de données
#5
netweb2008
Débutant XLPages

Inscription: 10/08/2009

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 11-08-2009 15h22

Bonjour myDearFriend!

Pour la seconde fois je te remercie pour ton aide, maintenant j'ai aucun problème de code VBA et ça marche à 100%.

Je pense qu'il faut signaler ça pour que tout le monde profite de cette solution.

Cordialement

Edité par netweb2008 le 11/08/2009 18:05:00
Hors Ligne
 Rapport   Haut 

Re: Navigation dans une base de données
#6
netweb2008
Débutant XLPages

Inscription: 10/08/2009

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 17-08-2009 21h10

Bonsoir myDearFriend!, le forum

J'espère que tout va bien pour toi.

 

Je viens de nouveau faire appel à vos lumières.

 

Voilà j’ai réactivé cette discussion car j’ai un petit souci sur le problème déjà solutionné de ta part. En effet, en travaillant dessus j’ai constaté qu’une liste déroulante à la place de Textbox de la colonne 7 est plus pratique (coté saisie), aussi le Textbox de la colonne 8 par une case à cocher.

 

Ces besoins sont motivé par la nature de la DATA elle-même. Par exemple si pour une cellule quelconque on a une donnée fixe composée de trois mots invariable, il n’est pas pratique de les saisir à chaque fois par un Textbox, donc une liste déroulante dans ce cas est la solution optimale (un clic de souris et la DATA est injecter dans la cellule voulue).

 

Pourriez-vous m’aider dans ce sens ?

 

Cordialement.
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes