Excel formule liste déroulante
azertyuiop
-
chrismeun Messages postés 250 Statut Membre -
chrismeun Messages postés 250 Statut Membre -
Bonjour,
J'ai un petit soucis, qui me bloque dans mon travail...
Je vous explique ma situation :
Sur Excel 2003, j'ai un tableau de tarifs, au dessus une liste déroulante avec plusieurs pays.
Existe-t-il un moyen pour qu'en changeant de pays dans la liste déroulante, le tableau se remmette à zéro, et que l'on puisse mettre de nouveau des tarifs différents ?
Si quelqu'un connais une formule, cela m'aiderai beaucoup !!
Merci
J'ai un petit soucis, qui me bloque dans mon travail...
Je vous explique ma situation :
Sur Excel 2003, j'ai un tableau de tarifs, au dessus une liste déroulante avec plusieurs pays.
Existe-t-il un moyen pour qu'en changeant de pays dans la liste déroulante, le tableau se remmette à zéro, et que l'on puisse mettre de nouveau des tarifs différents ?
Si quelqu'un connais une formule, cela m'aiderai beaucoup !!
Merci
A voir également:
- Excel formule liste déroulante
- Liste déroulante excel - Guide
- Excel liste déroulante en cascade - Guide
- Formule si et excel - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Formule somme excel ligne - Guide
2 réponses
Bonjour
une formule je ne pense pas, mais un code à coller :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Union([B3], [B3], Range("B3:B3"))) Is Nothing Then Exit Sub
ActiveSheet.Unprotect
Range("C3:M3").Select
Selection.ClearContents
ActiveSheet.Protect
End Sub
__ remplacer dans toute la macro B3 par la cellule où vous entrez votre menu (4 positions sur ligne if intersect)
__ dans la ligne Range, entre les guillemets, placer les adresses des cellules à vider:
champs séparés par des points, cellules isolées séparées par des virgules
exemple:
RANGE("A1:C2,D1,D3,E5:F5").select
__ si votre feuille n'est pas protégée, supprimer les lignes Activesheet.Protect etAactivesheet.Unprotect
copier le code et coller le dans la feuille :
clic droit sur onglet / Visualiser le code / Coller dans la fenêtre / Fermer VBA
chaque fois que vous modifierez B3 (ou sa remplaçante) les cellules sélectionnées se videront.
crdlmnt
Demandons nous si nous ne sommes pas seuls à comprendre ce que l'on explique?
une formule je ne pense pas, mais un code à coller :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Union([B3], [B3], Range("B3:B3"))) Is Nothing Then Exit Sub
ActiveSheet.Unprotect
Range("C3:M3").Select
Selection.ClearContents
ActiveSheet.Protect
End Sub
__ remplacer dans toute la macro B3 par la cellule où vous entrez votre menu (4 positions sur ligne if intersect)
__ dans la ligne Range, entre les guillemets, placer les adresses des cellules à vider:
champs séparés par des points, cellules isolées séparées par des virgules
exemple:
RANGE("A1:C2,D1,D3,E5:F5").select
__ si votre feuille n'est pas protégée, supprimer les lignes Activesheet.Protect etAactivesheet.Unprotect
copier le code et coller le dans la feuille :
clic droit sur onglet / Visualiser le code / Coller dans la fenêtre / Fermer VBA
chaque fois que vous modifierez B3 (ou sa remplaçante) les cellules sélectionnées se videront.
crdlmnt
Demandons nous si nous ne sommes pas seuls à comprendre ce que l'on explique?
