VBA : liste déroulante avec plusieurs variables

Résolu/Fermé

poulette17 Messages postés 10 Date d'inscription dimanche 26 mai 2013 Statut Membre Dernière intervention 12 février 2017 - Modifié par poulette17 le 29/05/2015 à 23:21
poulette17 Messages postés 10 Date d'inscription dimanche 26 mai 2013 Statut Membre Dernière intervention 12 février 2017 - 30 mai 2015 à 22:07

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)

A voir également:

VBA : liste déroulante avec plusieurs variables
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
Autofill vba ✓ - Forum Excel
Vba range avec variable ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 525
30 mai 2015 à 07:22

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+

poulette17 Messages postés 10 Date d'inscription dimanche 26 mai 2013 Statut Membre Dernière intervention 12 février 2017
30 mai 2015 à 22:07

Gyrus,

merci beaucoup, cela fonctionne parfaitement.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

Méthode find dans VBA - Recherche de données sous Excel

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll

Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

ouverture d'un fichier excel à partir d'un code VBA

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

appliquer une pause dans une macro vba excel

Bonjour,

Je cherche comment faire stopper de quelques secondes le déroulement de ma macro en vba excel et ceci de maniere invisible pour l'utilisateur.
Si quelqu'un à un bout de code ça serait sympa !!!

je suis en vba excel 2007

merci

Configuration: Windows XP / Internet Explorer 7.0