Erreur 1004 VLookup - Rapatriment Photo - SelectCase avec couleur
1 réponse
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 ?
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
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 ?
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
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" <alex-m@orange.fr> a écrit dans le message de news:
89d29189-27e2-4e83-ad53-3c3fb860512d@b15g2000yqd.googlegroups.com...
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 ?
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
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 ?
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