Aide sur un Usf

Bonjour à toutes et tous

je cherche une bonne ame qui pourrait m'aider à écrire le code de mon Usf

j'ai crée mon Usf (Contrat) afin d'integrer de nouvelles informations dans ma base de données. mon Usf est en 2 partie: une partie consultative et une partie a completer. la partie a completer sera a retranscrire dans un tableau existant.

Frame1 = valeur cellule C3 de l'onglet actuel = code client

Tab_FichClients se trouve dans l'onglet "Clients" ( sheets("Clients").ListObjects("Tab_FichClients") )

tout ce qui se trouve dans le frame1 est a titre consultatif et non modifiable dans l'usf

Nom = RECHERCHEV(frame1;Tab_FichClients;3;FAUX)

Prenom = RECHERCHEV(frame1;Tab_FichClients;4;FAUX)

etc pour le frame1

hors frame1, a completer

Date = affichage de la date du jour avec possibilité de modification

des cellules Objectif (txt) , Temps (Nb entier) et Nb (Nb entier) reste sont a completer (format imperatif)

Validation_Click()=

retranscription sur Tab_FichClients, sur la bonne ligne, des 4 infos hors frame 1 de la colonne 25 à 28

merci beaucoup de votre aide

Bonjour

Un exemple anonymisé de ton fichier serait le bienvenu

avec explications du résultat attendu

voila pour l'Usf:

concernant le tableau ou l'on doit recuperer et envoyer les info, ci apres

mon fichier n'est pas "montable" car trop d'info identitaire

Bonjour Moustic

Joco7915 que je salue, ne vous demandais pas des images

Merci de joindre votre fichier anonymisé au format ".xlsm" comme il est indiqué dans la charte du forum

A+

bonjour Bruno, et bonjour Joco (dsl, oublie de tout a l'heure)

je ne peux transmettre le fichier car il fait parti d'un projet global...

je sais bien que ce n'est guerre pratique en l'etat et que c'est beaucoup plus galere a gérer

Re,

Je pense que vos voulez plaisanter

Il n'est quand même pas compliqué de copier la feuille dans un nouveau classeur et d'y copier également l'USF

Si vous ne voulez pas le faire, je clôturerai le sujet puisqu'il ne servira plus à rien

Dans tous les cas, nous ne referons pas une feuille et un USF à votre place

Merci de votre compréhension

voici un 2 onglet vite fait avec l'Usf

C'est vraiment du vite fait

ou sont les codes vba?

Bonjour,

Effectivement aucun effort, si on peut appeler ça de l'effort

Vous avez sur le forum, un tas de sujets qui traitent votre demande, merci d'effectuer des recherches SVP

Bonjour

Avec le peu de renseignements que tu donnes un exemple

si cela te convient passe le sujet en résolu

Bonjour Joco, Bonjour a tous

j'ai retravaillé la macro pour atteindre un peu plus les objectifs...

Dans UserForm_Click:

1ere partie: je n'arrive pas a definir mon codeclient. Celui ci est en cellule C3 de la feuille active... je ne sais pas ou je me plante..; du coup toute la 1ere partie est Hs car elle doit aller chercher les info sur la ligne de ce client!

2eme partie: est ce que je peux imposer une mise en forme d'ecriture ou formule de calcule directement dans l'usf?

Inscript.Value = Format(Now, "dd/mm/yyyy")
Temps.Value= Nb entier
Final.Value = Mois.decaler(inscript;Temps)
NbSeances.Value= 1 seances toutes les 3 semaines

par contre je ne connais pas les formules si c'est faisable

re a tous,

bon probleme resolu, cf fichier joint

mais maintenant je n'arrive pas a envoyer mes information dans mon activesheet a un endroit specifique...

je bloque au niveau de mon "derlig" et de l'inscription dans les colonnes...

Private Sub Validation_Click()
Dim L As Integer
Dim codeclient As String
Dim derlig  As Integer

codeclient = Me.Frame1.Caption

If MsgBox("Confirmez-vous l'ajout de ce contrat ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then

    With Sheets("Clients")
    .Unprotect

        With Sheets("Clients").ListObjects("Tab_FichClients").ListColumns(1).DataBodyRange
        L = .Find(codeclient, LookIn:=xlValues, lookat:=xlWhole).Row - 1

            .Item(L, 25) = Format(CDate(Inscript.Value), "dd/mm/yyyy")
            .Item(L, 26) = Application.Proper(Objectif.Value)
            .Item(L, 27) = Format(Temps.Value, "0 00#")
            .Item(L, 28) = Format(CDate(Final.Value), "dd/mm/yyyy")
            .Item(L, 29) = NbSeances.Value

         End With
    .Protect
    End With

    With ActiveSheet
        derlig = ActiveSheet.Range("B:B").Find("Coaching", LookIn:=xlValues, lookat:=xlWhole).Row + 2

    End With

End If
Unload Me
End Sub

dans mon exemple, le "pack Coaching" se trouve ligne 11, mais dans mes fiches clients classique, celui ci peut se trouver a n'importe quelle ligne... d'ou ma recherche du terme "Coaching" dans la colonne B qui lui sera toujours dans cette colonne.

    With ActiveSheet
        derlig = ActiveSheet.Range("B:B").Find("Coaching", LookIn:=xlValues, lookat:=xlWhole).Row + 2

merci d'avance

Up

Hello,

Essaie d'utiliser la fonction :

DerLigne = Application.WorksheetFunction.Match("COACHING", TaColonne, 0)

C'est l'équivalent de EQUIV en formule et ça te donnera le numéro de la ligne où se trouve coaching.

@+