STOP - Transfert Listbox vers feuille

[castor30]

Bonjour,
'Ma ListBox (2 colonnes) Reporte uniquement le Nom de la feuille BD (Base) col A en A9

 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

 

[Robert]

Bonjour Castor, bonjour le forum

Si ta ListBox1 ne contient que 2 colonnes comment veux-tu renvoyer 12 données ? Si au moins tu mettais le fichier qui va bien on pourrait t'aider davantage...

 

[castor30]

Merci de me répondre Robert,
Voici

 

[Patrice33740]

Bonjour,

Essaies :

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

 

[Robert]

Bonjour le fil, bonjour le forum,

@castor
J'ouvre ton fichier je teste et... Tout fonctionne... Voir la procédure Formul du module Module1... Pourquoi tu nous fais se décarcasser pour rien ?!...

 

[castor30]

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.

 

[Robert]

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 :

 

[Si...]

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 😵) 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.

 

[Patrice33740]

Bonjour Si et Robert

Le choix se fait sur le couple Nom Prénom, mais les formules ne traitent que du Nom !