STOP - Transfert Listbox vers feuille

castor30

XLDnaute Occasionnel
Bonjour,
'Ma ListBox (2 colonnes) Reporte uniquement le Nom de la feuille BD (Base) col A en A9
VB:
 Sub Valider_Click()
  'Transfére les données ListBox dans la Feuille de calcul Etat
[A9] = ListBox1.Value
End Sub

Je voudrais que ça reporte de la feuille BD (Base) en feuille EC
Le Prénom en B9 'BD col B
La date de naissance en A12 'BD col C
La commune en B12 'BD col D
Le Département en C12 'BD col E
L'adresse en A15 'BD col J
Le complément d'adresse en B15 'BD col K
Le CP en C15 'BD col L
La commune en D15 'BD col M
Le n° de téléphone en A18 'BD col F
Le n° du portable en B18 'BD col G
Comptant sur votre aide et en vous remerciant
 
Dernière édition:

Patrice33740

XLDnaute Impliqué
Bonjour,

Essaies :
VB:
Option Explicit
Sub Valider_Click()
Dim f As Worksheet
Dim r As Range
Dim c As Range
Dim a As String
  'Chercher le nom et le prénom dans la base de données
  With Worksheets("Base")
  Set r = .Range("A2", .Range("A" & .Rows.Count).End(xlUp))
  End With
  Set c = r.Find(What:=ListBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
  If Not c Is Nothing Then a = c.Address
  Do While Not c Is Nothing
  'Vérifier le prénom
  If c.Offset(0, 1).Value = ListBox1.List(ListBox1.ListIndex, 1) Then Exit Do
  Set c = r.FindNext
  If c.Address = a Then Set c = Nothing
  Loop
  'Transférer les données
  With Worksheets("EC")
  'Nom
  .Range("A9").Value = ListBox1.List(ListBox1.ListIndex, 0)
  'Prénom
  .Range("B9").Value = ListBox1.List(ListBox1.ListIndex, 1)
  If Not c Is Nothing Then
  'Date naissance
  .Range("A12").NumberFormat = "dd/mm/yyyy"
  .Range("A12").Value = c.Offset(0, 2)
  'Commune
  .Range("B12").Value = c.Offset(0, 3)
  ' ... etc
  End If
  End With
End Sub
 

castor30

XLDnaute Occasionnel
Bonjour Patrice, Robert,
Merci Patrice pour ton code que je vais compléter.

Robert, j'ai dit : Ma ListBox (2 colonnes) Reporte uniquement le Nom de la feuille BD (Base) col A en A9
et :
Je voudrais que ça reporte de la feuille BD (Base) en feuille EC
Si j'ai laissé mon code c'était pour que vous puissiez voir ce que j'avais fait.
Je demandais simplement s'il était possible de mettre l'ensemble des enseignements par vba.
Désolé si tu n'a pas compris mon intention.
 
Dernière édition:

Robert

XLDnaute Barbatruc
Repose en paix
Re,

@castor,

D'abord ne parle pas de ce que tu as fait car visiblement ce n'est pas toi qui as fait.... Ensuite, je persiste et je signe, le fichier que tu a mis en pièce jointe, quand on clique sur valider, toutes les données sont renvoyées même si la ListBox2 ne contient que les deux colonnes essentielles pour sélectionner. Voir captures d'écran :

Avant.PNG UserForm.PNG Avant.PNG
 

Pièces jointes

  • Après.PNG
    Après.PNG
    95.2 KB · Affichages: 66

Si...

XLDnaute Barbatruc
Bonjour

Première remarque : le transfert se fait bien comme l’a dit et redit Robert ;) même si toutes les colonnes ne sont pas affichées.

Seconde remarque : comme Robert (encore lui o_O) je n’aime intervenir que si cela en vaut le coup .

Ici, le formulaire peut se réduire à sa plus simple expression quand, après l’impression, on n’efface qu’une cellule (c’est déjà prévu dans les formules).
Puisqu’elles y sont, tu peux aussi éviter le formulaire avec toute sa programmation maladroite*.
Une simple liste de validation peut suffire (voir le nouvel onglet dans le fichier joint).

Dernière remarque : comme dans tous les fichiers précédents que tu as fournis, l’impression de l’onglet Visite provoque, chez moi, un clignotement incessant des boutons. Si personne d’autre ne l’a constaté, tant mieux pour toi (version Excel en cause ???).

*je constate qu’à chaque fois, les demandeurs choisissent les procédures les plus longues sans se poser de question. D’où les nombreuses réclamations.
 

Pièces jointes

  • APEM v36000.xlsm
    91.5 KB · Affichages: 74

Discussions similaires

Réponses
1
Affichages
632
Compte Supprimé 979
C

Statistiques des forums

Discussions
311 722
Messages
2 081 930
Membres
101 843
dernier inscrit
Thaly