Userform avec données externes fichier fermé (ADO)

pmfontaine

XLDnaute Occasionnel

• 18 Juin 2018

• #31

Bonsoir,
Merci Dranreb pour cette suggestion.
Je vais y réfléchir.
Bonne fin de soirée
Patrick

 

Vote positif 0 Vote négatif

pmfontaine

XLDnaute Occasionnel

• 21 Juin 2018

• #32

Bonjour Dranreb, Bonjour le Forum.
Suite à la suggestion de Dranreb, j'ai séparé ma BD (une colonne et 220 000 ligne) en plusieurs colonnes chacune correspondante à une famille.
Mais j'ai un problème pour définir la plage variable
Lorsque j'écris :

Code:

Ajt.plage FEspèces1.Range("S2:U2"), True

CE CODE MARCHE, MAIS SI JE MODIFIE POUR AVOIR UNE PLAGE VARIABLE,

Code:

Ajt.plage FEspèces1.Range(Cells(2, Colonne), Cells(2, Colonne + 2)), True

CA NE MARCHE PLUS ET JE NE COMPRENDS PAS CE QUI COINCE ?
Message :
Erreu d'exécution '1004':
La méthode 'Range de l'objet'Worksheet' a échoué

Le code complet :

Code:

Private Sub CBxAjouOrdre_Change()
    Dim AdresseFamille As Range
    Dim Colonne As Integer
   
If Me.CBxAjouOrdre = "" Then Exit Sub
    Famille = Me.CBxAjouOrdre

Set AdresseFamille = Sheets("SOURCE").Range("1:1").Find(Famille, LookIn:=xlValues, lookat:=xlWhole)
If Not AdresseFamille Is Nothing Then
    Colonne = AdresseFamille.Column
    MsgBox Colonne
     Set AdresseFamille = Nothing
Else
   MsgBox "valeur " & AdresseFamille & " non trouvée"
   Exit Sub
End If

Set Ajt = New ComboBoxLiées
'Ajt.plage FEspèces1.Range("S2:U2"), True 'CA MARCHE
Ajt.plage FEspèces1.Range(Cells(2, Colonne), Cells(2, Colonne + 2)), True 'NE MARCHE PAS ?
Ajt.Add CBxAjouNomVerna, 1
Ajt.Add CBxAjouNomLatin, 2
Ajt.Add CBxAjouCD_NOM, 3
Ajt.Actualiser

End Sub

Merci d'avance pour votre aide
Patrick

 

Pièces jointes

• RajoutEspecEssaiJuin18.xlsm

  361.9 KB · Affichages: 45

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Juin 2018

• #33

Bonjour.
N'essayez pas de le faire. Démarrez sur les oiseaux ou les mammifères, et Initialisez tout une seule fois dans la UserForm_Initialize. Mais au CBxAjouOrdre_Change faites seulement un :

VB:

Ajt.Actualiser NouvellePlage:=FEspèces1.[C2:E2].Offset(, 4 * CBxAjouOrdre.ListIndex), NbCol:=True

Remarque: De mon coté j'envisageais même plutôt de mettre chaque ordre dans une feuille séparée.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Juin 2018

• #34

Cela dit votre solution aurait pu marcher si vous aviez mis :
Ajt.plage FEspèces1.Range(FEspèces1.Cells(2, Colonne), FEspèces1.Cells(2, Colonne + 2)), True
parce que sinon il prends toujours les AciveSheet.Cells et on ne peut pas former avec ça un FEspèce1.Range si ce n'est pas la feuille active.

 

Vote positif 0 Vote négatif

pmfontaine

XLDnaute Occasionnel

• 21 Juin 2018

• #35

Merci Dranreb pour votre réponse rapide.
J'ai rapidement testé votre proposition qui marche bien.
Je testerais complètement avec toutes les données ultérieurement.
Pour la solution que j'envisagée ça marche avec votre syntaxe, mais il semble qu'il y ai des problèmes entre les Comboboxs.
je vérifierais également ce point plus tard.
Merci beaucoup pour votre aide précieuse
Patrick

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 22 Juin 2018

• #36

