Microsoft 365 Importer des informations dans un UserForm

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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 :)
 

Pièces jointes

  • test_UF2.xlsm
    42.8 KB · Affichages: 7
Dernière édition:

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Re-Bonjour,

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

Je pense pouvoir avancer avec ce fichier.
lionel :)
 
C

Compte Supprimé 979

Guest
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 😉
 
C

Compte Supprimé 979

Guest
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é)

VB:
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+
 

Discussions similaires

Réponses
6
Affichages
417

Statistiques des forums

Discussions
312 932
Messages
2 093 730
Membres
105 802
dernier inscrit
Witchun