Recherche une valeur variable dans une autre feuille
Fermé
hey-j
Messages postés
1
Date d'inscription
lundi 29 septembre 2014
Statut
Membre
Dernière intervention
29 septembre 2014
-
29 sept. 2014 à 18:03
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 30 sept. 2014 à 17:46
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 30 sept. 2014 à 17:46
A voir également:
- Recherche une valeur variable dans une autre feuille
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Recherche musique - Guide
- Recherche par image - Guide
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Vba rechercher une valeur dans une colonne - Astuces et Solutions
1 réponse
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
30 sept. 2014 à 17:46
30 sept. 2014 à 17:46
Bonjour,
En répondant à cette demande tout en conservant la macro:
Le problème c'est qu'il me cherche toujours la valeur "poney" alors que je souhaiterai qu'il cherche la valeur en A2, et pas une valeur fixe !
En répondant à cette demande tout en conservant la macro:
Le problème c'est qu'il me cherche toujours la valeur "poney" alors que je souhaiterai qu'il cherche la valeur en A2, et pas une valeur fixe !
Sub Macro12()
Dim nom As String
nom = Range("A2").Value
ActiveCell.Select
Selection.Copy
Sheets("Detailed Billing - VM").Select
Cells.Find(What:=nom, After:=ActiveCell, _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
Cells.Find(What:="Sub-Total:", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 13).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Virtual Servers").Select
ActiveCell.Offset(0, 3).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub