Bonsoir le forum
Bonsoir jmcr

Pour l'erreur.....normal, il cherche une donnée que nous venons d'effacer. Il suffit d'ajouter une ligne dans "Private Sub Cb_race_Change"

Private Sub Cb_race_Change()
Dim ladate As String
    If Cb_race.Value = "" Then Exit Sub
    ladate = TextBox3.Text
    age_animal = Val(Format(Now - CDate(ladate), "mm") - 1) & " mois " & Val(Format(Now - CDate(ladate), "dd") + 1) & " jours"
    TextBox4.Value = age_animal
End Sub

Quand tu "effaces", cela joue uniquement sur l'USF mais pas sur la feuille, c'est OK ?

Pour les doublons (je n'avais pas remarqué), c'est plus compliqué. Je vais regarder, mais donne moi un peu de temps, merci d'avance.

A plus
Eric

Bonsoir à toutes et tous

Bonsoir Muhend

Je ne voudrai pas t'offenser mais j'ai perdu ma boule de cristal .

Redevenons sérieux, pourrais tu nous en dire plus ? car nous ne pourrons pas t'aider avec cette toute petite phrase. Quel contexte ? Quel segment ? Quelles sources ? ........

A te lire

Eric

Bonsoir à toutes et tous

Bonsoir jmcr

Comme tu cherches de ton côté, je vais te donner un petit coup de pouce. Je te propose ton fichier amélioré, en espérant avoir bien compris ta dernière demande.

Le bouton "recherche/saisie" gère les saisies et les modifications. Tu peux tout faire avec.

Sur la feuille "base" en colonne "IU" il y a la liste des races. Attention de ne pas l'effacer. Tu peux donc ajouter (insérer) des races et trier.

J'ai supprimer la formule en colonne "E", elle se trouve directement dans le code. L'intérêt est de ne pas gonfler le fichier inutilement : 1 formule ne fait pas de "poids", mais répété 1000 fois (ou plus) .....

Attention, la formule en colonne "J" n'est pas réactualisée. Le 200 de "$C$200" ne représente pas la dernière ligne. On pourrait supprimer cette formule et l'incorporer dans le code.

Avant de l'adopter il faudra le tester, il reste peut-être des bugs. N'hésite pas à le dire.

A te  lire

Eric

Bonjour à toutes et tous

Bonjour jmcr

Merci, mais il n'y a pas de magie.

Le fichier ne fait peut-être pas exactement ce que tu veux, il peut être amélioré. Tel qu'il est, tu peux simplement "faire appel" à un enregistrement, mais il pourrait en modifier un, ajouter des renseignements, .....

N'hésite pas à demander, nous essayerons de t'aider.

Eric

Bonjour à toutes et tous

Bonjour jmcr

Pour me faire pardonner de mon retard dans la réponse, je te propose un essai dans le fichier joint

La recherche se fait sur la colonne N/Travail.

Eric

Bonjour

Pour que toutes les réponses soient au même endroit, voir :

http://www.mdf-xlpages.com/modules/ne ... topic_id=1725&forum=4 

Eric

Bonjour à toutes et tous
Bonjour jmcr

Avec un peu de retard, mais j'ai du mal à me connecter.

Entre saisir dans l'USF ou sur une ligne excel, il n'y a pas de différence. S'il faut aller rechercher une information une fois la base créée l'USF pourra t'aider pour la modifier par exemple, mais la conception n'est plus la même.
Ci-joint un fichier qui ne fait qu'afficher l'USF, pour exemple.

Dis nous en plus, où veux-tu en venir ?
Eric

Bonsoir à toutes et tous

Bonsoir JMCR

Avant de répondre à côté, quel est le but de l' USF ? que doit comporter l'USF ? 

A te lire

Eric

Bonjour à Tous

Bonjour  RUSKO

Essaie :

La formule est : =NB.SI(B1:B4;"Finished")=4

Eric

Bonjour à tous

Bonjour Guido, Lcntrcld

Si j'ai bien compris, essaie ceci :

Range("A1:J1").SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 1

Eric