XL 2021 Afficher la nr col avec un lettre alpha combiner pour crée un tableau

hermann

XLDnaute Junior
Supporter XLD
Bonsoir Mesdames & Messieurs

Svp

Je voudrais récupéré la 1. lettre de cellule suivant + donne un 1 pour la première ligne pour crée un tableau

Merci pour votre aide
Arnold
 

Phil69970

XLDnaute Barbatruc
Bonjour à tous

@hermann

Et encore plus simple avec un format personnalisé

1725004221604.png
 

Pièces jointes

  • lettre-Q V1.xlsx
    11.4 KB · Affichages: 1

SAMUAL_2023

XLDnaute Nouveau
Bonjour à tous,

On peut bien sûr se passer de la colonne I, formule en A3 :
Code:
=GAUCHE(B3) &" "&LIGNE()-2
Et en A10 :
Code:
=GAUCHE(B10) &" "&LIGNE()-9
A+
Bessere auf Deutsch in VBA. Siehe unten dem Programmierverfahren:

Public Sub mOnAction_Test()

Dim strValue1$, strValue2$

With oSh1
Let strValue1 = VBA.Strings.Left(.[B3]) & _
VBA.Strings.Space(1) & _ (.Rows.Count - 2)

Let strValue2 = VBA.Strings.Left(.[B10]) & _
VBA.Strings.Space(1) & _ (.Rows.Count - 9)
' --- Hier der Rest der Anleitung:
End With

End Sub
 
Dernière édition:

job75

XLDnaute Barbatruc
D'accord Bernard, en effet chez moi ce code fonctionne :
VB:
Public Sub mOnAction_Test()
Dim strValue1$, strValue2$
With Feuil1
    Let strValue1 = VBA.Strings.Left(.[B3], 1) & _
    VBA.Strings.Space(1) & (.Rows.Count - 2)
    Let strValue2 = VBA.Strings.Left(.[B10], 1) & _
    VBA.Strings.Space(1) & (.Rows.Count - 9)
    ' --- Hier der Rest der Anleitung:
End With
MsgBox strValue1
MsgBox strValue2
End Sub
Mais ça n'a pas beaucoup plus de sens...
 
Dernière édition:

hermann

XLDnaute Junior
Supporter XLD
D'accord Bernard, en effet chez moi ce code fonctionne :
VB:
Public Sub mOnAction_Test()
Dim strValue1$, strValue2$
With Feuil1
    Let strValue1 = VBA.Strings.Left(.[B3], 1) & _
    VBA.Strings.Space(1) & (.Rows.Count - 2)
    Let strValue2 = VBA.Strings.Left(.[B10], 1) & _
    VBA.Strings.Space(1) & (.Rows.Count - 9)
    ' --- Hier der Rest der Anleitung:
End With
MsgBox strValue1
MsgBox strValue2
End Sub
Mais ça n'a pas beaucoup plus de sens...
Messieurs

Merci pour vos assistances :)

Pour simplifier: j'ai transforme la colonne en txt pure, et a partie de la je peut effectuer les fréquences pour chaque colonne. (6)

Chaque colonne:
- je peut obtenir un vue séquentielle en nombre et une autre un index.

- Nom de famille
- Prénom (F/M)
- Leur activité de son Temps
- Les quartier de son époque
- Les noms de rue
- Les nr des rue

En préparât. un col; F/M

Merci pour toute
Bonne journée
Arnold

Nota bene:
Usage mode :
- Séquentielle
- Index

une page xml ci-joint
 

Pièces jointes

  • charlemagne.xlsx
    69.8 KB · Affichages: 2

Discussions similaires

  • Résolu(e)
Microsoft 365 Code de tri
Réponses
22
Affichages
669

Membres actuellement en ligne

Statistiques des forums

Discussions
314 121
Messages
2 106 129
Membres
109 495
dernier inscrit
jerome bonneau