XL 2013 [Résolu] Lister les numéros des colonnes

[Lone-wolf]

Bonjour à tous 🙂,

Si dans Options > Formules on coche la case L1C1, on voit bien les numéros des colonnes de 1 à xxxxx.

Dans le fichier joint, j'arrive à récupérer le numéro des colonnes de 1 à 26 donc de A à Z, mais pas de AA à AZ.
Auriez-vous une idée?

 

[CISCO]

Bonjour

Tu peux faire avec =COLONNE(INDIRECT(LC(-1)&"1"))

@ plus

 

[Lone-wolf]

Bonjour CISCO 🙂

Désolé d'avoir commencé ce poste cars je viens de trouver la solution (c'est depuis hier que je me casse la tête avec ça) 😳

Option Explicit
Dim lig As Long, nom As String, num As Long, i As Long

Sub Lister_Lettre_Colonne_et_Numero()
    With Sheets(1)
        For lig = 2 To 105  '= CZ - 104
            i = i + 1
            nom = Mid(.Cells(1, lig - 1).Columns.Address, 2, 1)
            num = CInt(.Cells(i, lig - 1).Column)
            .Cells(lig, 1) = nom
            .Cells(lig, 2) = num
            If lig > 27 Then
                nom = Mid(.Cells(1, lig - 1).Columns.Address, 2, 2)
                .Cells(lig, 1) = nom
            End If
        Next lig
    End With
End Sub

Il suffisait de rajouter i = i + 1.

 

[gosselien]

Bonjour,

ceci devrait aller 🙂

Sub Lister_Lettre_Colonne_et_Numero()
Dim Cols&
Dim Sp
Cols = ActiveSheet.Columns.Count
With Sheets(1)
   For lig = 2 To Cols
      nom = .Cells(1, lig - 1).Columns.Address(1, 1)
      num = CInt(.Range(nom & "1").Column)
       .Cells(lig, 2) = num
      Sp = Split(nom, "$")
      .Cells(lig, 1) = Sp(1) & "1"
   Next lig
End With
End Sub

P.

 

[Lone-wolf]

Bonjour gosselien 🙂


Merci pour la macro. 😉

 

[Staple1600]

Bonsoir le fil, le forum

Histoire de résoudre le résolu 😉

Sub Macro1()
Dim t, u
Application.ScreenUpdating = False
With Rows(1)
    .FormulaR1C1 = "=ADDRESS(ROW(),COLUMN(),4,1)&""$""&COLUMN()"
    .Value = .Value: t = .Value: u = Application.Transpose(t)
    .Cells(1)(2).Resize(UBound(u)) = u: .Clear
End With
Columns(1).TextToColumns Destination:=Range("A1"), DataType:=1, Other:=True, OtherChar:="$", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Columns(1).Replace "1", ""
End Sub

 

[Si...]

Bon_soir

Bonsoir le fil, le forum
Histoire de résoudre le résolu 😉

Hé Staple , connais-tu cette histoire ? 😵

Sub Lister_Lettre_Colonne_et_Numero()
  Dim C As Range
  For Each C In [A1:AG1]  'plage à adapter
    C = C(1, 1).Address(0, 0): C = Replace(C, 1, ""): C(2, 1) = C.Column
  Next
End Sub

 

[Staple1600]

Bonsoir le fil, le forum

@Si...
Dés que je peux ne pas boucler, je ne peux m'empêcher de ne pas la boucler pour proposer de quoi éviter la boucle. 😉
Ce faisant la boucle est donc bouclée 😉
Est-ce alors un paradoxe?

 

[Si...]

Re

Hé Staple tu ne veux pas que je la boucle 😵 ?
Pourtant, comme toi je pense être victime du paradoxe du Muet qui ne peut s'empêcher de parler sans arrêt 😉 !

 

[Lone-wolf]

MDR 😀😀😀

 

[Staple1600]

Re

Si...
(Ô)
😉

 

[job75]

Bonsoir à tous,

J'ai remarqué que JM est un fana de la commande Convertir même quand c'est parfaitement inutile :

Sub Macro2()
[B1] = 1: [B1].Resize(Columns.Count).DataSeries
With [A1].Resize(Columns.Count)
    .Formula = "=SUBSTITUTE(ADDRESS(1,B1,4),1,)"
    .Value = .Value
End With
End Sub

Bonne nuit.

 

[Staple1600]

Bonsoir Job75

Comme disait René
"L'inutile et le superflu sont plus indispensables à l'homme que le nécessaire." 😉

Si je devais être fanatique d'un truc, ce serait plutôt de DataSeries 😉

 

[job75]

Bonjour JM, le forum,

Magnifique cet aphorisme de René Barjavel, merci JM 🙂

Quant à DataSeries on pourrait aussi s'en passer :

Sub Macro3()
[B2].Resize(Columns.Count) = "=SUBSTITUTE(ADDRESS(1,ROWS(B$2:B2),4),1,)"
End Sub

Bonne journée.

 

[phlaurent55]

Bonjour à tous,

un essai sans macro

à+
Philippe