Discussion :

[Invité]

Bonjour,

Je viens vers vous parce que j'ai un problème mais qui à l'air très facile mais j'y arrive pas.
Admettons que dans une feuille "source" je mette Pays en B2 et du coup le nom de tous les pays en verticale, et Capitale en C2 et le nom de chaque capitale. Je veux donc en feuille 1, que la case
A3 me fasse une liste déroulante de tous les pays(du coup ok avec validation des donnés en definissant un nom a la plage de cellule)) et du coup qu'en B3 la capitale correspondante. (j'ai essayé indirect A3 mais ca ne amrceh pas (J'aimerais aussi la possibilité d'inserer moi même la capitale si le pays n'est pas mentionné)

[Menhir]

du coup qu'en B3 la capitale correspondante. (j'ai essayé indirect A3 mais ca ne amrceh pas

Utilise RECHERCHEV()
https://support.office.com/fr-FR/art...8-93a18ad188a1

J'aimerais aussi la possibilité d'inserer moi même la capitale si le pays n'est pas mentionné)

Même si la cellule contient une fonction RECHERCHEV(), rien ne t'empêche de saisir autre chose manuellement.

[Philippe Tulliez]

Bonjour,

j'ai essayé indirect A3 mais ca ne amrceh pas (J'aimerais aussi la possibilité d'inserer moi même la capitale si le pays n'est pas mentionné)

Je suppose que tu as lu quelques part que l'on pouvait utiliser la fonction INDIRECT pour obtenir ainsi la référence à une plage de cellules pour la validation de données.

Alors oui, c'est possible mais pour cela il faut au préalable nommer les plages.
Ainsi si en A2, tu as une liste déroulante des continents et qu'après avoir sélectionné Europe, tu veuilles obtenir la liste déroulante de tous les pays d'Europe dans une liste en B2.
Voici la méthode

1. Créer une colonne (convertie en tableau structuré) par continent contenant la liste de tous les pays de celui-ci (par exemple colonne A, Europe, colonne C Afrique, colonne E Asie, etc.
2. Nommer la liste des pays par le nom du continent
3. Insérer en cellule B2 une validation de données-Liste et dans la zone de texte écrire

   Code :

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

   INDIRECT(A2)

[Invité]

Merci beaucoup a vous !
Je l'ai fait cela marche mais quand je l’intègre à une macro il me dit qu'il y'a une erreur dans l'application ou dans l'objet :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Bouton135_Cliquer()
Range("A4").Select
 Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
 With Range("A4:F4")
        .Borders(xlEdgeTop).LineStyle = xlContinuous
        .Borders(xlEdgeLeft).LineStyle = xlContinuous
        .Borders(xlEdgeRight).LineStyle = xlContinuous
        .Borders(xlEdgeBottom).LineStyle = xlContinuous
        .Borders(xlInsideHorizontal).LineStyle = xlContinuous
        .Borders(xlInsideVertical).LineStyle = xlContinuous
    End With
    Range("B4").Select
     ActiveCell.FormulaR1C1 = "=SI(ESTNA(RECHERCHEV(A4;Feuil3!B2:C47;2;FAUX));"";RECHERCHEV(A4;Feuil3!B2:C47;2;FAUX))"

L'erreur est du coup dans la dernière ligne

[Menhir]

Code :

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

     ActiveCell.FormulaR1C1 = "=SI(ESTNA(RECHERCHEV(A4;Feuil3!B2:C47;2;FAUX));"";RECHERCHEV(A4;Feuil3!B2:C47;2;FAUX))"

Il y a deux erreurs dans cette ligne.
D'abord, tu indiques que tu vas donner les références sous forme "R1C1" (c'est à dire en ligne et colonne) mais tu les donnes sous forme "A1".
Ensuite, tu mets utilises des fonctions francophones alors que VBA, par défaut, utilise leur version anglophone.

Il faudrait donc utiliser FormulaLocal.
https://msdn.microsoft.com/fr-fr/lib...1(v=office.15)

Petit détail : au lieux d'utiliser un SI() avec un ESTNA(), tu devrais utiliser une fonction SIERREUR().
https://support.office.com/fr-FR/art...6-63f3e417f611

[Invité]

Merci beaucoup Menhir,
franchement le SIERREUR me simplifie la vie, mais j'ai mis
cette ligne du coup:

Code :

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

ActiveCell.FormulaLocal = "=SIERREUR(RECHERCHEV(A3;Feuil3!B2:C47;2;FAUX);"")"

Mais j'ai toujours la même erreur en fait