XL 2010 Userform connection des donnnés au formulaire

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

fredobogoss

XLDnaute Junior
Bonjour,
je souhaiterais de l'aide pour un userfrom.
la connection des données avec le userform ne se fait pas, je souhaite pouvoir modifier les données existantes via le userform ou ajouter une personnes
et effectuer une recherche.
Merci par avance pour vos réponses
 

Pièces jointes

Trier par date Trier par votes
ChTi160 à dit:
Bonjour fredobogoss
Bonjour le Fil ,le Forum
Francois , très beau travail!
je me suis permis de rajouter en tête de la Procédure Groupe().
VB: 
Sub Groupe()
Application.ScreenUpdating = False
'CODE
'puis à la Fin de cette même procédure
Application.ScreenUpdating = True
End Sub
je me pose une question , il n'y a pas a tenir compte des Dates
je m'explique , il n'y a pas dans cette BD de cas ou l'on pourrait trouver par exemple :

c'est a dire une même Chambre (326) avec des occupations(Dates Différentes) 07/03/2018 et 08/03/2018
Bonne journée
jean marie
Cliquez pour agrandir...

non il y pas de cas ou tu peux trouver de date a date comme tu as mentionnée.
dans une chambre il peut y voir 1 ou plusieurs personne max a 4 a 5.
c'est juste pour m'aider a faire des étiquettes plus rapidement. je regroupe sur une seul étiquettes le nom de toutes les personnes ayant la même chambre.
le post #24 est m'a proposer une solution qui me convient.

je recherche a automatiser le publipostage en un clic pour envoyer les données vers mon model d’étiquettes word.
 
Vote positif 0 Vote négatif
Bonjour à tous 🙂

Une correction de la macro Groupe

VB: 
Sub Groupe()
Dim derlig As Long, ligne As Long

    Application.ScreenUpdating = False

    Sheets("Par Chambre").Range("a2:f65000").Clear

    With Sheets("Client")
        derlig = .Range("a" & Rows.Count).End(xlUp).Row
        .Range("a2:f" & derlig).Copy Sheets("Par Chambre").Range("a2")
    End With

    With Sheets("Par Chambre")
        ligne = 2
        Do While .Cells(ligne, 1) <> ""
            If .Cells(ligne, 5).Value = .Cells(ligne + 1, 5).Value Then
                .Cells(ligne, 1).Value = .Cells(ligne, 1).Value & Chr(10) & .Cells(ligne + 1, 1).Value
                .Cells(ligne, 2).Value = .Cells(ligne, 2).Value & Chr(10) & .Cells(ligne + 1, 2).Value
                .Rows(ligne + 1).Delete
            Else
                ligne = ligne + 1
            End If
        Loop
    End With
 
Vote positif 0 Vote négatif
Je ne comprends pas pourquoi vous passez par Word pour imprimer. De toute façon moi je ne sais pas automatiser ça. Alors j'aimerais un modèle des étiquettes pour les faire dans une feuille Excel à imprimer.
Pour récupérer le fichier texte il est possible de lire le fichier en VBA. Ça peut être plus rapide que de l'ouvrir avec Excel, mais j'aimerais alors un modèle exact de sa structure.
Mon UserForm permettant de chercher un nom, prénom ou numéro de chambre, soit en les sélectionnant soit en les tapant, vous intéresse-t-il ?
Il permettra aussi de changer le numéro de chambre d'une personne. J'ai déjà retiré de la recherche les dates.
 
Dernière édition:
Vote positif 0 Vote négatif
Lone-wolf à dit:
Bonjour à tous 🙂

Une correction de la macro Groupe

VB: 
Sub Groupe()
Dim derlig As Long, ligne As Long

    Application.ScreenUpdating = False

    Sheets("Par Chambre").Range("a2:f65000").Clear

    With Sheets("Client")
        derlig = .Range("a" & Rows.Count).End(xlUp).Row
        .Range("a2:f" & derlig).Copy Sheets("Par Chambre").Range("a2")
    End With

    With Sheets("Par Chambre")
        ligne = 2
        Do While .Cells(ligne, 1) <> ""
            If .Cells(ligne, 5).Value = .Cells(ligne + 1, 5).Value Then
                .Cells(ligne, 1).Value = .Cells(ligne, 1).Value & Chr(10) & .Cells(ligne + 1, 1).Value
                .Cells(ligne, 2).Value = .Cells(ligne, 2).Value & Chr(10) & .Cells(ligne + 1, 2).Value
                .Rows(ligne + 1).Delete
            Else
                ligne = ligne + 1
            End If
        Loop
    End With
