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