Sujet Précédent Sujet Suivant

Conception d'une macro récupérer auto excel

Résolu/Fermé
PYGOS - 17 mars 2010 à 13:12
pygos Messages postés 185 Date d'inscription vendredi 5 septembre 2008 Statut Membre Dernière intervention 3 mars 2021 - 18 mars 2010 à 10:43
Bonjour,

je voudrais automatiquement à l'aide d'une macro associé à un bouton basculer une donnée se trouvant dans l'onglet IRH sur l'onglet RECAP sur la ligne en rapport à une date.

Je m'explique :

Onglet IRH Cellule b4 = 01/03/2010
Cellule b10 = Nb d'heures investi + Cellule C10 = 12:30
J'appuie sur le bouton

Onglet RECAP
Je voudrais coller "12:30" sur la ligne (colonne C) ou la même date est saisie .

Imaginons colonne A + Colonne C
DATE irh INVESTI
28/02/2010
01/03/2010 12:30
02/03/2010

En fait je veux que le système recherche une date dans la colonne A et indique 2 cellules à droite
le nb d'heures investi.

Merci d'avance
A voir également:

4 réponses

Réponse 1 / 4
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
17 mars 2010 à 16:11
Salut,
S'il s'agit bien de date que l'on va chercher alors essaie ceci : 
Sub report()
Dim valcherchee As Date
valcherchee = Sheets("IRH").Range("B4").Value
Sheets("IRH").Range("B10").Copy Sheets("RECAP").Cells.Find(valcherchee).Offset(0, 2)
End Sub


Code à copier/coller dans un module :
Dans la feuille Excel : ALT+F11
Dans Visual Basic : Insertion/Module
Copier coller le code
Fermer la fenêtre Visual Basic
Pour lancer la macro : de la feuille Excel IRH : ALT+F8 choisir "report" et cliquez sur "exécuter".
0
pygos Messages postés 185 Date d'inscription vendredi 5 septembre 2008 Statut Membre Dernière intervention 3 mars 2021
17 mars 2010 à 17:47
Merci !!


Si j'osais, une modification pour ne coller que la valeur de VALCHERCHEE
sans le format, formule ( comme un collage spécial--> valeur)

Merci d'avance,

PYGOS
0
Réponse 2 / 4
pygos Messages postés 185 Date d'inscription vendredi 5 septembre 2008 Statut Membre Dernière intervention 3 mars 2021
17 mars 2010 à 16:57
MERCI !

Une dernière demande, cela fonctionne maisje souhaiterais ne coller que la valeur sans le format, formule
.....etc

car la valeur recherchée est le résultat d'une somme. Il faudrait coller que la valeur 12:00


Merci d'avance,

Pygos
0
Réponse 3 / 4
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
18 mars 2010 à 08:49
Salut,
et voici : 
Sub report()
Dim valcherchee As Date
Dim var As String
var = Sheets("IRH").Range("B10").Value
valcherchee = Sheets("IRH").Range("B4").Value
Sheets("RECAP").Cells.Find(valcherchee).Offset(0, 2) = var
End Sub
0
Réponse 4 / 4
pygos Messages postés 185 Date d'inscription vendredi 5 septembre 2008 Statut Membre Dernière intervention 3 mars 2021
18 mars 2010 à 10:43
Tout simplement un grand MERCI !!


@+

pygos
0