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

Résolu/Fermé
Signaler
-
Messages postés
185
Date d'inscription
vendredi 5 septembre 2008
Statut
Membre
Dernière intervention
3 mars 2021
-
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

4 réponses

Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 675
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
Messages postés
185
Date d'inscription
vendredi 5 septembre 2008
Statut
Membre
Dernière intervention
3 mars 2021

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
Messages postés
185
Date d'inscription
vendredi 5 septembre 2008
Statut
Membre
Dernière intervention
3 mars 2021

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
Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 675
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
Messages postés
185
Date d'inscription
vendredi 5 septembre 2008
Statut
Membre
Dernière intervention
3 mars 2021

Tout simplement un grand MERCI !!


@+

pygos
0