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
A voir également:

6 réponses

gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
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
Raymond PENTIER Messages postés 58989 Date d'inscription   Statut Contributeur Dernière intervention   17 353
 
="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
JvDo Messages postés 1978 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

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

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