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