Bonjour,
je démarre en excel VBA
J'ai une cellule B13="DIRECTION_REGIONALE" qui est une liste déroulante =Données!$E$2:$E$10
Dans l'onglet données colonne D = code région, E = Nom région, F = tel, G= Nom région + tel => Code_Regions=Données!$E$2:$G$10
Dans mon onglet FRANCE après avoir, a partir de ma liste déroulante, sélectionner ma direction cellule= DIRECTION_REGIONALE dans une cellule nommée DRL j'ai une formule qui affiche 1 si non vide
Dans la cellule F_Code_Region j'ai de code correspondant à la direction régionale
Je souhaite changer l'affichage de ma cellule DIRECTION_REGIONALE
Private Sub worksheet_change(ByVal Target As Range)
'Mise a jour valeur Direction Regionale
If Target.Count = 1 Then
If Range("DRL") = 1 Then
Range("DIRECTION_REGIONALE") = Application.VLookup(Range("F_Code_Region"), Range("Code_Regions"), 2, False)
Else
End If
End If
End Sub
J'ai une erreur d’exécution 1044 le méthode Range de l'objet worksheet a échoué.
Merci de m'expliquer ou je me suis planter.
Bonne journée
Francis
je démarre en excel VBA
J'ai une cellule B13="DIRECTION_REGIONALE" qui est une liste déroulante =Données!$E$2:$E$10
Dans l'onglet données colonne D = code région, E = Nom région, F = tel, G= Nom région + tel => Code_Regions=Données!$E$2:$G$10
Dans mon onglet FRANCE après avoir, a partir de ma liste déroulante, sélectionner ma direction cellule= DIRECTION_REGIONALE dans une cellule nommée DRL j'ai une formule qui affiche 1 si non vide
Dans la cellule F_Code_Region j'ai de code correspondant à la direction régionale
Je souhaite changer l'affichage de ma cellule DIRECTION_REGIONALE
Private Sub worksheet_change(ByVal Target As Range)
'Mise a jour valeur Direction Regionale
If Target.Count = 1 Then
If Range("DRL") = 1 Then
Range("DIRECTION_REGIONALE") = Application.VLookup(Range("F_Code_Region"), Range("Code_Regions"), 2, False)
Else
End If
End If
End Sub
J'ai une erreur d’exécution 1044 le méthode Range de l'objet worksheet a échoué.
Merci de m'expliquer ou je me suis planter.
Bonne journée
Francis