Discussion :

[leptitdave]

Bonjour,

J'aimerais savoir si il est possible après avoir fait une validation de données de selectionner par vba la 1ère occurence de cette validation ?
Je ne sais pas si c'est très clair ce que je dis alors j'essaye d'expliquer le pourquoi : je selectionne une plage et je fais une validation avec une plage de cellule nommée :

Code :

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

1
2
3
4
5
6
FeuilSuivi.Range("B5:B106").Select
With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=Categories"
 End With

Ensuite il faut que je fasse une 2ème validation par rapport au contenu de ma cellule d'avant :

Code :

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

1
2
3
4
5
6
FeuilSuivi.Range("C5:C106").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=INDIRECT(B5)"
   End With

Ma validation fonctionne si j'ai une valeur en B5 c'est pour cela qu'avant ma 2ème validation je voudrais mettre la 1ère occurence de la liste en B5.

[jfontaine]

Bonjour,


As tu essayé comme ca

Code :

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

FeuilSuivi.Range("C5:C106").Value=range("B5").value

[leptitdave]

Pour l'instant j'ai pallié le problème en allant chercher mon occurence dans
une autre feuille mais bon je pense qu'il y a plus propre. (car Catégories correspond à la plage A2:A5 de la feuille param.)

Code :

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

1
2
3
4
FeuilParam.Select
    test = FeuilParam.Range("A2").Value
    FeuilSuivi.Select
    FeuilSuivi.Range("B5").Value = test

bonjour jfontaine,

Ta proposition ne fonctionne pas je pense car toute ma plage va se basée sur B5.

Ha oui un détail important que je n'ai pas précisé. chaque occurence de ma liste est un nom défini.

[jfontaine]

Peux tu envoyer un fichier test

[leptitdave]

Mon fichier est trop gros.
Je n'aurais peut être pas du trop expliquer je pense que ca "embrouille" plus qu'autre chose lol

Je vais reformuler :
J'ai fais ma 1ère validation.
Si je clique dans la cellule excel en B5 par exemple j'ai une liste qui apparait où je peux selectionner n'importe quelle ligne.

Bah moi je voudrais que ca se fasse par une macro le fait de selectionner une valeur dans la liste.

C'est mieux expliqué là ?

[jfontaine]

Une idée a dapter

Code :

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

Range("F1").Value = Range("Agences").Item(1, 1)

[Fredo P.]

Code :

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

1
2
3
4
5
6
7
8
9
'Lors de la sélection de la cellule attribuée d'une plage à validation
 Target.Validation.Delete
'        Target.Offset(0, -1)=nom de la plage nommée au cas ou la cellule décalée d'une colonne porte le nom de la plage
Target.Validation _
                    .Add Type:=xlValidateList, Formula1:="=" & Target.Offset(0, -1)
                  If Target = "" Then
                    Target = Sheets(Feuille de la plage nommée).Range(Target.Offset(0, -1)).Cells(1, 1)
'   ou             Target = Sheets(Feuille de la plage nommée).Range(Target.Offset(0, -1))(1)
                  End If

[eriiic]

Bonjour,

mais pourquoi tu les supprimes pour les recréer ? En quoi est-ce utile ?
Ta liste est sur une autre feuille ? Sinon récupérer la plage du nom sélectionné colonne précédente et la passer à .formula1:=

Fredo, tu as une balise Code (icône #) pour le mettre en forme et qu'il soit lisible plus facilement.
eric

[sogedic]

Peut-être ?

Code :

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

    FeuilSuivi.Range("B5") = Range("Categories").Cells(1, 1)

ce qui revient a la solution de JFontaine

Code :

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

FeuilSuivi.Range("B5") = Range("Categories").Item(1 1)

[Fredo P.]

Bonjour,

mais pourquoi tu les supprimes pour les recréer ? En quoi est-ce utile ?
Ta liste est sur une autre feuille ? Sinon récupérer la plage du nom sélectionné colonne précédente et la passer à .formula1:=

Fredo, tu as une balise Code (icône #) pour le mettre en forme et qu'il soit lisible plus facilement.
eric

Donc pour répondre ce que j'ai dèjà fait dierectement Via WLM
: l'exemple énoncé est pris sur un de mes classeurs, la cellule placé en offset(0,-1) est elle même une cellule à validation ce qui impose la mise à jour de la cellule sélectionnée à chaque changement de valeur de celle décalée(0,-1). Pour répondre à: Comment afficher la première valeur d'une cellule à validation?

Code :

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

1
2
3
4
5
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target = Range("nom de la plage ")(1)
'si la plage est sur une autre feuille 
Target=Sheets("autreFeuille").range("nomdela plage")(1)
End Sub

[eriiic]

Re,

Je pense qu'il s'est mal exprimé.
Il doit s'agir d'une liste en cascade et il veut récupérer la sélection faite colonne précédente pour passer le nom en Indirect() et non le 1er item.

Quant à moi je ne comprend plus.
Après avoir effectivement eu des erreurs sur le .Add, maintenant ça passe tout seul avec Formula1:="=indirect(B5)"
leptitdave, tous tes noms sont bien définis ?
eric