VBA - Liste en cascade et déplacement de formule vers la droite

[lamailloche]

Bonjour le Forum,
Liste en cascade : pour être positionner sur le 1er élément de la liste pour le second menu, j'ai dans Visual Basic Editor, insérer dans le Worsheet/Change de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$2" And Target.Count = 1 And Target <> "" Then
Target.Offset(2, 0) = Sheets("Paramètres").Range("GT_Manager")(1).Offset(1, Application.Match(Target, [PLTnew], 0) - 1)
End If
End Sub

Là, c'est ok !

Le souci vient après, quand je veux tirer une formule vers la droite sur plusieurs colonnes (1 colonne, ca fonctionne) par rapport à une cellule active, visual affiche une erreur "Incompatibilité de type" et pointe sur la ligne :
If Target.Address = "$D$2" And Target.Count = 1 And Target <> "" Then

Je ne comprends pas (il faut dire que j'ai pompé sur le site de J Boisgontier et beaucoup de choses m'échappent)
En espérant avoir été claire et que vous trouverez une réponse à mon problème.
Merci

 

[BOISGONTIER]

Re : VBA - Liste en cascade et déplacement de formule vers la droite

Bonjour,

  If Not Intersect(Target, [d2:e2]) Is Nothing And Target.Count = 1 And Target <> "" Then

JB

 

[lamailloche]

Re : VBA - Liste en cascade et déplacement de formule vers la droite

Merci mais j'avoue que je ne comprends pas, alors je joins une copie d'écran de ma page excel.

If Not Intersect(Target, [d2:e2]) Is Nothing And Target.Count = 1 And Target <> "" Then

Pourquoi [d2:e2]) ?

 

[BOISGONTIER]

Re : VBA - Liste en cascade et déplacement de formule vers la droite

C'est un pb de formule.
Comment répondre sans connaître les formules? Envoyer le fichier.

JB

 

[lamailloche]

Re : VBA - Liste en cascade et déplacement de formule vers la droite

Le fichier demandé avec les formules.
Bonne soirée

 

[BOISGONTIER]

Re : VBA - Liste en cascade et déplacement de formule vers la droite

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$D$2" And Target.Count = 1 Then
    If Target <> "" Then
       Target.Offset(2, 0) = Sheets("Paramètres").Range("GT_Manager")(1).Offset(1, Application.Match(Target, [PLTnew], 0) - 1)
    End If
  End If
End Sub

JB

 

[lamailloche]

Re : VBA - Liste en cascade et déplacement de formule vers la droite

Merci, c'est top.