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

[hermann]

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]

Autrement plus simplement

="Q" &A3

 

[TooFatBoy]

Autrement plus simplement

="Q" &A3

Toutafé, mais la demande est "1ère lettre de la cellule suivi du numéro (1 pour la première ligne)". 😉

 

[hermann]

Bonjour

La nuit m'avait donner conseille

Vous m'avait donner le départ. Voici le résultat.
Peut être on peut mieux faire ?
Merci

 

[job75]

Bonjour à tous,

On peut bien sûr se passer de la colonne I, formule en A3 :

=GAUCHE(B3) &" "&LIGNE()-2

Et en A10 :

=GAUCHE(B10) &" "&LIGNE()-9

A+

 

[Phil69970]

Bonjour à tous

@hermann

Et encore plus simple avec un format personnalisé

 

[SAMUAL_2023]

Hello, nein, ich bin ein Österreicher aber ich lebe in frankreich

Votre formule est parfait pour moi !!!
Merci

Oh Das is eine Überaschung. Was wirklich möchtest du zu tin?

 

[SAMUAL_2023]

Bonjour à tous,

On peut bien sûr se passer de la colonne I, formule en A3 :

=GAUCHE(B3) &" "&LIGNE()-2

Et en A10 :

=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

 

[hermann]

Bonjour Monsieur

Merci pour votre scripte

Pouvez vous me présenter votre proposition dans une feuille Excel pour mieux comprendre.

Merci
Arnold

 

[job75]

Bonjour hermann,

Pouvez vous me présenter votre proposition dans une feuille Excel pour mieux comprendre.

Cela paraît inutile car le code proposé au post #22 ne peut pas fonctionner.

En VBA Strings (avec un s) n'existe pas et Left doit avoir 2 arguments...

A+

 

[Dranreb]

Bonjour.

En VBA Strings (avec un s) n'existe pas

Si: c'est le nom du module de la bibliothèque VBA contenant les fonctions de chaines.

 

[job75]

D'accord Bernard, en effet chez moi ce code fonctionne :

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...

 

[hermann]

D'accord Bernard, en effet chez moi ce code fonctionne :

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

 

[job75]

Bonjour,

Je ne vois pas le rapport avec le problème posé au post #1 🤔

A+

 

[D. HANIB]

Ci joint le fichier Excel

Merci