Cliquez pour agrandir...

Salut,
a quel parti de la macro cela concerne stp, que veux dire ta correction ?
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour à tous 🙂

@fredobogoss : c'est la macro proposée dans le fichier du post #25 de fanfan38 pour le regroupement des données.

VB: 
Sub Groupe()
  Dim derlig As Long, ligne As Long
    Sheets("Par Chambre").Select
    Range("A2:F65000").Clear
    Sheets("Client").Select
    derlig = Range("a2").End(xlDown).Row
    Range("A2:F" & derlig).Select
    Selection.Copy
    Sheets("Par Chambre").Select
    Range("A2").Select
    ActiveSheet.Paste
    Range("A2").Select
  ligne = 2
  Do While Cells(ligne, 1) <> ""
    If Cells(ligne, 5).Value = Cells(ligne + 1, 5).Value Then
       Cells(ligne, 1).Value = Cells(ligne, 1).Value & Chr(10) & Cells(ligne + 1, 1).Value
       Cells(ligne, 2).Value = Cells(ligne, 2).Value & Chr(10) & Cells(ligne + 1, 2).Value
       Rows(ligne + 1).Delete
     Else
       ligne = ligne + 1
     End If
   Loop
End Sub

Correction de Lone-wolf ci-dessous

VB: 
Sub Groupe()
Dim derlig As Long, ligne As Long

    Application.ScreenUpdating = False

    Sheets("Par Chambre").Range("a2:f65000").Clear

    With Sheets("Client")
        derlig = .Range("a" & Rows.Count).End(xlUp).Row
        .Range("a2:f" & derlig).Copy Sheets("Par Chambre").Range("a2")
    End With

    With Sheets("Par Chambre")
        ligne = 2
        Do While .Cells(ligne, 1) <> ""
            If .Cells(ligne, 5).Value = .Cells(ligne + 1, 5).Value Then
                .Cells(ligne, 1).Value = .Cells(ligne, 1).Value & Chr(10) & .Cells(ligne + 1, 1).Value
                .Cells(ligne, 2).Value = .Cells(ligne, 2).Value & Chr(10) & .Cells(ligne + 1, 2).Value
                .Rows(ligne + 1).Delete
            Else
                ligne = ligne + 1
            End If
        Loop
    End With

Tu vois la différence?
 
Dernière édition:
Vote positif 0 Vote négatif
Lone-wolf à dit:
Bonjour à tous 🙂

@fredobogoss : c'est la macro proposée dans le fichier du post #25 de fanfan38 pour le regroupement des données.

VB: 
Sub Groupe()
  Dim derlig As Long, ligne As Long
    Sheets("Par Chambre").Select
    Range("A2:F65000").Clear
    Sheets("Client").Select
    derlig = Range("a2").End(xlDown).Row
    Range("A2:F" & derlig).Select
    Selection.Copy
    Sheets("Par Chambre").Select
    Range("A2").Select
    ActiveSheet.Paste
    Range("A2").Select
  ligne = 2
  Do While Cells(ligne, 1) <> ""
    If Cells(ligne, 5).Value = Cells(ligne + 1, 5).Value Then
       Cells(ligne, 1).Value = Cells(ligne, 1).Value & Chr(10) & Cells(ligne + 1, 1).Value
       Cells(ligne, 2).Value = Cells(ligne, 2).Value & Chr(10) & Cells(ligne + 1, 2).Value
       Rows(ligne + 1).Delete
     Else
       ligne = ligne + 1
     End If
   Loop
End Sub

VB: 
Sub Groupe()
Dim derlig As Long, ligne As Long

    Application.ScreenUpdating = False

    Sheets("Par Chambre").Range("a2:f65000").Clear

    With Sheets("Client")
        derlig = .Range("a" & Rows.Count).End(xlUp).Row
        .Range("a2:f" & derlig).Copy Sheets("Par Chambre").Range("a2")
    End With

    With Sheets("Par Chambre")
        ligne = 2
        Do While .Cells(ligne, 1) <> ""
            If .Cells(ligne, 5).Value = .Cells(ligne + 1, 5).Value Then
                .Cells(ligne, 1).Value = .Cells(ligne, 1).Value & Chr(10) & .Cells(ligne + 1, 1).Value
                .Cells(ligne, 2).Value = .Cells(ligne, 2).Value & Chr(10) & .Cells(ligne + 1, 2).Value
                .Rows(ligne + 1).Delete
            Else
                ligne = ligne + 1
            End If
        Loop
    End With

