XL 2010 Données depuis USF mal placées

[Eric C]

Bonsoir le forum
Bonsoir à toutes & à tous

J'ai récupéré, en 2004, une démo de notre ami @+Thierry (que j'avais décortiquée à l'époque et peut être dépouillée d'une de ses fonctions... Aie... pas la tête) que j'ai tenté d'adapter ce soir (en regardant France/Espagne) pour l'association de mic6259. Mon problème, que je n'arrive pas à résoudre dans l'immédiat (fatigue oblige) est que mes données ne se placent pas à la suite dans les lignes de ma feuille. Ma ligne de référence (A1) s'intercale dans mes données ????
P.S : Je peaufinerai ce fichier quant aux formats & données numériques.

Merci de votre bienveillance.
Bonne nuit à toutes & à tous

@+ Eric

 

[Eric C]

Re le fil
Bonjour Jean Marie

@mic6259 : il faut mettre les mains dans le cambouis ...😉

 

[patricktoulon]

Re
Profitez de faire plein de sottises aujourd hui je peux pas regrader vos fichiers
Demain je filerai les punitions pour avoir fusillé mon fichier LOL!LOL!LOL!!

 

[Eric C]

🤣🤣🤣🤣🤣🤣

 

[mic6259]

Re le fil
Bonjour Jean Marie

@mic6259 : il faut mettre les mains dans le cambouis ...😉

J'aimerai aussi afficher la ligne sur la page Adhérents
Merci Eric

 

[Eric C]

Je retire le fichier post 31, il ne fonctionne pas en cas de nouvel adhérents (J'vais m'en prendre plein la tête demain par qui vous savez 😎).

 

[Eric C]

Re le fil

Tout allait bien jusqu'à ce moment et là je ne sais que faire .... J'ai un souci à l'initialisation avec le tri qui déconne (je n'y même pas mis les mains). J'en appelle à vous (ou alors demain avec le créateur de ce fichier).
@+ Eric c

 

[GALOUGALOU]

re eric C
essaye de modifier sub trirange() en rajoutant une ligne qui supprime le filtre (voir le fil 16=

Sub trirange()
ActiveWorkbook.Worksheets("Adhérents").ListObjects("ListeAdherent").Sort.SortFields.Clear
    With ActiveWorkbook.Worksheets("Adhérents").ListObjects("ListeAdherent").Sort
        .SortFields.Add Key:=Range("A2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Header = xlYes: .MatchCase = False: .Orientation = xlTopToBottom: .SortMethod = xlPinYin
        .Apply
    End With
End Sub

cdt
galougalou

 

[patricktoulon]

Demain je donnerais la version finale de ce userform des que j aurais acheté un nouvel ecran

 

[Eric C]

Bonsoir GALOUGALOU; J'ai bricolé toute l'après-midi (enfin une partie car j'avais d'autres occupation) et je n'ai pas eu de problème... Merci de ta contribution car je n'y comprend rien au tri (à part le tri sélectif pour mes poubelles... Lol).
Bonne soirée à toi
@+ Eric

 

[mic6259]

Bravo galougalou
Si ce n'est pas abuser, serait-il possible de pouvoir accéder a la page en ayant l'UserForm ouvert?
Comme çà je peut remonter jusqu'à la ligne 2 par la suite.

 

[Eric C]

Salut Patrick - J'ai revisité à la façon de l'homme des cavernes (lol) le fichier.

 

[mic6259]

Je pense que l'on approche de la version finale.
Merci a vous tous

 

[Eric C]

@ mic6259 - Ton fichier avec USF en modal Modal

 

[mic6259]

@ mic6259 - Ton fichier avec USF en modal Modal

Bon sang mais c'est bien sur, le pire c'est que je le sais.
Merci beaucoup

 

[mic6259]

@ mic6259 - Ton fichier avec USF en modal Modal

A la place de vbModeless je mets 0 c'est la même chose