Comment creer une regle sous exel

Résolu
julien -  
Bonjour,

j aurai besoin de réaliser une suite sous Exel mais je ne sais pas comment faire

du coup je me tourne vers vos connaissances afin de ne pas me pendre avant la fin du week end

j aimerai créer une suite de ce format
AG1-0-1
AG1-0-2
AG1-0-3
AG1-2-1
AG1-2-2
AG1-2-3
AG1-3-1
AG1-3-2
AG1-3-3
AG2-0-1
et ainsi des suite
j ai environ 2000 lignes a rentrer ainsi afin de créer un adressage

6 réponses

  2.  gbinforme Contributeur
    Bonjour,

    Ta question n'est pas assez précise :
    - le 3ième paramètre prend les valeurs 1 à 3 ?
    - le 2ième paramètre prend les valeurs 0, 2, 3 ?
    - le premier paramètre prend les valeurs 1, 2 et après ?
    - les 2 lettres sont toujours "AG" ?
    0
    1. Raymond PENTIER
      ="AG" & ENT((LIGNE()-1)/9+1) & "-" & ENT((LIGNE()-1)/3+1) & "-" & ARRONDI(MOD(LIGNE();3,1);0)
      En effet je pense que tes premiers codes sont faux :
      En toute logique, ça devrait être 
      AG1-1-1 
      AG1-1-2 
      AG1-1-3 
      AG1-2-1 
      AG1-2-2

      C'est bien, la retraite ! Surtout aux Antilles ... :-) 
      Raymond (INSA, AFPA, CF/R)
      0
      1. JvDo
        Bonsoir à tous,

        Si je considère que tu as répondu oui aux questions de gbinforme, tu peux essayer de mettre en A1 la formule suivante :
        ="AG"&ENT((LIGNE()-1)/9+1)&"-"&MOD(LIGNE()-1;3)+(MOD(LIGNE()-1;3)>0)&"-"&1+MOD(LIGNE()-1;3)

        Cordialement

        PS : tu recopies vers le bas sur 2 000 lignes
        0
        2. Archer
          bonjour
          a voir si une macro te va 
          Sub Test()
Nlig = 1
C1 = 0
C = 1
   For T = 1 To 100
      C2 = 1
      For TT = 1 To 3
         C2 = 1
         For L = 1 To 3
            Nlig = Nlig + 1
            Range("A" & Nlig).Value = "AG" & Format(C, "000") & "-" & Format(C1, "000") & " - " & C2
             C2 = C2 + 1
         Next
         C1 = C1 + 1
        Next
      C = C + 1
   Next
End Sub

          A+
          Maurice
          0
          1. Julien
            Merci à tous pour vos conseils!!!
            Week end sauver grâce à vous tous
            Encore merci !!!!!
            0