copie de cellule ou liste déroulante

mickaeldu45 · 10 Mai 2019

Bonjour,

J'essai de faire quelque chose de particulier :

Dans la cellule A1 de la feuille 1 j'ai une valeur exemple Mr X
Dans la cellule A2 de la feuille 2 je voudrais que si la cellule A1 de la feuille 1 contient Mr X alors A2 contient Mr X mais si A1 n'est pas rempli alors je voudrais avoir une liste déroulante en utilisant la fonction validation de données

Pensez vous que cela est possible?

job75 · 10 Mai 2019

Bonsoir mickaeldu45,

mickaeldu45 à dit:
Pensez vous que cela est possible?

Oui, avec une macro VBA c'est très simple quand on connaît un peu ce langage.

A+

job75 · 10 Mai 2019

Fichier joint avec cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False 'désactive les évènements
[A2].Validation.Delete 'RAZ
If [A1] = [D1] Then
    [A2] = [D1]
Else
    [A2].Validation.Add xlValidateList, Formula1:="=" & [K2:K5].Address
    If Application.CountIf([K2:K5], [A2]) = 0 Then [A2] = ""
End If
Application.EnableEvents = True 'réactive les évènements
End Sub

Bonne nuit.

mickaeldu45 · 11 Mai 2019

job75 à dit:

Fichier joint avec cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False 'désactive les évènements
[A2].Validation.Delete 'RAZ
If [A1] = [D1] Then
    [A2] = [D1]
Else
    [A2].Validation.Add xlValidateList, Formula1:="=" & [K2:K5].Address
    If Application.CountIf([K2:K5], [A2]) = 0 Then [A2] = ""
End If
Application.EnableEvents = True 'réactive les évènements
End Sub

Bonne nuit.

Tout d'abord merci pour ton aide, j'ai ouvert ton fichier et je pense que cela ne correspond pas tout à fait à ma demande : dans ta cellule A1 il faut qu'elle se remplisse automatiquement en fonction de D1 si D1 est vide alors on peut sélectionner un choix dans la liste déroulante se trouvant dans la cellule A1 (A1 se remplit automatiquement en fonction de D1 ou on peut sélectionner dans la liste déroulante)

Est ce plus claire?

Cordialement

copie de cellule ou liste déroulante

mickaeldu45

XLDnaute Nouveau

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

mickaeldu45

XLDnaute Nouveau

Discussions similaires