Alors il faut passer par une macro évenementielle.
En PJ la macro se lance quand on modifie la cellule B8, il recalcule en temps réel le Nom et la Ville du prénom choisi avec Worksheet_Change.
VB:
Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$B$8" Then
Sheets("Essai").Range("D8") = Nom(Range("B8"))
Sheets("Essai").Range("F8") = Ville(Range("B8"))
End If
End Sub
On peut aussi relancer les calculs d'une feuille quand on sélectionne cette feuille avec Worksheet_Activate. toutes ces macros événementielles doivent être mises impérativement dans la feuille concernée.
Function VinciHorus(C)
VinciHorus = "" ' Valeur de retour par défaut
If C = "" Then
Exit Function
Else
If Not IsError(Application.Match(C, Sheets("t").Range("B:B"), 0)) Then
Pointeur = Application.Match(C, Sheets("t").Range("B:B"), 0)
VinciHorus = Sheets("p").Range("D" & Pointeur)
Else
VinciHorus = "-"
End If
End If
End Function
La syntaxe est :
=VinciHorus(nomcellule)
Tuto sur les fonctions personnelles :
Pour ceux qui ne connaissent pas les fonctions personnelles et pour ceux qui appréhendent le VBA, voici un petit tuto pour montrer à quel point des fonctions personnelles peuvent être utiles et surtout à quel point c'est simple, même si on n'a...
Function VinciHorus(C)
VinciHorus = "" ' Valeur de retour par défaut
If C = "" Then
Exit Function
Else
If Not IsError(Application.Match(C, Sheets("t").Range("B:B"), 0)) Then
Pointeur = Application.Match(C, Sheets("t").Range("B:B"), 0)
VinciHorus = Sheets("p").Range("D" & Pointeur)
Else
VinciHorus = "-"
End If
End If
End Function
La syntaxe est :
=VinciHorus(nomcellule)
Tuto sur les fonctions personnelles :
Pour ceux qui ne connaissent pas les fonctions personnelles et pour ceux qui appréhendent le VBA, voici un petit tuto pour montrer à quel point des fonctions personnelles peuvent être utiles et surtout à quel point c'est simple, même si on n'a...
Function VinciHorus(C)
VinciHorus = "" ' Valeur de retour par défaut
If C = "" Then
Exit Function
Else
If Not IsError(Application.Match(C, Sheets("t").Range("B:B"), 0)) Then
Pointeur = Application.Match(C, Sheets("t").Range("B:B"), 0)
VinciHorus = Sheets("p").Range("D" & Pointeur)
Else
VinciHorus = "-"
End If
End If
End Function
La syntaxe est :
=VinciHorus(nomcellule)
Tuto sur les fonctions personnelles :
Pour ceux qui ne connaissent pas les fonctions personnelles et pour ceux qui appréhendent le VBA, voici un petit tuto pour montrer à quel point des fonctions personnelles peuvent être utiles et surtout à quel point c'est simple, même si on n'a...
Alors il faut passer par une macro évenementielle.
En PJ la macro se lance quand on modifie la cellule B8, il recalcule en temps réel le Nom et la Ville du prénom choisi avec Worksheet_Change.
VB:
Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$B$8" Then
Sheets("Essai").Range("D8") = Nom(Range("B8"))
Sheets("Essai").Range("F8") = Ville(Range("B8"))
End If
End Sub
On peut aussi relancer les calculs d'une feuille quand on sélectionne cette feuille avec Worksheet_Activate. toutes ces macros événementielles doivent être mises impérativement dans la feuille concernée.
Alors il faut passer par une macro évenementielle.
En PJ la macro se lance quand on modifie la cellule B8, il recalcule en temps réel le Nom et la Ville du prénom choisi avec Worksheet_Change.
VB:
Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$B$8" Then
Sheets("Essai").Range("D8") = Nom(Range("B8"))
Sheets("Essai").Range("F8") = Ville(Range("B8"))
End If
End Sub
On peut aussi relancer les calculs d'une feuille quand on sélectionne cette feuille avec Worksheet_Activate. toutes ces macros événementielles doivent être mises impérativement dans la feuille concernée.