Associer différentes macro selon choix menu déroulant

mapomme

XLDnaute Barbatruc

Supporter XLD

• 22 Mars 2019

• #2

Bonsoir @sebbbbb,

• Il me semble qu'il y a un un s en trop à la fin de Target.Rows
• d'autre part, il me semble que F est la colonne n° 6

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 22 Mars 2019

• #3

Merci pour ton retour
cependant pas plus de résultats

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 22 Mars 2019

• #4

Il ne s'agit pas de la cellule F16 mais L16...désolé

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 22 Mars 2019

• #5

j'ai corrigé mon scrip comme suit, mais toujours pas de resultat

Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Address = "L16" Then
Select Case Target.Value
Case "1"
Call stowage
Case "2"
Call stowage2
Case "3"
Call stowage3
Case Else
Call stowage
End Select
End If
End Sub

help please
seb

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 22 Mars 2019

• #6

il faut bien mettre ce script dans l'onglet en question ? via visualiser le code...

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 22 Mars 2019

• #7

Re @sebbbbb,

Voir le fichier joint. Il y du code dans le module de la feuille "Feuil-0". ce code est relié à la procédure évènementielle Private Sub Worksheet_Change(ByVal Target As Range). Les macros sont dans le module Module1.

 

Pièces jointes

• sebbbbb- lancer macro- v1.xlsm

  16.4 KB · Affichages: 13

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 22 Mars 2019

• #8

je vois
le hic c'est que moi j'ai utilisé une zone de liste déroulante (controle de formulaire)
y a t il moyen d'adapter stp ?
merci
seb

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 22 Mars 2019

• #9

Re @sebbbbb,

voir fichier joint...

 

Pièces jointes

• sebbbbb- lancer macro- v2.xlsm

  26.5 KB · Affichages: 15

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 22 Mars 2019

• #10

cela me semble tres bien
je teste. en tout cas, cela correspond a ce qu je souhaitais
mille merci a toi
seb

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 23 Mars 2019

• #11

bonjour

j'ai pris le temps de tester ce script et finalement je vais partir avec le script que tu me proposais précédemment avec liste déroulante via "validation de données" :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(0, 0) = UCase("L16") Then
Select Case Target
Case 1: stowage
Case 2: stowage2
Case 3: stowage3
End Select
End If
End Sub


cependant lorsque je remplace les choix de mon menu déroulant, le script ne fonctionne plus. Ci-dessous la modif que j'ai faite et qui bug. vois tu quel est le prob stp ?


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(0, 0) = UCase("F8") Then
Select Case Target
Case "1 cale": stowage
Case "2 cales": stowage2
Case "3 cales": stowage3
End Select
End If
End Sub

le menu déroulant proposant évidemment les choix :
1 cale
2 cales
3 cales

merci par avance
seb

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 23 Mars 2019

• #12

Bonjour @sebbbbb,

Voir le fichier joint. La liste déroulante est en F8 (comme dans ton code) et ton code fonctionne bien !
Regarder si dans la liste qui peuple la liste de validation, il n'y aurait pas quelques espaces qui se baladent ...

 

Pièces jointes

• sebbbbb- lancer macro- v3.xlsm

  18.3 KB · Affichages: 8

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 23 Mars 2019

• #13

bizarre
merci a toi
je regarde cela
seb

 

Vote positif 0 Vote négatif