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

Résolu
PYGOS -  
pygos Messages postés 185 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Modérateur Dernière intervention   2 761
 
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   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention  
 
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   Statut Modérateur Dernière intervention   2 761
 
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   Statut Membre Dernière intervention  
 
Tout simplement un grand MERCI !!


@+

pygos
0

Discussions similaires

Colis shein terminal fret
Lele -
bazfile -

1 réponse
Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses