Discussion :

[edlede]

Bonjour,

Donc pour faire simple j'aimerai pouvoir rendre dynamique la plage de cette macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub inserlist()
 
    With Wshebdo.Range("C2:AI366").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=Alist" & CmbSect
        .IgnoreBlank = True
        .InCellDropdown = True
    End With
 
End Sub

Le C2 ne bougera jamais par contre je dois ajuster la dernière ligne et la dernière colonne

j'ai déterminé mon nombre de ligne et mon nombre de colonne. mais je n'arrive pas ( sans doute un problème de syntaxe) à remplacer le AI366 avec mes nouvelles valeurs calculées.

Voici ou en ai mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub inserlist()
 
Dim a, i, j As Integer
 
 
NbColTot
With WsCal
 
i = Range("A1").CurrentRegion.End(xlDown).Row ' calcul du nombre de ligne
j = NbColTot() + 2 ' calcul du nombre de colonne
End With
 
 
   With Wshebdo.Range("Cells (2,3)" : "Cells(i, j)").Select ' anciennement ("C2:AI366") mais ca bug!
   .Validation
 
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=Alist" & CmbSect
        .IgnoreBlank = True
        .InCellDropdown = True
 
    End With

Si vous avez des idées je suis preneur!

Si vous avez des questions je reste à votre disposition.

[unparia]

Bonjour
Si comme je le pense, With WsCal est un objet (feuille de calcul ?) --->>
lorsque l'on se sert de cet objet OBJET dans un bloc With, on fait précéder d'un . les objets que l'on utilise de cet objet OBJET (la détermination de tes i et j).
A corriger, déjà, donc.

[edlede]

Comme ceci?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 With Wshebdo.Range("Cells(2, 3)", ".Cells(i, j)").Validation

[unparia]

T'ai-je parlé de bloc With là ?
Il ne me semble pas.

[edlede]

Bon depuis tous à l heure j essaie de comprendre mais je ne dois pas être au niveau.

Je pensais pas que mon problème en poserai autant.

Ayant déterminer le nombre de ligne et le nombre de colonnes je pensais pouvoir déterminer l emplacement de ma dernière cellules et du coup déterminer ma plage de selection.

Mais je tourne en rond depuis plusieurs jours dessus

[edlede]

Voilà j'ai finalement réussi c'était beaucoup plus simple que je ne le pensais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
If WsCal.[A367].Value = " " Then
i = 366
Else
i = 367
End If
j = NbColTot()

   With Wshebdo.Range(Cells(2, 3), Cells(i, j)).Validation    
       .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=Alist" & CmbSect
        .IgnoreBlank = True
        .InCellDropdown = True
    End With
End Sub

[mercatog]

Attention
Il fallait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Wshebdo.Range(Wshebdo.Cells(2, 3), Wshebdo.Cells(i, j)).Validation
    .Delete
'.....
End With

[edlede]

Merci pour cette précision!