remplissage cellule automatique par menu déroulant en vba

sebbbbb

XLDnaute Impliqué

• 27 Septembre 2017

• #2

bjr
vu le peu d'entrain 🙂, cela serait ce irréalisable ?
merci a vous
seb

 

Vote positif 0 Vote négatif

D

dieu08

XLDnaute Occasionnel

• 27 Septembre 2017

• #3

Bonjour Seb,

Je travaille dessus ! 😉

Dieu08.

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 27 Septembre 2017

• #4

Super
Merci

 

Vote positif 0 Vote négatif

Chris24

XLDnaute Impliqué

• 27 Septembre 2017

• #5

Bonjour

Patience et longueur de temps font plus que force ni que rage.......

Un exemple en fichier joint, j'ai remplacé ta Zone combinée par un Combobox

Cdt

 

Pièces jointes

• V20-TEST.xlsm

  225 KB · Affichages: 27

Vote positif 0 Vote négatif

D

dieu08

XLDnaute Occasionnel

• 27 Septembre 2017

• #6

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.

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 27 Septembre 2017

• #7

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)

 

Vote positif 0 Vote négatif

D

dieu08

XLDnaute Occasionnel

• 27 Septembre 2017

• #8

Re,

Il suffit de le copier dans le ruban "développeur / visual basic" ou "Macro / Créer".

Dieu08.

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 27 Septembre 2017

• #9

Mince
celà ne fonctionne pas 🙁
j'ai bien un nouvelle macro qui s'appelle : Zonecombinée3_QuandChangement
mais rien ne se lance lorsque je modifie mon menu deroulant
c'est grave docteur ?
seb

 

Vote positif 0 Vote négatif

D

dieu08

XLDnaute Occasionnel

• 27 Septembre 2017

• #10

As-tu bien enregistré le script que tu as collé ?

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 27 Septembre 2017

• #11

j'ai associé mon menu déroulant à cette macro et quand je modifie le menu j'ai ces messages erreur suivants


ainsi que



j'suis un peu perdu la
seb

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 27 Septembre 2017

• #12

je ne suis pas sur de tout comprendre mais oui j'ai une macro qui correspond au script que tu m'a donné
et cette macro je la retrouve dans ma liste de toutes mes macro
elle s'appelle : Zonecombinée3_QuandChangement

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 27 Septembre 2017

• #13

petit bémol
ton code fonctionne très bien dans l'exemple de tableau que j'avais joint. Cependant il ne fonctionne plus lorsque je l'intègre dans mon fichier qui est plus complexe avec moultes autres onglets

 

Vote positif 0 Vote négatif

D

dieu08

XLDnaute Occasionnel

• 27 Septembre 2017

• #14

Seb,

Tu peux faire "affichage/explorateur de projets" dans le VB et refaire ta copie d'écran ?

Merci.

 

Vote positif 0 Vote négatif

D

dieu08

XLDnaute Occasionnel

• 27 Septembre 2017

• #15

sebbbbb à dit:

petit bémol
ton code fonctionne très bien dans l'exemple de tableau que j'avais joint. Cependant il ne fonctionne plus lorsque je l'intègre dans mon fichier qui est plus complexe avec moultes autres onglets

Cliquez pour agrandir...

L'onglet ne porte peut-être plus le numéro "141" alors je te propose de remplacer "Feuil141" par "Worksheets("Fiche Données")".

 

Vote positif 0 Vote négatif