High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

VBA Excel selectionner un plage

Dernière réponse le 19 jun 2009 à 13:56:30 Lila_35, le 18 jun 2009 à 16:01:02 
 Signaler ce message aux modérateurs

Bonjour,

Lors d'un choix dans une combobox d'un certain domaine [ Range("Q4:Q63") ] on souhaite sélectionner une plage plus réduite d'autre données.
La procédure pour la sélection des plages plus réduite fonctionne bien mais pour le choix dans la première combobox, je ne peux le faire que pour une cellule ( dans mon cas "Q4").

Le code parlera plus.

Voici l'appel de la macro lors des changements dans les combobox : 

Private Sub Worksheet_Change(ByVal Target As Range)
   Select Case Target.Address

        Case Range("Q4").Address  ' ou Case Range("Q4").ends(xldown).adress  
          
                Application.Run "'" & Excel.ActiveWorkbook.Path & "\MaMacro.xls'!MacrosChange"
     
   End Select
                
End Sub


Et voilà la macro ( qui rempli son rôle mais que pour un case...) : 
Public Sub MacrosChange()
'
' Selection des codes projets en fonction du nom du domaine
' Macro enregistrée le 18/06/2009 par odaxys
'
    
    If Range("Q4").Text = "Domaine1" Then
    
        With Selection.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=CdPr1"
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
        
    ElseIf Range("Q4").Text = "Domaine2" Then
    
        With Selection.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=CdPr2"
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
    
    ElseIf Range("Q4").Text = "Domaine3" Then
        
        With Selection.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=CdPr3"
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
        
    Else
    
        With Selection.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=CdPr"
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
    End If
End Sub

J'ai déjà essayé : 
   Select Case Target.Address

        Case Range("Q4").Address  ' ou Case Range("Q4").ends(xldown).adress

Mais ça ne rentre pas dans le Case.

Je suis si près du but.

Merci
Configuration: Windows XP
Firefox 3.0.11

Posez votre question Répondre

1

Lila_35, le 18 jun 2009 à 16:34:19

Quelqu'un a une idée?

Merci

   
Répondre à Lila_35

2

coco_rico, le 18 jun 2009 à 16:44:13

Bonjour,
j'avoue ne pas avoir tout compris ton pb mais sache que vba ne retient que le dernier événement change dans Worksheet_Change(). Essaie de lancer le débogueur pour piéger target.address pour te faire une idée de la ligne de code qui ne marche pas.

si t'éclaires un peu plus ton pb, peut-être pourra-t-on faire autrement?

bon courage.

   
Répondre à coco_rico

3

Lila_35, le 18 jun 2009 à 16:58:27

Désolé c'est pas facile à mettre sur le papier.

Pour "essayé" de résumer, 

Private Sub Worksheet_Change(ByVal Target As Range)
   Select Case Target.Address

        Case Range("Q4").Address   
          
                Application.Run "'" & Excel.ActiveWorkbook.Path & "\MaMacro.xls'!MacrosChange"
     
   End Select
                
End Sub

ça fonctionne très bien mais uniquement pour Q4.

Ce que je souhaiterai c'est: 
Private Sub Worksheet_Change(ByVal Target As Range)
   Select Case Target.Address

        Case Range("Q4:Q63").Address  ' ou Case Range("Q4").ends(xldown).adress  
          
                Application.Run "'" & Excel.ActiveWorkbook.Path & "\MaMacro.xls'!MacrosChange"
     
   End Select
                
End Sub

La macro se trouve sur un autre fichier que ma feuille de calcule

Faut il passer un paramètre à la macro ? une adresse ?

Merci pour le coup d'œil.

   
Répondre à Lila_35

4

Lila_35, le 18 jun 2009 à 17:28:46

Quelqu'un a une idée?

Merci

   
Répondre à Lila_35

5

coco_rico, le 18 jun 2009 à 17:46:24

Je subodore que le pb vient de ta target.address, essaie de le piéger avec le débogueur. ceci dit, ta MacrosChange ne fait référence qu'à la valeur de "Q4"?
Quant à lancer ta macro à distance, Application.Run "MaMacro.xls!MacrosChange" devrait suffire, par contre tu devra penser à refermer le classeur qui la contient après.

Tu me diras si ça échoue?

bon courage.

   
Répondre à coco_rico

6

michel_m, le 18 jun 2009 à 22:36:24
  • +1

BonsoIr Lila, Coco_rico

si j'ai compris ta demande
ci dessus procédures pour créer des validations de données (et non combobox?) dans la plage Q7:Q63
la macro macrosrange a été optimisée mais est à compléter: 

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("Q4:Q63")) Is Nothing Then: Exit Sub
Application.Run ("macros.xls!MacrosChange")
End Sub
--


