Microsoft 365 Importer des informations dans un UserForm

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une belle journée

Je bute pour la création d'un UserForm pour y apporter des informations de la ligne active d'une feuille.

Contexte :
Je suis sur la feuil2 (active)
Quand je lance l'UserForm à partir de la feuille2
Une recherche se fait dans la feuille "RdV_transfert" pour activer la 1ère ligne qui contient "à confirmer" en col H

Et je souhaite afficher certaines informations de la ligne active de la feuille "RdV_transfert"
- Réseau col E,
- Contact col A,
- Portable col G,
- date appel col C,
- date RdV col B,
et le nbr de jours en écart entre appel et RdV
J'ai également besoin que :
Clic sur "Valider"
- qu'en col H de la ligne active, la mention "fait" remplace la formule,
et qu'un code d'envoi de sms s'éxécute
Clic sur "Annuler"
- Ferme L'Uf sans rien faire.

J'ai beaucoup d'UF pris sur le forum et ailleurs mais aucun traite l'apport d'informations.
J'ai également fait des recherches sur le net et un tas d'essais mais je n'y arrive pas !

Pourriez-vous m'aider ?
En cas, je joins un petit fichier test et je continue à tenter de le faire.
Je vous remercie de m'avoir lu,
Amicalement,
lionel

 

[Usine à gaz]

Re-Bonjour,

Je suis avec le fichier de notre excellent BrunoM45 que je salue et remercie au passage
Fil de 2008

Restituer des données excel dans un userform: VBA

Bonjour, J'ai beau me casser la tête en deux pour trouver une solution à mon problème, je tourne en rond. Voilà pourquoi je viens faire appel à vos lumières. J'ai une feuille excel remplie avec en ligne les noms des employés sociétés et en colonne leurs informations personnelles. Je...

www.excel-downloads.com

Je pense pouvoir avancer avec ce fichier.
lionel

 

[Usine à gaz]

Bsr à toutes et à tous,

Décidemment, je ne m'en sors pas depuis tout l'après-midi et je n'arrive pas à modifier le fichier de @BrunoM45.

Je crois que je ne vais pas y arriver.
Si quelqu'un veut bien m'aider, il sera le bienvenu.
lionel

 

[Compte Supprimé 979]

Salut Lionel,

Ce n'est pas mon fichier, j'ai juste corrigé le code, il me semble

Quel est le problème, peux-tu joindre le fichier que tu as modifié à ta demande SVP ?

A+

 

[Usine à gaz]

Bonjour Bruno,
Content de te parler une fois de plus
J'espère qu'il fait beau et chaud chez toi (salaud que je suis lol)
Voici le fichier dont nous parlons en pièce jointe,
Merci,
lionel

 

[Compte Supprimé 979]

Lionel
Il fait super beau ici, bon un peu frais un petit 20°

non je déconne... ça caille et le temps pas super en région centre

Rappelles moi, tu est sous quelle version d'Excel ?
D'ailleurs il serait bien de le mettre dans ton profil

 

[Usine à gaz]

Bsr Bruno je suis sous office365

 

[Compte Supprimé 979]

Bonjour Lionel,

Voici ton fichier avec le code de ton USF remplacé rien de franchement compliqué

A+

 

[Usine à gaz]

Bonjour Bruno, Le Forum,
Bon WE à toutes et à tous

Merci Bruno pour ce retour qui me rend bien service
"rien de franchement compliqué"
Pour toi c'est surement vrai lol mais pour moi, c'est autre chose.
Encore un grand merci,
lionel

 

[Usine à gaz]

Bonjour Bruno, le Forum,
Je vous souhaite un beau dimanche

@bruno45
Ton fichier fonctionne super bien et je t'en remercie

J'ai également besoin, à l'ouverture de l'Uf, d'activer la 1ère cellule qui contient "à confirmer" en col H.
Je ne trouve pas comment coder (j'ai tenté mais sans succès).

Tu veux bien me dire ?
Merci à toi,
lionel

 

[Compte Supprimé 979]

Bonjour Lionel,

Il faut ajouter la sélection de cellule dans al boucle
Mais pour que cela fonctionne, il faut activer la feuille (c'est ajouté)

Sub MàJ_USF()
  Dim DateAppel As Date, DateRDV As Date, Délai As Integer
  ' Définir la feuille contenant les données
  Set ShtBdD = ThisWorkbook.Sheets("RdV_transfert")
  ' Avec cette feuille
  With ShtBdD
    .Activate ' A mettre
    ' Dernière ligne
    dLig = .Range("A" & Rows.Count).End(xlUp).Row
    Lig1 = 0
    ' Parcourir les lignes à la recherche du premier "à confirmer"
    For Lig = 2 To dLig
      If .Range("H" & Lig) = "à confirmer" Then Lig1 = Lig
      .Range("H" & Lig).Select  ' Selection
      Exit For
    Next Lig
    ' Si ligne trouvée
    If Lig1 > 0 Then
      Me.TbxRéseau.Value = .Cells(Lig, "E").Value
      Me.TbxContact.Value = .Cells(Lig, "F").Value
      Me.TbxPortable.Value = .Cells(Lig, "G").Value
      Me.TbxDateAppel.Value = .Cells(Lig, "C").Value
      Me.TbxDateRDV.Value = .Cells(Lig, "B").Value
      DateAppel = DateValue(Me.TbxDateAppel)
      DateRDV = DateValue(Me.TbxDateRDV)
      Délai = DateRDV - DateAppel
      Me.TbxDélai = Délai
    End If
  End With
End Sub

Bon dimanche à toi

A+

 

[Usine à gaz]

Bonjour Bruno
Encore merci.
Bon dimanche
lionel,