Cellules en double

Résolu
Bonjour,
J'ai des lignes disposées comme suit 9 cellules qui commencent par B2 à J2 puis de R2 à Z2 etc... avec toujours le même espace de 7 cellules.
Dans ces cellules j'ai 5 chiffres et 4 cellules vide mis aléatoirement et serait-il possible de retrouver si il y a les même cellules disposées de la même manière ailleurs?.
Si c'est possible soit sous formes de formules ou en VBA.
Merci a vous

5 réponses

  • Votes
  • Date
  • Date décroissante
  1. Contributeur
    Bonjour

    Combien as tu de blocs ? B-J... R-Z.... ?
    et combien de lignes (environ) "beaucoup" est flou en VBA
    Michel
    1. Bonjour
      En commençant par B2 j'ai 600 lignes de A2 a A600 avec un espace tous les 3 lignes jusqu'à la colonne BF2.
      Cdlt
  2. Re mic6259, bonjour michel_m
    En VBA, on recopie les formules et on remplace par les valeurs
    Sub Restitution()
        Application.ScreenUpdating = False
        Range("AB2:AB" & [AB100000].End(xlUp).Row).FormulaR1C1 = "=IF(IF(RC[-26]<>"""",1,0)+IF(RC[-25]<>"""",2,0)+IF(RC[-24]<>"""",4,0)+IF(RC[-23]<>"""",8,0)+IF(RC[-22]<>"""",16,0)+IF(RC[-21]<>"""",32,0)+IF(RC[-20]<>"""",64,0)+IF(RC[-19]<>"""",128,0)+IF(RC[-18]<>"""",256,0)=IF(RC[-10]<>"""",1,0)+IF(RC[-9]<>"""",2,0)+IF(RC[-8]<>"""",4,0)+IF(RC[-7]<>"""",8,0)+IF(RC[-6]<>"""",16,0)+IF(RC[-5]<>"""",32,0)+IF(RC[-4]<>"""",64,0)+IF(RC[-3]<>"""",128,0)+IF(RC[-2]<>"""",256,0),""Ok"",""Non ok"")"
        Range("AC2:AC" & [AB100000].End(xlUp).Row).FormulaR1C1 = "=IF(AND(RC[-27]=RC[-11],RC[-26]=RC[-10],RC[-25]=RC[-9],RC[-24]=RC[-8],RC[-23]=RC[-7],RC[-22]=RC[-6],RC[-21]=RC[-5],RC[-20]=RC[-4],RC[-19]=RC[-3]),""Ok"",""Non ok"")"
        Range("AB2:AC" & [AC100000].End(xlUp).Row).Value = Range("AB2:AC" & [AC100000].End(xlUp).Row).Value
    End Sub

    Cdlt
    1. Contributeur
      Tu as 3 blocs de données: il faut 3 blocs identiques ou compraison 1-2, 2-3,1-3 ?

      Dispoition identique vide-non vide
      ou
      valeurs et dispositions identiques ?

      merci de joindre le classeur afin de m'éviter à passer pas mal de temps à refaire le classeur

      Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/
      et coller le raccourci proposé (clic droit) dans le message de réponse
      Dans l'attente


      Michel
      1. Bonsoir
        J'envoie demain la pièce jointe car ce soir je suis pris
        Merci encore bonne soirée
      2. Bonjour
        Pour faire simple j'ai diminuer le fichier.
        Le but c'est de trouver si il y a des lignes de 9 cellules identiques avec les mêmes endroits des cellules vides.
        Par contre serait-il possible de m'expliquer comment ça marche car j'aurais d'autres colonnes a mettre pour avoir 1800 grilles
        Merci beaucoup
        https://www.cjoint.com/c/EInidkdfLMq
      3. Contributeur
        @mic6259Re,

        dans la demande initiale la séparation est de 7 colonnes et non 1 dans la pièce jointe et on s'arr^tait à 3 blocs(colonne BF2) et non 4
        ?????
        pas très sérieux

        J'ai demandé
        Tu as 3 blocs de données: il faut 3 blocs identiques ou compraison 1-2, 2-3,1-3 ?

        aucune réponse !

        J'ai également demandé
        Disposition identique vide-non vide
        ou
        valeurs et dispositions identiques ?

        aucune réponse !

        il est ainsi inutile que je perde mon temps face à un tel dilletantisme
      4. @michel_mRe,
        Il faut prendre la seconde demande avec des grilles de 9 cellules de 3 lignes avec un espace entre eux,et si c'est possible de savoir si il y a dans toutes ces grilles une ligne de 9 cellules identique ou pas.
        C'est vrai qu'il ne faut pas perdre son temps si c'est pas possible.
      5. Contributeur
        @mic6259C'est pas vrai !!!

        Disposition identique vide-non vide
        ou
        valeurs et dispositions identiques ?


        Tu comprends rien ou tu tu te F..... de ma gueu....?
        tu aurais pu te donner la peine de dire la quelle des 2 est la bonne! le code est complètement différent suivant le cas

        ta manière d'agir: démerdez vous avec ca

        dernière chose:
        c'est facile niveau débutant: alors, au boulot !

        Adieu