Faites en sorte que Excel se rapporte à différentes valeurs [fermé]

0

J'ai un fichier Excel avec 3 feuilles de calcul. Sur les pages deux et trois, j'ai une énorme liste d'adresses IP qui se rapportent toutes à un nom spécifique que l'on peut trouver à la page deux et à la page trois.

Je veux taper le nom sur la première page, disons "Marketing", puis je veux obtenir les adresses IP "Marketing" dans les 2 cellules ci-dessous. Ce "Marketing" se trouve sur les deux pages avec des adresses IP uniques.

microsoft-excel automation

— Smashytech
source

Alors quelle est votre question? Sur quelle partie êtes-vous coincé?

— Mixxiphoid

Je dirais sur le point de départ ... Je ne sais pas comment faire ce que je demande. Je souhaite que la page 1 imprime les valeurs des pages 2 et 3, liées à un "nom" existant aux pages 2 et 3

— Smashytech

-1

Cela se fait généralement en utilisant des fonctions de recherche comme vlookup ou hlookup. Voici un Didacticiel pour ça.

— Atif Rahman
source

Le problème avec votre réponse est que seules les réponses de liens vont mal (les liens meurent, etc.). C’est totalement cool de copier la partie pertinente de leur réponse dans votre message et de citer le site Web comme référence :)

— Dave

0

Selon mon commentaire sur votre message, VLookUp le fera probablement, mais je ne connais pas les fonctions Excel, donc cela fonctionne à l'aide de VBA.

Sub search()

Dim searchValue As String
searchValue = Worksheets("Sheet1").Range("B2").Value

Worksheets("Sheet1").Range("B4").Value = GetIpFromWorksheet("Sheet2", searchValue)
Worksheets("Sheet1").Range("B5").Value = GetIpFromWorksheet("Sheet3", searchValue)

End Sub

Public Function GetIpFromWorksheet(ByVal sheet As String, ByVal search As String) As String

Dim row As Integer
row = 1

Do While (True)

    If Worksheets(sheet).Range("A" & row).Value = "" Then
        GetIpFromWorksheet = "Not found"
        Exit Function
    End If

    If Worksheets(sheet).Range("A" & row).Value = search Then
        GetIpFromWorksheet = Worksheets(sheet).Range("B" & row).Value
        Exit Function
    End If

    row = row + 1


Loop

End Function

Sheet1:

enter image description here