bonjour, je viens vers vous car mes compétences informatiques sont limitées et j'ai atteints mes limites...
J'ai besoin de vos conseils: je suis en train de créer une base de données pour des tests de natation pour un établissement nautique.
Cette base de données contient plus de 6000 contacts... et elle est évolutive (car on y rentre de nouveaux contacts fréquemment OU on y insère de nouveaux test pour une personne déjà crée...)
Donc, comment faire une ligne "d'entrée de données" qui pourrait vérifier et "sortir" en même temps, les doublons (même NOM et Prénom).
Comment faire pour que cette ligne se vide une fois les données insérées, et reste sous les intitulés (pour ne pas allez la chercher à la fin du tableau?
Je vous joins mon tableau avec quelques noms factices
Je vous remercie par avance du temps que vous m'aurez accordé pour me lire, et essayer de résoudre mon soucis.
merci pour votre réponse! malheureusement, on est 6 dans l'équipe et la plupart sont vraiment "léger" en informatique... j'avais pensé àquelque chose de plus intuitif, si c'est possible. je vous mets un exemple... merci encore du temps que vous passez pour moi!
Voyez le fichier joint et ces 3 macros affectées aux 3 boutons :
VB:
Sub Ligne_2()
[A2:R2].Insert xlDown
[A2:R2].Interior.ColorIndex = 15 'gris
End Sub
Sub Filtrer()
ActiveSheet.UsedRange.AutoFilter 1, CStr([A2]) & "*"
End Sub
Sub OK()
With ActiveSheet
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
.[A3:R3].AutoFill .[A2:R3], xlFillFormats 'enlève le gris
.UsedRange.Resize(, 18).Sort .[A1], xlAscending, Header:=xlYes 'tri sur les noms
End With
End Sub
Cliquez sur les 3 boutons dans l'ordre pour créer une nouvelle ligne avec un nouveau nom.
J'espère que cette fois il ne vous faudra pas une semaine pour nous dire si ça vous convient.
Voyez le fichier joint et ces 3 macros affectées aux 3 boutons :
VB:
Sub Ligne_2()
[A2:R2].Insert xlDown
[A2:R2].Interior.ColorIndex = 15 'gris
End Sub
Sub Filtrer()
ActiveSheet.UsedRange.AutoFilter 1, CStr([A2]) & "*"
End Sub
Sub OK()
With ActiveSheet
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
.[A3:R3].AutoFill .[A2:R3], xlFillFormats 'enlève le gris
.UsedRange.Resize(, 18).Sort .[A1], xlAscending, Header:=xlYes 'tri sur les noms
End With
End Sub
Cliquez sur les 3 boutons dans l'ordre pour créer une nouvelle ligne avec un nouveau nom.
J'espère que cette fois il ne vous faudra pas une semaine pour nous dire si ça vous convient.
bonjour, alors, si j'ai bien compris, je dois copier et coller les macros si dessus dans vba? Je suis désolé d'être aussi long à la détente pour répondre et pour comprendre vos réponses... mais je vous promets que je fais au mieux dans les deux cas
bonjour Boisgontier!
Votre travail est vraiment top! j'ai voulu l'insérer dans ma base, et je viens juste de m'apercevoir qu'entre le userforme de l'accueil ( l'image du programme) et le userform qui ressort quand on clique sur formulaire, il manque tout le bandeau du bas avec les touches de validation d'ajout, de suppression ou de nouvelle entrée. Comme je ne voulais pas vous déranger, j'ai essayer de comprendre le programme, mais je n'ai pas encore le niveau pour faire évoluer celui ci et combler ses bugs...
Pourriez-vous m'aider?
Je vous remercie d'avance pour votre réponse et vous souhaite une bonne année 2020!!!!
cdlt Patrice
bonjour, j'espère que vous répondrez à mon message rapidement. j'ai bien progressé sur votre combobox. J'espère ne pas abuser en vous demandant comment faire pour modifier les textbox MNS, structure, et groupe en combobox. Je suis désolé de ne pas le faire moi-même mais je ne comprends pas tout votre code... entre le formulaire que l'on peut modifier dans vba et le formulaire final, je ne retrouve pas les combobox, textbox... A L'AIDE!!!!!
Merci d'avance pour tout!
Patrice