Problème code vb - base de données

[pietrus2]

Bonjour,

Je vien de récuperer un fichier excel contenant une base de donnée et differents formulaires.
J'ai rajouter 5 colonnes dans la feuille excel afin de completer ce fichier, j'ai donc également modifié le code afin que les formulaires prennent en compte ces 5 dernieres colonnes , mais lorque que je fais un nouvel enregistrement via le formulaire appelé "BdDlg2" , cela ne fonctionne pas correctement, au niveau de ces 5 derniers parametres. L'enregistrement sur la feuille excel se fait mal , les informations ne se mettent pas sur la bonne ligne.

Je pense donc avoir du oublié de modifier quelque chose au niveau du code mais je ne sais pas quoi ?

Merci de votre aide

Pierre

 

[Gael]

Re : Problème code vb - base de données

Bonjour Pietrus2,

Après quelques tests, j'ai fait 2 modifs qui ont l'air de fonctionner.

1 - Le positionnement sur une nouvelle ligne était incorrect car tu pars de B6 (Range("Bigramme")) et tu ne tiens pas compte de la ligne blanche suivante sur laquelle le "End(xlDown)" va te positionner.

J'ai modifié de la façon suivante:

Private Sub BoutonValider_Click()
Dim Depart As Range
Dim Reponse As Variant
If Bigram.Value <> "" And Design.Value <> "" Then                                    ' Si le bigramme et la désignation ont bien été saisis
    Select Case Ajout
        Case True                                                                                       ' Si c'est un nouvel enregistrement
            If Vide = False Then                                                                     ' Si le tableau est vide
                Set Depart = RMMoteurs.Range("Bigramme").[COLOR=red]Offset(2, 0).[/COLOR]End(xlDown).Offset(1, 0)
            Else                                                                                            ' Si le tableau n'est pas vide
                Set Depart = RMMoteurs.Range("Bigramme").Offset([COLOR=red]2[/COLOR], 0)
            End If
        Case False                                                                                      ' Si ce n'est pas un nouvel enregistrement
            Set Depart = RMMoteurs.Range("Bigramme").Offset([COLOR=black]Position[/COLOR], 0)
    End Select

2 - La sélection de la zone avant le tri ne fonctionne pas correctement dans la mesure où toutes les colonnes de la première ligne ne sont pas remplies et le "End(xlRight)" s'arrête à la première cellule vide.

Je te propose la correction suivante puisque le nombre de colonnes est fixe:

ThisWorkbook.Activate
Sheets("BOM").Select
Range("B8").Select
Range(Selection, Selection.End(xlDown)).Select
[COLOR=red]Selection.Resize(Selection.Rows.Count, 18).Select[/COLOR]
Selection.Sort Key1:=Range("B8"), Order1:=xlAscending, Header:=xlNo, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
Range("B8").Select

Essaye et dis-moi si tu as d'autres problèmes.

@+

Gael

 

[pietrus2]

Re : Problème code vb - base de données

Bonjour Gael,

Merci d'avoir jeté un coup d'oeil sur ce projet.

J'ai fait les 2 modifs que tu m'as indiqué, mais cela ne marche pas.
Quand je fais un premier enregistrement via le formulaire, tout va bien , mais si j'en fais un deuxieme ça ne marche pas

Pierre

 

[Gael]

Re : Problème code vb - base de données

Bonjour Pierre,

J'ai essayé en utilisant plutot End(XlUp) et ça fonctionne beaucoup mieux.

Modif 1:

...
Case True                                                                                       ' Si c'est un nouvel enregistrement
            If Vide = False Then                                                                     ' Si le tableau est vide
                Set Depart = RMMoteurs.Range("B500").End(xlUp).Offset(1, 0)
...

Et aussi pour la sélection de la zone à trier:

...
Sheets("BOM").Select
Range("B8", Range("B500").End(xlUp)).Select
Selection.Resize(Selection.Rows.Count, 18).Select
...

@+

Gael

 

[Gael]

Re : Problème code vb - base de données

Re,

et la sélection peut se faire aussi en une seule instruction:

Range("B8", Range("S" & Range("B500").End(xlUp).Row)).Select

@+

Gael

 

[pietrus2]

Re : Problème code vb - base de données

Merci Gael,

Tout semble marcher !

Bonne journée

Pierre

 

[egman]

Re : Problème code vb - base de données

Bonjour à vous

je viens de récupérer ton fichier que je trouve super et que je me suis permis d'adapté à mon application.

seul petit Hic, c'est au niveau des formats de dâte, lorsque tu créé un nouvel article j'ai 2 textbox dans Bdlg2 qui sont au format date et lors de la re transcription sur la feuille, il y à inversion entre le jour et le mois...! ! !
Est ce que vous auriez une idée ?

D'avance merci

 

[Pierrot93]

Re : Problème code vb - base de données

Bonjour Egman

regarde peut être du coté de la fonction "cdate", devrait résoudre ton problème.

bon après midi
@+

 

[egman]

Re : Problème code vb - base de données

Bonjour Egman

regarde peut être du coté de la fonction "cdate", devrait résoudre ton problème.

bon après midi
@+

Bonjour Pierrot93,

Merci pour ta réponse mais le probleme avec CDATE c'est que je sais jamais où la caser. ! !

Je peux te faire suivre mon fichier ?

merci