Comment creer une regle sous exel

Résolu
julien -  
 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 Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    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
  3. Raymond PENTIER Messages postés 58216 Date d'inscription   Statut Contributeur Dernière intervention   17 482
     
    ="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
  4. JvDo Messages postés 1924 Date d'inscription   Statut Membre Dernière intervention   859
     
    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

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. 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
  7. Julien
     
    Merci à tous pour vos conseils!!!
    Week end sauver grâce à vous tous
    Encore merci !!!!!
    0