remplissage cellule automatique par menu déroulant en vba

sebbbbb

XLDnaute Impliqué
bonjour

je me creuse la tête depuis quelques heures pour une formule VBA. Je précise bien VBA car j'ai réussi avec l'utilisation formule & validation de données dans les cellules mais évidemment cela ne fonctionne plus si on supprime la formule de la cellule et qu'ensuite on veut refaire changement grâce à un menu déroulant.

je vous explique. en PJ il y un un menu déroulant à coté de la case opération.
Je souhaiterai donc :

1/ quand le menu déroulant s'arrête sur IMPORT que :
- cela efface les éventuelles écritures dans la cellule A24
- cela écrive en cellule U24 le mot NIL
2/ quand le menu déroulant s'arrête sur EXPORT que :
- cela écrive en en cellule A24 le mot NIL
- cela efface les éventuelles écritures dans la cellule U24
3/ que les case A24 et U24 soient vides pour tout autre choix du menu déroulant

un grand merci par avance
seb
 

Pièces jointes

  • V20-TEST.xlsm
    219.5 KB · Affichages: 195

dieu08

XLDnaute Occasionnel
Re,

Je te propose ceci avec tes listes de contrôle actuelles :

VB:
Sub Zonecombinée3_QuandChangement()

Dim var1 As String
Dim var2 As String

' index
var1 = Feuil141.Shapes("Drop Down 3").ControlFormat.ListIndex

' valeur
var2 = Feuil141.Shapes("Drop Down 3").ControlFormat.List(var1)

    If var2 = "IMPORT" Then
   
        Range("A24").Value = ""
        Range("U24").Value = "NIL"
       
    ElseIf var2 = "EXPORT" Then
       
        Range("A24").Value = "NIL"
        Range("U24").Value = ""
   
    Else
   
    Range("A24").Value = ""
    Range("U24").Value = ""
   
    End If

End Sub

Qu'en penses-tu ?

Dieu08.
 

sebbbbb

XLDnaute Impliqué
Merci Chris
c'est tres bien. seul hic il faut que je gardele fichier avec le même menu déroulant car je n'ai envoyé qu'une partie de mon fichier, et j'aurai bcp trop de modif a faire

Dieu08 : Merci bcp
peux tu me dire ou glisser ce code stp ? (suis novice en vba)
 

sebbbbb

XLDnaute Impliqué
j'ai associé mon menu déroulant à cette macro et quand je modifie le menu j'ai ces messages erreur suivants
upload_2017-9-27_14-5-9.png


ainsi que

upload_2017-9-27_14-6-6.png


j'suis un peu perdu la
seb
 
Haut Bas