Tu vois la différence?
Cliquez pour agrandir...

Bonjour,

malheureusement non j'ai pas vu la différence.
j'ai utilisé la macro hier dans mon formulaire il n'affiche pas toutes les chambres.
le regroupement se fait seulement si je fais un tri croissant d'abord , si j'oublie de faire un tri croissant la macro beug.
ce que je recherche c'est un petit formulaire comme le contrôle F (rechercher) qui me permet de retrouver rapidement un client soit par son nom ou numéro de chambre et rajouter une information manquantes comme son statut et l'age a coté du nom.
car la colonne age a la fusion publipostage ne reste pas a coter de chaque nom et se décale en dessous.
@fanfan38, je te tag dessus car il s'agit de la version que tu m'as envoyé.
merci pour votre aide a tous
 
Vote positif 0 Vote négatif
Lone-wolf à dit:
Bonjour à tous 🙂

Une correction de la macro Groupe

VB: 
Sub Groupe()
Dim derlig As Long, ligne As Long

    Application.ScreenUpdating = False

    Sheets("Par Chambre").Range("a2:f65000").Clear

    With Sheets("Client")
        derlig = .Range("a" & Rows.Count).End(xlUp).Row
        .Range("a2:f" & derlig).Copy Sheets("Par Chambre").Range("a2")
    End With

    With Sheets("Par Chambre")
        ligne = 2
        Do While .Cells(ligne, 1) <> ""
            If .Cells(ligne, 5).Value = .Cells(ligne + 1, 5).Value Then
                .Cells(ligne, 1).Value = .Cells(ligne, 1).Value & Chr(10) & .Cells(ligne + 1, 1).Value
                .Cells(ligne, 2).Value = .Cells(ligne, 2).Value & Chr(10) & .Cells(ligne + 1, 2).Value
                .Rows(ligne + 1).Delete
            Else
                ligne = ligne + 1
            End If
        Loop
    End With
Cliquez pour agrandir...

Bonjour
ci joint un extrait du fichier txt tel qu'il se télécharge dans le système.
par la suite je convertie en données (données /convertir /delimitée/...) puis je supprime les colonnes que je n'ai plus besoin et je garde seulement le nom prenom date arrivée et de fin et le numero de chambre.
je rajoute deux colonnes un pour l'age et l'autre pour le statut que je dois renseigner manuellement. d'ou j'ai besoin d'un espace pour effectuer une recherche soit par nom ou numero de chambre pour rajouter les infos manquant.
ensuite je fais un tri croissant par numero de chambre et je fais un regroupement par numero de chambre donc toutes les personnes ayant le meme numero de chambre se retrouve ensemble .
et il me reste plus qu'a lier le tout sur word pour effectuer le publispostage.

je n'arrive pas a t'envoyer mon fichier word pour le publipostage car le site ne prend pas cela en compte.
mais en gros ce sont tout les champs (nom prenom, age, date arrivée et de fin, numero de chambre, statut) c'est tout ce qui va sur l'etiquette.
j'utilise la marque Avery. je t'envoi dans un prochain poste la référence des feuilles etiquettes

ce que tu m'as envoye je n'arrive pas a le lire le codbeug.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Bonjour fredobogoss
Bonjour le Fil ,le Forum
fredobogoss , j’espère que conformément a la charte les Données du fichier Texte sont anonymisées !
si tel n'était pas le cas fait le nécessaire en supprimant le fichier et en le remplaçant par un autre avec des données non confidentielles .
je travaille toujours , à mon rythme sur ton fichier Lol
Petite question : dois tu pouvoir imprimer qu'une seule Étiquette
ou alors toujours l'ensemble ?
Bonne Journée
Jean amrie
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour.
Si je comprends bien les infos Age et Statut sont uniquement ajoutées par vous ?
Je joins mon travail, corrigé selon ces information.
Je pense que vous ne trouverez pas plus souple ni pratique pour la mise à jour.
Merci de faire vos observations
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
J'ai lu quelque part que ce système de publipostage de Word (totalement mystérieux pour moi) n'accepte comme source de données que des .xls. S'il faut que mon classeur mette les étiquettes mises en forme dans un nouveau classeur de ce type, ça peut se faire sans problème.
 
