Vba

Bonjour,

J'aimerais creer une fonction excel via VBA qui compare 2 plages de cellules degale dimensions et qui retourne le nombre de cellules dont le contenu est identique.(dans la meme position)

4 réponses

  • Votes
  • Date
  • Date décroissante
  1. Contributeur
    Bonjour à tous,
    excusez l'incruste
    Pourquoi du VBA ?

    =SOMME(SI(EXACT(A1:A20;B1:B20);1))
    Formule matricielle à valider par « ctrl+maj+entrée » (et non directement par « entrée »), le curseur clignotant dans la barre de formule. La formule est alors encadrée automatiquement par des accolades :  { formule }   

     Michel
    1. J'aimerais pouvoir ecrire un programme sur vba qui me permette de le faire automatiquement.mais je ne sais pas quoi inclure dans mon programme
      1. Bonjour,

        Voici une solution avec fonction personnalisée :
        Function ComparaisonPlages(Plage1 As Range, Plage2 As Range)
        Dim i As Integer, Cptr As Integer
        On Error Resume Next
        If Plage1.Count <> Plage2.Count Or Plage1.Rows.Count <> Plage2.Rows.Count Or Plage1.Columns.Count <> Plage2.Columns.Count Then
        ComparaisonPlages = "Dimensions différentes"
        Else
        For i = 1 To Plage1.Count
        If Plage1(i) = Plage2(i) Then Cptr = Cptr + 1
        Next i
        ComparaisonPlages = Cptr
        End If
        End Function

        A+