Bonsoir mpfontaine
Bonsoir Dranreb, le Forum
Une approche non finalisée (je ne sais pas a quoi servent les Boutons "Vider et Ajouter" ) Lol
U
Une interpretation de l idee suggeree par Dranreb (les feuilles sources sont masquees)
Bonne fin de Soirée
Jean marie

 

Pièces jointes

• GESTION Espece Chti160.xlsm

  314.7 KB · Affichages: 16

Dernière édition: 22 Juin 2018

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Juin 2018

• #37

Bonsoir tous le monde 🙂

@ChTi160 :

je ne sais pas a quoi servent les Boutons "Vider et Ajouter"

Cliquez pour agrandir...

Comment ça?? 😵 Vider c'est quand on va au petit coin et Ajouter quand il manque le papier. 😀😀😀

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 23 Juin 2018

• #38

Bonjour ,
Mdr 😛
Mais ca ne fait pas avancer le schimilimblick lol😀
Bonne journee😵
Jean marie

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 23 Juin 2018

• #39

Bonjour Jean marie 🙂

@ChTi160

Très bonne journée à toi aussi. 😉

Au faite, l'idée d'ajouter les tableaux(ou feuille) pour chaque famille est très bien.

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 23 Juin 2018

• #40

Re
Une idee de Dranreb.
Voir , Post 33
Jean marie

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 23 Juin 2018

• #41

Re

Ouuups! Désolé Dranreb, comme je n'ai pas vu ton fichier, je ne pouvais pas savoir.

 

Vote positif 0 Vote négatif

pmfontaine

XLDnaute Occasionnel

• 23 Juin 2018

• #42

Bonsoir Jean marie, le Forum
Merci Jean marie de t’intéresser à mon problème, je viens de regarder ta proposition qui me semble bien fonctionner.
Mais il me faudra quelques jours pour comprendre le code car je ne suis qu'un bricoleur en VBA.
Je vous tiendrai au courant de l'évolution de mon projet
Merci et bon dimanche à tous

 

Vote positif 0 Vote négatif

pmfontaine

XLDnaute Occasionnel

• 27 Juin 2018

• #43

Bonsoir Le Forum,
Jean marie, j'ai regardé ta proposition mais ce n'est pas de mon niveau et j'ai beaucoup de mal a comprendre.
Du coup je suis resté sur la proposition de Dranreb et voila le résultat si ça peut aider quelqu'un.
Bien sur ce n'est pas du vba de pro mais ça fonctionne et pour moi ça me convient.
Merci à tous de l’intérêt que vous avez eu pour mon problème.
Patrick

 

Pièces jointes

• RajoutEspeceVersionDranreb.xlsm

  6.6 MB · Affichages: 23

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 27 Juin 2018

• #44

Bonjour.
J'ai quand même un peu peur que le Ajt.Actualiser ne se fasse pas correctement à la fin de CBnRajoutEspece_Click()
Rien ne lui indique en effet que la plage s'est agrandie.
En général quand ce n'est pas une plage mise sous forme de tableau, je copie la dernière ligne et l'insère devant elle même puis j'écrase l'original devenu la nouvelle dernière ligne par les nouvelles données. Ça corrige automatiquement un objet Range qui englobais l'ancienne plage, ce qui n'est pas le cas si on ajoute quelque chose derrière elle.
Inutile de chercher la dernière ligne de la bonne colonne avec un End(xlDown), l'objet ComboBoxLiées la détient déjà: c'est Ajt.PlgTablo.Row(Ajt.PlgTablo.Rows.Count)

 

Vote positif 0 Vote négatif

pmfontaine

XLDnaute Occasionnel

• 27 Juin 2018

• #45

Bonsoir
Merci Dranreb,
Pour le Ajt.Actualiser j'ai fais plusieurs essais et je n'ai pas rencontré de problème !
Je ne vois pas comment modifier mon code avec Ajt.PlgTablo.Row(Ajt.PlgTablo.Rows.Count) pour ne pas utiliser End(xlDown) ?
Tu peux me mettre sur la voie ?
Merci

 

Vote positif 0 Vote négatif