Ouvrir un Userform remplis avec les données de la ligne
Résolu/Fermé
A voir également:
- Ouvrir un Userform remplis avec les données de la ligne
- Comment ouvrir un fichier epub ? - Guide
- Aller à la ligne excel - Guide
- Ouvrir un fichier .bin - Guide
- Comment ouvrir un fichier docx ? - Guide
- Ouvrir avec - Guide
2 réponses
M-12
Messages postés
1331
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
8 avril 2023
284
8 juil. 2021 à 10:44
8 juil. 2021 à 10:44
Bonjour,
Un p’tit classeur avec 10/15 données anonymisées serait mieux pour régler le soucis
Allez dans https://www.cjoint.com/
Cliquez sur "PARCOURIR" pour sélectionner le classeur
Clic le bouton "CREER LE LIEN"
Clic droit quand le lien est créé "COPIER LE LIEN"
Sur le post Clic droit "Coller".
ou dans https://mon-partage.fr/
Un p’tit classeur avec 10/15 données anonymisées serait mieux pour régler le soucis
Allez dans https://www.cjoint.com/
Cliquez sur "PARCOURIR" pour sélectionner le classeur
Clic le bouton "CREER LE LIEN"
Clic droit quand le lien est créé "COPIER LE LIEN"
Sur le post Clic droit "Coller".
ou dans https://mon-partage.fr/
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
8 juil. 2021 à 11:57
8 juil. 2021 à 11:57
Bonjour,
se mettre sur la feuille Registre.
Faire Alt F11 pour accéder à l'éditeur et mettre ce code:
se déclenche à la sélection de la ligne dans la colonne A
se mettre sur la feuille Registre.
Faire Alt F11 pour accéder à l'éditeur et mettre ce code:
Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Value = "" Then Exit Sub If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then Registre.TextBox1.Value = Cells(Target.Row, 1) Registre.TextBox6.Value = Cells(Target.Row, 2) Registre.TextBox7.Value = Cells(Target.Row, 3) Registre.TextBox8.Value = Cells(Target.Row, 4) Registre.Show End If End Sub
se déclenche à la sélection de la ligne dans la colonne A
8 juil. 2021 à 11:15