Lier une plage de cellule avec une cellule

Bonjour,

J'aimerais savoir si il est possible de lier une plage de cellule a une seule cellule.

Dans mon cas, j'aimerais créer une liste déroulante contenant divers noms de cuves et que la cuve sélectionnée dans la liste se génère à côté, sous forme d'une colonne de 5/6 cellule,où serait inscrit les informations de la dite cuve.

Ex : " sélectionne de cuve 1 dans la liste ". ==> Cuve 1

100hl

Whisky

Merci...

Bonjour Bobhenne, le forum,

Un exemple....

Cordialement,

Merci de ta réponse

En faite, les cuves existent toutes deja sur mon fichier, reparti sur plusieurs feuilles. Elles sont sous forme de Colonne contenant 6 cellule où se trouvent les informations ( contenu, volume, date ). J'aimerais en faite lier chaque colonne avec une cellule qui porte son nom pour ensuite en faire une liste déroulante. Donc faire ma liste de toutes mes cuves et lier chaque nom de cuve à sa colonne correspondante et ensuite faire de cette liste une liste déroulante sur une autre feuille et que s affiche à côté ma cuve. Quel formule utilisée ?

Re,

Un autre essai....par vba...

En A1 : ta liste de cuves

Tes plages nommées : cuve1, cuve2....cuve5

On copie la liste sélectionnée en B1

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("A1")) Is Nothing Then

   cuve = Range("A1").Value

   Select Case cuve
    Case "cuve1"
     [cuve1].Copy Destination:=Sheets("Feuil1").Range("B1")
     Case "cuve2"
     [cuve2].Copy Destination:=Sheets("Feuil1").Range("B1")
     Case "cuve3"
     [cuve3].Copy Destination:=Sheets("Feuil1").Range("B1")
     Case "cuve4"
     [cuve4].Copy Destination:=Sheets("Feuil1").Range("B1")
     Case "cuve5"
     [cuve5].Copy Destination:=Sheets("Feuil1").Range("B1")
     Case ""
      Exit Sub
   End Select

 End If
End Sub

Bonne soirée

Merci beaucoup pour tes réponses ! Je suis à la montagne jusqu'à lundi, j'essaye sa lundi soir et je te tiens au courant ici!! Merci merci !

Par contre, a quel endroit sur ton code je rajoute que la cuve 1 correspond à tel plage de cellule? Ou alors le code est deja fait pour ?

Je débute Excel et VBA cest du chinois pour moi. Merci mon ami!

Bonjour XOr !

En reprenant vos plages nommées :

En A1 : ta liste de cuves

Tes plages nommées : cuve1, cuve2....cuve5

En B1 on peut aussi mettre en "validation de données" cette formule :

=INDIRECT(A1)

Ceci sans VBA.

@ bientôt

LouReeD

Bonjour Bobhenne, LouReed,

@ LouReed:

En B1 on peut aussi mettre en "validation de données" cette formule :

=INDIRECT(A1)

Effectivement, j'ai bien essayé mais sans succès, d'où le recours à vba.

Ce n'est pas des listes déroulantes en cascades qu'il souhaite, mais une liste déroulante (cuve) et les données qui s'affichent en colonne B.

Peux-tu me donner la soluce sans vba, stp ? Moi, je n'obtiens que des #Valeurs

@ Bobhenne :

a quel endroit sur ton code je rajoute que la cuve 1 correspond à tel plage de cellule?

Le code traite de la cuve 1 à la cuve 5, si rajout de cuve, il faut rajouter des lignes de code (inconvénient du vba) , donc attendons la soluce de LouReed,

Cordialement,

En fait j'ai mal compris...

La solution viendrait peut être d'un DÉCALER jumelait à INDEX et peut être EQUIV...

Je suis sur téléphone donc pas pratique pour pratiquer Excel Pratique !

@ bientôt

LouReeD

Re-Bonjour,

Nouvelle version...toujours en vba mais moins contraignante....

Tu dois créer une liste nommée pour chaque cuve, le code s'occupe du reste.....si la liste demandée n'existe pas, message d'erreur .

Je ne peux pas faire mieux,

Dans cet exemple, les plages sont nommées cuve1; cuve2....cuve5.

En colonne L un tableau listant les cuves et alimentant la liste déroulante (si tu ajoutes un nom de cuve, elle est prise en compte).

Bon dimanche !

Merci beaucoup les copains pour vos solutions ! Je teste ton code demain soir xorzan !! Mais à la lecture sa a l'air d'être exactement ce que je cherchais !! Bon dimanche et à demain soir

Bjr zorsan,

Pourrais tu me décrire les étapes que je dois faire car je n y arrive pas.

J ai ouvert vba et ajouter ton code dans un module. J ai ensuite renommer mes colonnes de cellule déjà existantes, mais comment les lier à ma liste déroulante? Si je créais une liste avec tous les noms de cuve sa ne m'affiche pas mes cuves lorsque je les choisis dans la liste deroulante. J'ai essayer de faire sans liste, en sélectionnant les colonnes de cellule renommée mais sa m'affiche un message d erreur.

Bonsoir Bobhenne, le forum,

Pour nommer tes plages, je t'avais déjà répondu:

Tu dois le faire pour chaque cuve....

Pour ta liste déroulante, attention, les noms doivent s'appeler exactement comme le nom de tes plages (attention aux espaces).

J ai ouvert vba et ajouter ton code dans un module

Attention, il y a 2 codes...

Module de la feuille où se situe la liste déroulante:

Private Sub Worksheet_Change(ByVal Target As Range)

 If Not Application.Intersect(Target, Range("A1")) Is Nothing Then

   Call choixcuve    'appelle la macro choixcuve

 End If
End Sub

Module standart:

Sub choixcuve()

Dim mavariable

    mavariable = Sheets("Feuil1").Range("A1").Value

On Error Resume Next

     Range(mavariable).Cells(1).Copy Sheets("Feuil1").Range("B1")
     Range(mavariable).Cells(2).Copy Sheets("Feuil1").Range("B2")
     Range(mavariable).Cells(3).Copy Sheets("Feuil1").Range("B3")
     Range(mavariable).Cells(4).Copy Sheets("Feuil1").Range("B4")
     Range(mavariable).Cells(5).Copy Sheets("Feuil1").Range("B5")
     Range(mavariable).Cells(6).Copy Sheets("Feuil1").Range("B6")

If Err <> 0 Then
     Sheets("Feuil1").Range("B1:B6") = ""
     MsgBox "La plage n'existe pas"
End If

End Sub

Bon réveillon !

Bonjour,

voilà j'ai enfin posé mon téléphone et je peux répondre plus facilement

Ci joint un fichier sans VBA et qui utilise les plages déjà nommées des cuves ainsi que l'instruction INDEX et INDIRECT :

@ bientôt

LouReeD

Bonsoir LouReed,

Je te remercie sincèrement pour cette solution sans vba,

Bonne soirée,

Amitiés,