Autres Afficher NOM PRENOM dans combobox

[FOUQUET Yves]

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]

Re

Avant d'aller au dodo, quelques bout de codes pour éclairer ta lanterne demain matin 😉
NB: Macros à vocation illustrative et/ou explicative ONLY.

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]

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]

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]

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... ?

Description de l'objet Feuille de calcul dans Excel

Description de l'objet Feuille de calcul dans Excel

silkyroad.developpez.com

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]

Bonjour,

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

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]

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]

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]

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