Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Erreur 1004 VLookup - Rapatriment Photo - SelectCase avec couleur

1 réponse
Avatar
Alex
Bonjour =E0 tous,

Je tente de faire un userform pour g=E9rer le parc informatique et son
personnel.

Ce Userform doit aussi :
* Interpr=E9ter certaines donn=E9es sous forme de case =E0 cocher,
* Je voudrais aussi que la case =E0 cocher me rappatrie soit la
couleur de la police (La croix
prend la couleur de la police) soit la couleur de la cellule
(La case =E0 cocher prend la couleur
de la cellule)
* Me rappatrier la photo du personnel. (Les photos =E9tant
positionn=E9es dans une cellule, dimen-
sionn=E9es pour ne pas d=E9bord=E9 de la cellule, et ayant comme
propri=E9t=E9 "Deplacer et dimen-
stionner avec les cellules". Le tout : manuellement par
Insertion Photo =E0 partir du fichier).

Pour se faire, j'ai fait un Userform avec une combobox "NOM", qui
devait me servir pour la selection d'une personne, et m'afficher
l'ensemble des donn=E9es correspondantes =E0 la personne selectionn=E9e.

J'ai donc parametr=E9 ma combobox "NOM" dans Userform Activate :

Private Sub UserForm_Activate()
'D=E9finition Menu D=E9roulant

DernierNOM =3D Range("ParcInfo!B1").End(xlDown).Address
NOM.RowSource =3D "ParcInfo!B1:" & DernierNOM
NOM.ListIndex =3D 0
End Sub

J'ai ensuite voulu param=E9tr=E9 le ComboBox NOM_Change, avec la fonction
WorksheetFunction.VLookup, mais malheureusement j'ai Erreur 1004.
J'ai d=E9j=E0 utilis=E9 cette fonction qui jusqu'=E0 pr=E9sent dans des
pr=E9c=E9dente macro fonctionnait tr=E8s bien ?

Private Sub NOM_Change()
Indexalex =3D NOM.ListIndex
Alex =3D NOM.List(Indexalex)
DernierREPERTOIREL =3D Range("ParcInfo!C1").End(xlDown).Address
REPERTOIREL.Value =3D WorksheetFunction.VLookup(Alex, Range("ParcInfo!
B1:" & DernierREPERTOIREL), 3, False)

Je n'ai donc pas pu all=E9 plus loin, pour le moment !!! Quelqu'un
aurait il une solution pour ce point ?

Par ailleurs, pour les donn=E9es que je voulais interpreter sous forme
de Case =E0 cocher, dois je les param=E9trer comme si elle alimentait une
textbox en ajoutant bien =E9videment des conditions dans ma macro
RemplirForm.

J'ai aussi tent=E9 de paramatrer mon combobox NOM change de fa=E7on =E0 lui
dire que le l'index s=E9lectionn=E9 =E9tait =E9gal =E0 la ligne active, pui=
s par
la macro RemplirForm mais sans succ=E8s. Pensant que cela serait plus
facile.

Je vous remercie par avance de votre aide.
Cordialement.
Alex





* Par ailleurs, pour les donn=E9es que je voulais interpreter sous
forme de case =E0 cocher dans
mon userform, dois je aussi les d=E9finir comme un

1 réponse

Avatar
Fredo P.
Bonjour tu peux d'inspirer d'une des nombreuses réalisation d'AV aussi
disponible sur Excelabo http--www.excelabo.net-

http://cjoint.com/?mfeEP6cXSx
--

Fredo P.


"Alex" a écrit dans le message de news:

Bonjour à tous,

Je tente de faire un userform pour gérer le parc informatique et son
personnel.

Ce Userform doit aussi :
* Interpréter certaines données sous forme de case à cocher,
* Je voudrais aussi que la case à cocher me rappatrie soit la
couleur de la police (La croix
prend la couleur de la police) soit la couleur de la cellule
(La case à cocher prend la couleur
de la cellule)
* Me rappatrier la photo du personnel. (Les photos étant
positionnées dans une cellule, dimen-
sionnées pour ne pas débordé de la cellule, et ayant comme
propriété "Deplacer et dimen-
stionner avec les cellules". Le tout : manuellement par
Insertion Photo à partir du fichier).

Pour se faire, j'ai fait un Userform avec une combobox "NOM", qui
devait me servir pour la selection d'une personne, et m'afficher
l'ensemble des données correspondantes à la personne selectionnée.

J'ai donc parametré ma combobox "NOM" dans Userform Activate :

Private Sub UserForm_Activate()
'Définition Menu Déroulant

DernierNOM = Range("ParcInfo!B1").End(xlDown).Address
NOM.RowSource = "ParcInfo!B1:" & DernierNOM
NOM.ListIndex = 0
End Sub

J'ai ensuite voulu paramétré le ComboBox NOM_Change, avec la fonction
WorksheetFunction.VLookup, mais malheureusement j'ai Erreur 1004.
J'ai déjà utilisé cette fonction qui jusqu'à présent dans des
précédente macro fonctionnait très bien ?

Private Sub NOM_Change()
Indexalex = NOM.ListIndex
Alex = NOM.List(Indexalex)
DernierREPERTOIREL = Range("ParcInfo!C1").End(xlDown).Address
REPERTOIREL.Value = WorksheetFunction.VLookup(Alex, Range("ParcInfo!
B1:" & DernierREPERTOIREL), 3, False)

Je n'ai donc pas pu allé plus loin, pour le moment !!! Quelqu'un
aurait il une solution pour ce point ?

Par ailleurs, pour les données que je voulais interpreter sous forme
de Case à cocher, dois je les paramétrer comme si elle alimentait une
textbox en ajoutant bien évidement des conditions dans ma macro
RemplirForm.

J'ai aussi tenté de paramatrer mon combobox NOM change de façon à lui
dire que le l'index sélectionné était égal à la ligne active, puis par
la macro RemplirForm mais sans succès. Pensant que cela serait plus
facile.

Je vous remercie par avance de votre aide.
Cordialement.
Alex





* Par ailleurs, pour les données que je voulais interpreter sous
forme de case à cocher dans
mon userform, dois je aussi les définir comme un