Vba

Jen -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
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

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
  2. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 784
     
    Bonjour,

    Et alors quel est ton problème ?
    0
  3. Jen
     
    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
    0
  4. Gyrus Messages postés 3360 Statut Membre 526
     
    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+
    0