Problème pour affecter valeur de cellules à un tableau

[Compte Supprimé 979]

Bonjour à tous
J'ai les neurones qui ne sont pas en phase ce matin

J'ai une fonction

Public Function NbPoints(Rng1 As Range, Rng2 As Range)
  Dim Ind As Integer, NbPts As Integer
  Dim Tab1 As Variant, Tab2 As Variant
  ' Initialisation du nombre de points
  NbPts = 0
  Tab1 = Rng1.Value
  Tab2 = Rng2.Value
  ' Pour chaque cellule
  If Tab1(0) = Tab2(0) And Tab1(1) = Tab2(1) Then
      NbPoints = 2
      Exit Function
  End If
End Function

J'appelle ma fonction comme ceci

=nbpoints($D2:$E2;H2:I2)

Dans mes cellules D2:E2, H2:I2 j'ai des scores et lorsque je veux récupérer la valeur dans mon tableau
j'ai un message qui me dis : "l'indice n'appartient pas à la sélection"

Je sais que je suis plutôt mauvais dans le traitement de certains tableaux, mais là quand même !?

Voir fichier joint

Merci d'avance pour vos réponses

A+

 

[camarchepas]

Re : Problème pour affecter valeur de cellules à un tableau

Bonjour Bruno,

Comme les variables sont déclarées en variant ,
il faut écrire comme ceci :

Public Function NbPoints(Rng1 As Range, Rng2 As Range) As Long
  Dim Ind As Integer, NbPts As Integer
  Dim Tab1 As Variant, Tab2 As Variant
  ' Initialisation du nombre de points
  NbPts = 0
  Tab1 = Rng1.Value
  Tab2 = Rng2.Value
  ' Pour chaque cellule
  If Tab1(1, 1) = Tab2(1, 1) And Tab1(1, 2) = Tab2(1, 2) Then
      NbPoints = 2
      Exit Function
  End If
End Function

 

[Compte Supprimé 979]

Re : Problème pour affecter valeur de cellules à un tableau

Salut camarchetrèsbien

Quel idiot, bloqué parce que j'oubliai de mettre les 2 dimensions Xptdr

Merci pour la solution et au plaisir