XL 2010 Erreur 91

[kadelmalin]

bonjour aux participants dans ce forum,
j'ai créé une petite macro mais il semble y avoir une erreur quelque part; il m'affiche erreur 91. Voulez-vous m'aider s'il vous plait. Je joins un classeur teste. Merci.

 

[vgendron]

Bonjour
essaie plutot ce code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sld As Currency
If Not Intersect(Target, Range("B10:B21")) Is Nothing Then 'si le changement intervient dans la plage B10:B21
    If Target = 300 Then 'si la valeur saisie est 300
        Target.Offset(0, 6) = ActiveSheet.Range("C5").Value 'on met la valeur de C5 à droite de la cellule modifiée - 6 colonnes à droite
    End If
End If

End Sub

 

[kadelmalin]

Merci de votre aide, je vais l'essayer.

 

[kadelmalin]

Je l'ai adapté à mon classeur mais il y a un Hic. voir ces 2 captures

 

[vgendron]

Essai avec Target.value=399

 

[Compte Supprimé 979]

Bonsoir kadelmalin (pas tant que ça 😜 )

Essayez avec

If Target.Value = 399 Then

A+

Edit : oups, salut vgendron, même idée

 

[Phil69970]

Bonjour à tous

Et pourquoi pas une formule

Merci de ton retour

@Phil69970

 

[kadelmalin]

Bonjour,
Le ".value" ne donne rien du tout et la solution de la formule est à écarter , la cellule réceptrice est un champ de saisie. La macro que vous m'avez refilée fonctionne bien sauf qu'une autre macro dans un module est en interaction avec cette feuille, quand je l'actionne elle fait réagir cette dernière.

 

[Compte Supprimé 979]

Bonjour KadelMalin,

Dans le code, précédemment donné par vgendron, une chose importante a été oubliée
il faut arrêter les évènements, sinon ça risque de tourner en boucle et plantage

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Sld As Currency
  If Not Intersect(Target, Range("B10:B21")) Is Nothing Then 'si le changement intervient dans la plage B10:B21
    If Target = 300 Then                         'si la valeur saisie est 300
      Application.EnableEvents = False
      Target.Offset(0, 6) = ActiveSheet.Range("C5").Value 'on met la valeur de C5 à droite de la cellule modifiée - 6 colonnes à droite
      Application.EnableEvents = True
    End If
  End If
End Sub

Sinon, il faut dans ce cas utiliser

 Application.EnableEvents = False

exécuter le code, puis

 Application.EnableEvents = True

A+

 

[kadelmalin]

Bonjour KadelMalin,

Dans le code, précédemment donné par vgendron, une chose importante a été oubliée
il faut arrêter les évènements, sinon ça risque de tourner en boucle et plantage

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Sld As Currency
  If Not Intersect(Target, Range("B10:B21")) Is Nothing Then 'si le changement intervient dans la plage B10:B21
    If Target = 300 Then                         'si la valeur saisie est 300
      Application.EnableEvents = False
      Target.Offset(0, 6) = ActiveSheet.Range("C5").Value 'on met la valeur de C5 à droite de la cellule modifiée - 6 colonnes à droite
      Application.EnableEvents = True
    End If
  End If
End Sub

Sinon, il faut dans ce cas utiliser

 Application.EnableEvents = False

exécuter le code, puis

 Application.EnableEvents = True

A+

Bonjour
C'est réglé. J'ai neutralisé dans le module incriminé la commande : Range("C13:C26").ClearContents
s'il y a une possibilité de mettre à zéro cette plage sans recourir à une boucle ce sera parfait . Merci de votre aide.