Tableau décalé

[MOUFIBEL]

Bonjour david;

si c'est possible de m'aider, et bien je veux le tableau de la feuille de classeur Liste apparait dans la colonne B et ligne 10 c.a
.d il commence à partir de cellule B10 au lieu A1.

Merci d'avance pour ton précieux aide

 

[CISCO]

Re : Tableau décalé

Bonsoir

Si tu ne nous donnes pas davantage d'information, nous ne pourrons pas beaucoup t'aider...

@ plus

 

[MOUFIBEL]

Re : Tableau décalé

Bonsoir cisco;

voilà c'est en vba;téléchargez le fichier excel donc aprés l"execution je ne veut pas le tableau qui est affiché dans la feuille liste du fichier commence par A1 je veux qu'il soit a partir de B10 ;comment modifier le script?

Merci pour votre aide.

 

[david84]

Re : Tableau décalé

Bonsoir tout le monde,
ci-joint ton code modifié :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim mondico, c, temp
  If Target.Column > 1 And Target.Column <= 6 And Target.Row > 9 And Target.Count = 1 Then
    Set mondico = CreateObject("Scripting.Dictionary")
    Select Case Target.Column
    
     Case 2
      Target.Offset(, 1) = ""
      Target.Offset(, 2) = ""
      Target.Offset(, 3) = ""
      Target.Offset(, 4) = ""
      For Each c In Application.Index([MaBD], , 1)
        If Not mondico.Exists(c.Value) Then mondico.Add c.Value, c.Value
      Next c
      
     Case 3
      Target.Offset(, 1) = ""
      Target.Offset(, 2) = ""
      Target.Offset(, 3) = ""
      For Each c In Application.Index([MaBD], , 2)
        If Not mondico.Exists(c.Value) And c.Offset(0, -1) = Target.Offset(0, -1) Then
              mondico.Add c.Value, c.Value
        End If
      Next c
     
     Case 4
      Target.Offset(, 1) = ""
      Target.Offset(, 2) = ""
       For Each c In Application.Index([MaBD], , 3)
         If Not mondico.Exists(c.Value) And c.Offset(0, -1) = Target.Offset(0, -1) And _
            c.Offset(0, -2) = Target.Offset(0, -2) Then
            mondico.Add c.Value, c.Value
         End If
       Next c
       
     Case 5
      Target.Offset(, 1) = ""
       For Each c In Application.Index([MaBD], , 4)
         If Not mondico.Exists(c.Value) And c.Offset(0, -1) = Target.Offset(0, -1) And _
            c.Offset(0, -2) = Target.Offset(0, -2) And c.Offset(0, -3) = Target.Offset(0, -3) Then
            mondico.Add c.Value, c.Value
         End If
       Next c
       
     Case 6
       For Each c In Application.Index([MaBD], , 5)
         If Not mondico.Exists(c.Value) And _
           c.Offset(0, -1) = Target.Offset(0, -1) And _
            c.Offset(0, -2) = Target.Offset(0, -2) And c.Offset(0, -3) = Target.Offset(0, -3) And _
            c.Offset(0, -4) = Target.Offset(0, -4) Then
              mondico.Add c.Value, c.Value
         End If
       Next c
       
    End Select
    
    If mondico.Count > 0 Then
        If mondico.Count = 1 Then
            Target = mondico.keys
        Else
            For Each c In mondico.items: temp = temp & c & ",": Next c
                Target.Validation.Delete
                Target.Validation.Add xlValidateList, Formula1:=Left(temp, Len(temp) - 1)
            End If
        End If
    End If
End Sub

Je te signale tout de même que le fil d'où est issu ce fichier propose maintenant des fichiers plus aboutis et qu'il est d'usage de suivre jusqu'au bout un fil que tu as initié.

https://www.excel-downloads.com/threads/liste-droulante-en-cascades-5-niveaux.180466/

Essaie donc de comprendre les modifications apportées en comparant ce code avec le tien et, au besoin de reporter ces modifications sur le fichier final que je t'avais proposé ou d'utiliser la belle proposition de Dranreb.
A+

 

[MOUFIBEL]

Re : Tableau décalé

Bonsoir David84;

je vous adresse une nouvelle fois mes remerciements, franchement vous m'avez aidée je commence a me devellopé sur excel petit a petit grace a vous.

A+