Microsoft 365 Importer des informations dans un UserForm

Usine à gaz

XLDnaute Barbatruc

• 20 Janvier 2022

• #2

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 20 Janvier 2022

• #3

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 21 Janvier 2022

• #4

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+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 21 Janvier 2022

• #5

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

 

Pièces jointes

• test_UF_bruno.xls

  87.5 KB · Affichages: 5

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 21 Janvier 2022

• #6

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 21 Janvier 2022

• #7

Bsr Bruno je suis sous office365

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 22 Janvier 2022

• #8

Bonjour Lionel,

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

A+

 

Pièces jointes

• UsineAGaz_test_UF2.xlsm

  44.8 KB · Affichages: 15

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 22 Janvier 2022

• #9

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 23 Janvier 2022

• #10

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 23 Janvier 2022

• #11

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+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 23 Janvier 2022

• #12

Bonjour Bruno
Encore merci.
Bon dimanche
lionel,

 

Vote positif 0 Vote négatif