Vote positif 0 Vote négatif
ChTi160 à dit:
Bonjour fredobogoss
Bonjour le Fil ,le Forum
fredobogoss , j’espère que conformément a la charte les Données du fichier Texte sont anonymisées !
si tel n'était pas le cas fait le nécessaire en supprimant le fichier et en le remplaçant par un autre avec des données non confidentielles .
je travaille toujours , à mon rythme sur ton fichier Lol
Petite question : dois tu pouvoir imprimer qu'une seule Étiquette
ou alors toujours l'ensemble ?
Bonne Journée
Jean amrie
Cliquez pour agrandir...

Bonjour,
je les imprime tous a tous les deux je recommence cette opération.
s'il y a un loupé sur une coquilles sur une étiquettes, ce serait un plus de pouvoir en sélectionner 2 ou 3 pour refaire un mailling.
merci beaucoup
 
Vote positif 0 Vote négatif
Dranreb à dit:
Bonjour.
Si je comprends bien les infos Age et Statut sont uniquement ajoutées par vous ?
Je joins mon travail, corrigé selon ces information.
Je pense que vous ne trouverez pas plus souple ni pratique pour la mise à jour.
Merci de faire vos observations
Cliquez pour agrandir...

Bonjour Dranreb,
oui je rajoute l'age et le statut a la main
j'ai essayé le le fichier que tu as posté, cela me mentionne des erreurs de compilations.
pour le publipostage oui, ce sont les étiquettes prédéfinies Avery en 3 colonnes et 10 lignes.
ok j'attend ta MAJ pour le mailling. et peux tu m'expliquer comment fonctionne ta macro en cliquant sur bouton ca m'ouvre la page du code

merci
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
Microsoft 365 Sélectionner plage nommée via un comboBox
Réponses
3
Affichages
314
fanfan38
fanfan38
A
  • Question Question
Microsoft 365 recherche ,remplissage userform
Réponses
3
Affichages
253
azzouziwalid
A
A
  • Question Question
Microsoft 365 Affichage , recherche et extraire des données .
Réponses
1
Affichages
151
vgendron
vgendron
K
  • Question Question
XL 2016 Modification dans userform et sheet
Réponses
13
Affichages
310
Valtrase
Valtrase
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
955
tnion
T
Poltoine
  • Question Question
Autres Affichage d'un Userform
Réponses
6
Affichages
216
Poltoine
Poltoine
G
  • Question Question
Microsoft 365 Lenteur chargement ListView
2 3
Réponses
38
Affichages
1 K
GClaire
G
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
297
TooFatBoy
TooFatBoy
K
  • Question Question
XL 2019 Créer des utilisateurs sur un fichier VBA
Réponses
9
Affichages
301
cathodique
cathodique
A
  • Résolu(e)
XL 2019 Optimisation code VBA (Icônes flottantes)
Réponses
14
Affichages
467
Amilo
A
Le_Phénomène
  • Résolu(e)
Microsoft 365 Forcer l'affichage de mon userform (barre de progression) sur l'écran où le classeur est actif (cas des doubles/triples écrans)
3 4 5
Réponses
66
Affichages
3 K
Dudu2
Dudu2
D
  • Résolu(e)
XL 2021 VBA Formulaire
2
Réponses
27
Affichages
2 K
delsart59
D
T
  • Question Question
Autres formulaire avec plusieurs userform
Réponses
4
Affichages
586
tony rital
T
N
  • Question Question
Microsoft 365 Calcul de prix moyen pondéré de recettes
2
Réponses
15
Affichages
389
Nino63
N
P
  • Question Question
Microsoft 365 Problème lors de l'ajout de plusieurs lignes avec userform
2
Réponses
15
Affichages
346
vgendron
vgendron
thunder23
  • Question Question
XL 2021 Mise à jour d'un tableau depuis une feuille Excel
Réponses
5
Affichages
286
thunder23
thunder23
M
  • Question Question
XL 2016 liste déroulante formulaire vba excel
2
Réponses
20
Affichages
717
fanch55
fanch55
T
  • Question Question
XL 2019 Tableau croisé dynamique connecté à des feuilles créée par un userform
Réponses
2
Affichages
498
Cousinhub
Cousinhub
S
  • Question Question
Microsoft 365 Modifier des données via un Userform
Réponses
3
Affichages
617
youky(BJ)
youky(BJ)
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
485
picc
P
Retour