Comment creer une regle sous exel

Résolu/Fermé
julien - 20 mai 2017 à 21:49
 Julien - 21 mai 2017 à 21:23
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 lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 708
20 mai 2017 à 22:40
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 58723 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 17 novembre 2024 17 237
Modifié le 21 mai 2017 à 17:47
="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 mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 858
Modifié le 21 mai 2017 à 20:10
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
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
Merci à tous pour vos conseils!!!
Week end sauver grâce à vous tous
Encore merci !!!!!
0