----------------------
Option Explicit 

Sub MacrosChange()
 Dim liste As String
    Select Case ActiveCell
        Case Is = "domaine1"
            liste = "=cdpr1"
        Case Is = "domaine2"
            liste = "=cdpr2"
       '......autres cas dom3 &4&1....
        Case Else
            Exit Sub
            
    End Select
    
    With Range(ActiveCell.Address).Validation
            .Delete
            .Add Type:=xlValidateList, Formula1:=liste
    End With
End Sub


Ci joint tite démo avec uniquement liste pour "domaine1"
http://cjoint.com/?gswJbrgMUA
Cordialement, Michel

   
Répondre à michel_m

7

Lila_35, le 19 jun 2009 à 10:16:00

Bonjour,

Tu m'as mis sur une bonne voie michel_m.

On rentre bien dans la macro très bien optimisée, merci beaucoup.
Mon problème n'est toujours pas résolu car la validation des données doit servir pour la colonne suivante ("R"). Je ne sais pas si je suis bien clair.

J'ai toute une liste d'incident ( clef primaire num_inc ) appartenant a 3 types de domaines (domaine1,domaine2,domaine3) trié d'abord par domaine puis par num_inc:

1155 problem1 entrant J6081 domaine1
9260 pb formatage J6081 domaine1
11565 Abend transaction 36UG J6083 domaine1
1453 Pb locatisation domaine2
9100 VERIFdomaine domaine2
2197 Mise à jour orga non effective domaine3
3139 Livraison domaine3
9261 pb ecriture domaine3

Répartie en 3 validation de données cdpr1 cdpr2 et cdpr3 (respectivement domaine1,domaine2,domaine3) contenant les num_inc (domaine1:1155,9260,11565 ; domaine2:1453,9100 ; domaine3:2197,3139,9261)

Sur des autre feuilles (janvier,fevrier,mars,...,decembre) lorsque l'on choisi un domaine ("Q"), cela affecte à la colonne des num_inc ("R") où on aura cdpr1 ou cdpr2 ou cdpr3.

Actuellement, quand je choisi le domaine colonne "Q" il m'affecte les num_inc sur cette même colonne.

J'ai un accès restreint à internet et je ne peux donc pas tester la tite demo michel_m mais merci pour l'attention portée.

Cordialement.

   
Répondre à Lila_35

8

Lila_35, le 19 jun 2009 à 10:25:22

Coco_rico,

Target.Adress = "$Q$i" i = numéro de la ligne

   
Répondre à Lila_35

9

michel_m, le 19 jun 2009 à 10:26:12

Bonjour,

c'était peut-être au départ qu'il fallait mettre ta description...
Je jetterai un oeil cet aprem... Cordialement, Michel

   
Répondre à michel_m

10

Lila_35, le 19 jun 2009 à 11:01:22

Je pense m'en être sorti par un Select dans la macro : 

Sub MacrosChange()
 Dim liste As String
    Select Case ActiveCell
        Case Is = "domaine1"
            liste = "=CdPr1"
        Case Is = "domaine2"
            liste = "=CdPr2"
        Case Is = "domaine3L"
            liste = "=CdPr3"
        Case Else
            Exit Sub
            
    End Select
    Range("R4:R63").Select
    With Selection.Validation
            .Delete
            .Add Type:=xlValidateList, Formula1:=liste
    End With
End Sub

Après, je ne sais pas comment dé sélectionner mais ça n'est pas le souci majeur.

Toutes mes salutations à michel_m pour ton aide très précieuse
C'est le Intersect(Target, Range("Q4:Q63")) qui m'a sauvé.

Cordialement.

   
Répondre à Lila_35

11

coco_rico, le 19 jun 2009 à 11:20:07

Slt Lila, Michel,
super. Lila ne peux dé sélectionner que par une autre sélection.

bonne continuation à vous.

   
Répondre à coco_rico

12

michel_m, le 19 jun 2009 à 12:11:29
  • +1

Re lila, bjr coco_rico
Pour éviter d'avoir à dé-sélectionner: ne pas utiliser "select"
et un message pour indiquer que le boulot est fait...


With Range("R4:R63").Validation
.Delete
.Add Type:=xlValidateList, Formula1:=liste
End With
Msgbox " Colonne R préparée avec succès."
Cordialement, Michel

   
Répondre à michel_m

13

 coco_rico, le 19 jun 2009 à 13:56:30

Effectivement. décidément, t'es super efficace michel.

bonne journée à vous

   
Répondre à coco_rico
Posez votre question Répondre
Ils ont besoin de votre aide