VBA : liste déroulante avec plusieurs variables

Résolu
poulette17 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   -  
poulette17 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je souhaite créer un tableau avec les phases d'un tournoi de tennis par exemple. Dans ce tableau je veux que ma case pour la demi-finale soit une liste déroulante avec les noms inscrits dans les cases 1/4 de finale. Mon problème se situe au niveau de "Formula1", dans la macro test que j'ai enregistré, j'avais Formula1:="=$B$4:$B$5" mais moi je veux pouvoir paramétrer la ligne et la colonne à souhait avec des variables (cf. ci-après) 

Sub Tournoi()

Dim i As Integer 'pour ligne et colonne des cellules
Dim j As Integer


'faire liste 2nd tour colonne C
For i = 4 To 67 'ligne joueur 1 à 64
  j = 3 'colonne C, 2nd tour
   
Range(Cells(i, j), Cells(i + 1, j)).Select    'cellules ou j'insère ma liste

        With Selection.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=Cells(i, j - 1):Cells(i + 1, j - 1)"
            .IgnoreBlank = True
            .InCellDropdown = True
            .ShowInput = True
            .ShowError = True
    End With
   i = i + 2 'pour passer au suivant
 Next i
 End Sub



Merci de votre aide (je n'ai rien trouvé malgré plusieurs forum traitant des listes déroulantes)

1 réponse

Réponse 1 / 1
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
Bonjour, 

Sub Tournoi()
Dim MaPlage As Range
Dim i As Integer, j As Integer
    j = 3
    For i = 4 To 66 Step 2
        Set MaPlage = Range(Cells(i, j), Cells(i + 1, j))
        With MaPlage.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
            Operator:=xlBetween, Formula1:="=" & MaPlage.Offset(0, -1).Address
        End With
    Next i
End Sub


A+
0
poulette17 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 
Gyrus,

merci beaucoup, cela fonctionne parfaitement.
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse