Il est facile de générer une série de nombres, disons à compter de 1 :
Insérer 1 dans une cellule et avec CTRL enfoncé et la poignée de recopie, on
obtient une série incrémentée de la valeur 1.
Supposons que je veux faire de même mais à compter de la lettre "a". Ça ne
fonctionne pas !
Quelqu'un a une idée pour obtenir une série de lettres consécutives, disons
: a....aa,ab...bb... ?
Il est vrai que je pourrais me les "taper" dans la "Listes personnalisées"
!!! (dernière solution)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-François Aubert
Salut Mario,
une piste à développer / adapter.
Sub yy() For i = 1 To 4 For i1 = 1 To 26 i2 = -1 + i i3 = -2 + i i4 = -3 + i If i2 < 1 Then i2 = -96 If i3 < 1 Then i3 = -96 If i4 < 1 Then i4 = -96 li = li + 1 Cells(li, 1) = Chr(i1 + 96) & Chr(i2 + 96) & Chr(i3 + 96) & Chr(i4 + 96) Cells(li, 1) = StrReverse(Cells(li, 1)) Next Next End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Mario Ménard" a écrit dans le message de news:1fuWb.6264$
Bonjour à tous,
Excel 2002.
Il est facile de générer une série de nombres, disons à compter de 1 : Insérer 1 dans une cellule et avec CTRL enfoncé et la poignée de recopie, on obtient une série incrémentée de la valeur 1.
Supposons que je veux faire de même mais à compter de la lettre "a". Ça ne fonctionne pas !
Quelqu'un a une idée pour obtenir une série de lettres consécutives, disons : a....aa,ab...bb... ?
Il est vrai que je pourrais me les "taper" dans la "Listes personnalisées" !!! (dernière solution)
Merci par avance,
Mario
Salut Mario,
une piste à développer / adapter.
Sub yy()
For i = 1 To 4
For i1 = 1 To 26
i2 = -1 + i
i3 = -2 + i
i4 = -3 + i
If i2 < 1 Then i2 = -96
If i3 < 1 Then i3 = -96
If i4 < 1 Then i4 = -96
li = li + 1
Cells(li, 1) = Chr(i1 + 96) & Chr(i2 + 96) & Chr(i3 + 96) & Chr(i4 + 96)
Cells(li, 1) = StrReverse(Cells(li, 1))
Next
Next
End Sub
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Mario Ménard" <mario.menard@mrn.gouv.qc.ca> a écrit dans le message de
news:1fuWb.6264$lK.473849@news20.bellglobal.com...
Bonjour à tous,
Excel 2002.
Il est facile de générer une série de nombres, disons à compter de 1 :
Insérer 1 dans une cellule et avec CTRL enfoncé et la poignée de recopie, on
obtient une série incrémentée de la valeur 1.
Supposons que je veux faire de même mais à compter de la lettre "a". Ça ne
fonctionne pas !
Quelqu'un a une idée pour obtenir une série de lettres consécutives, disons
: a....aa,ab...bb... ?
Il est vrai que je pourrais me les "taper" dans la "Listes personnalisées"
!!! (dernière solution)
Sub yy() For i = 1 To 4 For i1 = 1 To 26 i2 = -1 + i i3 = -2 + i i4 = -3 + i If i2 < 1 Then i2 = -96 If i3 < 1 Then i3 = -96 If i4 < 1 Then i4 = -96 li = li + 1 Cells(li, 1) = Chr(i1 + 96) & Chr(i2 + 96) & Chr(i3 + 96) & Chr(i4 + 96) Cells(li, 1) = StrReverse(Cells(li, 1)) Next Next End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Mario Ménard" a écrit dans le message de news:1fuWb.6264$
Bonjour à tous,
Excel 2002.
Il est facile de générer une série de nombres, disons à compter de 1 : Insérer 1 dans une cellule et avec CTRL enfoncé et la poignée de recopie, on obtient une série incrémentée de la valeur 1.
Supposons que je veux faire de même mais à compter de la lettre "a". Ça ne fonctionne pas !
Quelqu'un a une idée pour obtenir une série de lettres consécutives, disons : a....aa,ab...bb... ?
Il est vrai que je pourrais me les "taper" dans la "Listes personnalisées" !!! (dernière solution)
Merci par avance,
Mario
ChrisV
Bonjour Mario,
La liste est-elle comprise dans une limite ?
ChrisV
"Mario Ménard" a écrit dans le message de news: 1fuWb.6264$
Bonjour à tous,
Excel 2002.
Il est facile de générer une série de nombres, disons à compter de 1 : Insérer 1 dans une cellule et avec CTRL enfoncé et la poignée de recopie, on
obtient une série incrémentée de la valeur 1.
Supposons que je veux faire de même mais à compter de la lettre "a". Ça ne fonctionne pas !
Quelqu'un a une idée pour obtenir une série de lettres consécutives, disons
: a....aa,ab...bb... ?
Il est vrai que je pourrais me les "taper" dans la "Listes personnalisées" !!! (dernière solution)
Merci par avance,
Mario
Bonjour Mario,
La liste est-elle comprise dans une limite ?
ChrisV
"Mario Ménard" <mario.menard@mrn.gouv.qc.ca> a écrit dans le message de
news: 1fuWb.6264$lK.473849@news20.bellglobal.com...
Bonjour à tous,
Excel 2002.
Il est facile de générer une série de nombres, disons à compter de 1 :
Insérer 1 dans une cellule et avec CTRL enfoncé et la poignée de recopie,
on
obtient une série incrémentée de la valeur 1.
Supposons que je veux faire de même mais à compter de la lettre "a". Ça ne
fonctionne pas !
Quelqu'un a une idée pour obtenir une série de lettres consécutives,
disons
: a....aa,ab...bb... ?
Il est vrai que je pourrais me les "taper" dans la "Listes personnalisées"
!!! (dernière solution)
"Mario Ménard" a écrit dans le message de news: 1fuWb.6264$
Bonjour à tous,
Excel 2002.
Il est facile de générer une série de nombres, disons à compter de 1 : Insérer 1 dans une cellule et avec CTRL enfoncé et la poignée de recopie, on
obtient une série incrémentée de la valeur 1.
Supposons que je veux faire de même mais à compter de la lettre "a". Ça ne fonctionne pas !
Quelqu'un a une idée pour obtenir une série de lettres consécutives, disons
: a....aa,ab...bb... ?
Il est vrai que je pourrais me les "taper" dans la "Listes personnalisées" !!! (dernière solution)
Merci par avance,
Mario
Modeste
;-))) adapté d'une ficelle toute récente ;O)))) en a1: ="Letexte" &SUBSTITUE(ADRESSE(1;LIGNE();4);"1";"") puis recopier vers le bas :-( 256 fois maxi
oui Chris on pourrait aussi tester si la ligne est supérieur à 256 et agir en conséquence.... mais là c'est toi le spécialiste de la réduction de formule je te réserve un verre de g'nief..... ;O))))
-----Message d'origine----- Bonjour Mario,
La liste est-elle comprise dans une limite ?
ChrisV
"Mario Ménard" a écrit dans le message de
news: 1fuWb.6264$
Bonjour à tous,
Excel 2002.
Il est facile de générer une série de nombres, disons à compter de 1 :
Insérer 1 dans une cellule et avec CTRL enfoncé et la poignée de recopie,
on
obtient une série incrémentée de la valeur 1.
Supposons que je veux faire de même mais à compter de la lettre "a". Ça ne
fonctionne pas !
Quelqu'un a une idée pour obtenir une série de lettres consécutives,
disons
: a....aa,ab...bb... ?
Il est vrai que je pourrais me les "taper" dans la "Listes personnalisées"
!!! (dernière solution)
Merci par avance,
Mario
.
;-)))
adapté d'une ficelle toute récente ;O))))
en a1:
="Letexte" &SUBSTITUE(ADRESSE(1;LIGNE();4);"1";"")
puis recopier vers le bas
:-( 256 fois maxi
oui Chris on pourrait aussi tester si la ligne est
supérieur à 256 et agir en conséquence....
mais là c'est toi le spécialiste de la réduction de formule
je te réserve un verre de g'nief.....
;O))))
-----Message d'origine-----
Bonjour Mario,
La liste est-elle comprise dans une limite ?
ChrisV
"Mario Ménard" <mario.menard@mrn.gouv.qc.ca> a écrit dans
le message de
;-))) adapté d'une ficelle toute récente ;O)))) en a1: ="Letexte" &SUBSTITUE(ADRESSE(1;LIGNE();4);"1";"") puis recopier vers le bas :-( 256 fois maxi
oui Chris on pourrait aussi tester si la ligne est supérieur à 256 et agir en conséquence.... mais là c'est toi le spécialiste de la réduction de formule je te réserve un verre de g'nief..... ;O))))
-----Message d'origine----- Bonjour Mario,
La liste est-elle comprise dans une limite ?
ChrisV
"Mario Ménard" a écrit dans le message de
news: 1fuWb.6264$
Bonjour à tous,
Excel 2002.
Il est facile de générer une série de nombres, disons à compter de 1 :
Insérer 1 dans une cellule et avec CTRL enfoncé et la poignée de recopie,
on
obtient une série incrémentée de la valeur 1.
Supposons que je veux faire de même mais à compter de la lettre "a". Ça ne
fonctionne pas !
Quelqu'un a une idée pour obtenir une série de lettres consécutives,
disons
: a....aa,ab...bb... ?
Il est vrai que je pourrais me les "taper" dans la "Listes personnalisées"
