A1 | The steak sauce cell |
IM21 | The legal drinking age cell |
K9 | The dog cell |
AK47 | The assault weapon cell |
IV2 | The second intravenous solution cell |
B9 | The malignant cell |
HI5 | The alternate handshake cell |
AH:HA | The discovery range |
F16 | The fighter jet cell |
AM:FM | The radio range |
ET2 | The Brute' cell |
AW42 | The root beer for two cell |
BU:BU | The erroneous range |
BY:BY | The farewell range |
IC2 | The double-vision cell |
IQ100 | The average intelligence cell |
HO:HO | The Santa Claus range |
GO2 | The destination cell |
FU2 | The same to you cell |
EX2 | The second former spouse cell |
CU8 | The oil-rich country cell |
BU10 | The shirt fastener cell |
BC49:BD1 | The '96 Presidential Election results range |
AG1:GB1 | The '00 disputed Florida vote range |
T42 | The old soft-shoe cell |
U2 | The Irish rock group cell |
BI123 | The Lotus marketing slogan cell |
C4 | The explosive cell |
V8 | The vegetable juice cell |
[NOPARSE]R2 | The android range |
I1:U1 | The tied game cell |
AP:ES | The Simian range |
H8:U2 | The ex-wife range |
IN2:CA9 | The dog-lover range |
[NOPARSE]AC | The electric range |
D84:U2 | The double date range |
I812 | The Monica Lewinsky meets Linda Lovelace cell |
I12:CU2 | The "when can we meet" cell |
Sub LISTE_ENTETES_COLONNES()
Dim i&, t$, tbl
Range("A1:IV1").FormulaR1C1 = "=ADDRESS(1,COLUMN(),1,3)"
For i = 1 To 255
t = t & Replace(Cells(1, i).Text, "1", "/")
Next i
t = Replace(t, "$", ""): tbl = Split(t, "/")
[A1].Resize(UBound(tbl) + 1) = Application.Transpose(tbl)
Range("B1:IV1").Clear
End Sub
Euh ! pas tout à fait.Sinon tu parlais de faire un cadavre exquis en SMS, c'est cela?
Je permets, mais je crains que tu aies le même succès que moi.Si tu le permets , je vais ouvrir au autre fil sur ce sujet (pour ne pas alourdir celui-ci)
A ce sujet, voici un petit code pour récupérer les entêtes de colonnes
Sub LISTE_ENTETES_COLONNES()
Dim i&, t$, tbl, col&
col = Columns.Count
Range(Cells(1, 1), Cells(1, col)).FormulaR1C1 = "=ADDRESS(1,COLUMN(),1,3)"
For i = 1 To col
t = t & Replace(Cells(1, i).Text, "1", "/")
Next i
t = Replace(t, "$", ""): tbl = Split(t, "/")
[A1].Resize(UBound(tbl) + 1) = Application.Transpose(tbl)
Range(Cells(1, 2), Cells(1, col)).Clear
End Sub
Ne change pas de main! Il en restera toujours quelque chose de la sténographie....Voir ici:Je n'ai pas eu le succès escompté. Je me livre donc à un plaisir solitaire !
Non mais, Regarde la pièce jointe 856890 t'as vu le tésultat que cela donnera ?Re le Cochon,
...Ne change pas de main! Il en restera toujours quelque chose ...