Autres Afficher NOM PRENOM dans combobox

FOUQUET Yves

XLDnaute Occasionnel
Bonjour,

Je n'arrive pas à trouver la solution pour afficher NOM et PRENOM dans le même combobox.
Si quelqu'un avait une idée ou une solution, ou une correction...
Ce serait gentil.
Merci;

Je joins un exemple de mon tableur.
 

Staple1600

XLDnaute Barbatruc
Re

Avant d'aller au dodo, quelques bout de codes pour éclairer ta lanterne demain matin ;)
NB: Macros à vocation illustrative et/ou explicative ONLY.
VB:
Sub rogation()
Dim WS As Worksheet
On Error GoTo errorHandler
MsgBox WS.Name '<- erreur!
errorHandler:
'indique le numéro et la description de l'erreur survenue
MsgBox _
    "Erreur N°: " & Err.Number & Chr(13) _
    & vbTab & Err.Description, vbCritical, _
    "Aie, caramba!, y a comme un blème, ;-)"
End Sub
Sub terfuge()
Dim WS As Worksheet, mess$
On Error GoTo errorHandler

'-> Début Syntaxe OK
Set WS = ActiveSheet
MsgBox "La feuille nommée: " & WS.Name & " a le N° d'index: " & WS.Index, vbInformation, "Ouf, bonne syntaxe"
mess = WS.Cells(1600, "S").Address & vbCrLf
mess = mess & WS.Cells(1600, 19).Address(4, 0) & vbCrLf
MsgBox mess, vbExclamation, "Test OK"
'-> Fin Syntaxe OK

MsgBox Sheets(WS).Cells(1).Address '<- erreur!

errorHandler:
'indique le numéro et la description de l'erreur survenue
MsgBox _
    "Erreur N°: " & Err.Number & Chr(13) _
    & vbTab & Err.Description, vbCritical, _
    "Aie, caramba!, y a comme un blème, ;-)"
End Sub
 

FOUQUET Yves

XLDnaute Occasionnel
Bonjour,

Rigolos tes messages. Quand j'arriverai au bout de mon truc je m'amuserai à en intégrer dedans...
Merci et j'espère que le film a été sympa.

PS dans ce fil j'ai a un moment posté un tableau dans lequel j'ai oublié de virer les données perso des gens. J'ai pu virer vite le tableau dans mon message mais quelqu'un m'a renvoyé le tableau corrigé "message 2" et celui là je ne peux le virer. J'ai envoyé des messages à la personne pour qu'elle le supprime mais rien depuis. Tu sais ce que je peux faire pour réparer ma connerie ?

Cordialement.
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil,

Question 1)
Est-ce que mes exemples t'ont été profitables?
Tu as compris comment utiliser Dim WS as Worksheet?

Pour ce qui concerne les données confidentielles, contactes par MP, le webmaster du site DavidXLD
(en cliquant sur ce Ce lien n'existe plus)
 

FOUQUET Yves

XLDnaute Occasionnel
Je t'avoue que je suis un peu pris en ce moment.
J'ai regardé cela mais en vitesse. Dés que j'arrive au bout de mon petit programme et je n'en suis pas loin de reviendrai tranquillement sur tout ça.
En tout cas j'ai vu tout tes messages "d'alerte" qui m'ont bien fait rire.

Pour Dim WS as Worksheet j'ai regardé cela aussi mais il y a encore des nuances que je ne capte pas.
J'ai cru comprendre que Worksheet activait une feuille de classeur; J'imagine que c'est la feuille sur laquelle on veut travailler... ?
Ws serait une variable à laquelle un affecte la valeur worksheet et qui pointe donc sur une feuille.

Un truc comme çà quoi!

J'ai envoyé un message au webmaster. A voir s'il y a des suites.

Merci de ton aide et de tes conseils. Continues à me faire profiter de ton savoir... lol
 

FOUQUET Yves

XLDnaute Occasionnel
Bonjour,

Il serait plus simple de mettre le nom et le prénom dans la même colonne.

VB:
Private Sub UserForm_Initialize()
  Set f = Sheets("effectif")
  Set Rng = f.Range("B2:C" & f.[B65000].End(xlUp).Row)
  Me.ComboBox1.ColumnCount = 2
  Me.ComboBox1.List = Rng.Value
End Sub

Un crétin a supprimé mon fichier (qui ne contenait pas de données personnelles).
Je l'ai donc remis.

Boisgontier
Merci pour le crétin!
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil,

Yves
Pour résumer, si tu déclares une variable As Worksheet
La syntaxe doit être
Dim Ws as Worksheet
'puis
Set WS= Sheets(1)
'ou
'Set WS= ActiveSheet
Bref il faut absolument un Set...

C'est ce qu'était censer illustrer mes codes du message#16
 

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
J'avais supprimé le fichier avec des données perso.
Je l'avais remplacé par un fichier sans données perso.
Je ne vois pas pourquoi il a été supprimé (avant de supprimer un fichier, on le consulte pour voir s'il contient des données perso)

Boisgontier
 

FOUQUET Yves

XLDnaute Occasionnel
Ce n'est pas moi qui l'ai supprimé c'est le webmaster a ma demande. Sauf que personne n'a vu que tu en avais changé le contenu en le rendant anonyme. Avant de "creteniser" tout le monde il faut poser les questions, et chercher les explications. L'incident est clos...
 

Discussions similaires

Réponses
10
Affichages
350

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG