atteindre un cellule avec coordonnées aleatoire!

[idimpact]

Salut a tous!!

J'ai besoin de votre aide car je sèche sur une macro ou autre que je souhaite utiliser sous Excel 2007.

La situation est la suivante :

J'ai un classeur avec environ 30 feuilles correspondant à 30 personnes.
Feuille 1 = Thomas
Feuille 2 = Alice
etc...

Sur chaque feuille figure en colonne les dates de l'année et chaque ligne représente un projet.

Aujourd'hui je rentre a la main les heures que passent les collègues, Thomas a travaillé 3 heures sur le projet A le 10/01/2011. Je sélectionne la feuille thomas puis je place le nombre 3 au croisement de la ligne projet A et de la colonne "10/01/2001".

Demain je souhaiterai que Thomas via un formulaire entre le nom de son projet, la date du jour et aue l'information se classe automatiquement au bon endroit dans mon tableau!?

Suis-je clair???😕est-ce possible???😕

 

[JNP]

Re : atteindre un cellule avec coordonnées aleatoire!

Re 🙂,

mais comment mais cellule de la colonne A sont liées a un autre classeur et la macro cherche sur cette ligne non pas ma cellule de mon classeur mais elle suit la forumle présente dans la cellule vers un autre classeurSet Cellule = .Cells(.Cells.Find(ComboBox3.Text).Row, .Cells.Find(CDate(TextBox2.Text)).Column)

la bonne syntaxe sera

.Find(What:=ComboBox3.Text, LookIn:=xlValues, LookAt:=xlWhole)

mais ATTENTION !!! Si les projets sont issus de formules, tu prends l'ÉNORME RISQUE que le résultat de ta formule change 😱... Donc la personne aura saisi sous Projet B en dur, et la formule peut ramener Projet C à la place, bonjour les dégats 😕 !!!!
Bon courage 😎

 

[idimpact]

Re : atteindre un cellule avec coordonnées aleatoire!

Set Cellule = .Cells(Cells.Find(What:=ComboBox3.Text, LookIn:=xlValues, LookAt:=xlWhole).Row, .Cells.Find(CDate(TextBox2.Text)).Column)

J'ai une erreur sur la ligne, je n'arrive pas a debugger🙁

 

[JNP]

Re : atteindre un cellule avec coordonnées aleatoire!

Re 🙂,

Set Cellule = .Cells(.Cells.Find(What:=ComboBox3.Text, LookIn:=xlValues, LookAt:=xlWhole).Row, .Cells.Find(CDate(TextBox2.Text)).Column)

J'ai une erreur sur la ligne, je n'arrive pas a debugger🙁

Il manque un point à priori 🙄...
Bonne soirée 😎

 

[idimpact]

Re : atteindre un cellule avec coordonnées aleatoire!

😕Non plus, je suis désolé de ne pas pouvoir te renvoyer le fichier!!


Set Cellule = .Cells(.Cells.Find(What:=ComboBox3.Text, LookIn:=xlValues, LookAt:=xlWhole).Row, .Cells.Find(CDate(TextBox2.Text)).Column)

run time error 91
object variable or with block variable not set

 

[JNP]

Re : atteindre un cellule avec coordonnées aleatoire!

Re 🙂,

😕Non plus, je suis désolé de ne pas pouvoir te renvoyer le fichier!!

Si j'ai bien compris comment tu as bidouillé mon fichier, en pièce jointe une solution qui fonctionne 🙄...
Bon courage 😎