XL 2016 Besoin d'aide pour un format personnalisé

Phil69970

XLDnaute Barbatruc

• 4 Décembre 2021

• #2

Bonjour @fenec

Vu que je n'ai pas eu de réponse la dernière fois cela sera sans moi.

XL 2016 - Ajouter des lignes à un tableau

Bonjour le forum, Dans le fichier joint, j’ai un tableau dans lequel je confirme une commande. Ce que je souhaiterais faire c’est : Rajouter des lignes, admettons 10, à chaque fois que la dernière cellule de la colonne " C "est non vide afin de ne pas avoir à faire un tableau de 100, 200, 300...

www.excel-downloads.com

@Phil69970

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 4 Décembre 2021

• #3

Bonjour Phil69970
Je comprends ta réaction et m'en excuse, des pbs de santé on fait et fond que je n'ai pas encore repris ce sujet vu le retard que j'ai accumulé.

cordialement,

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 4 Décembre 2021

• #4

Re

Ma bonté me perdra ......
Si ton texte est en B2

=CONCATENER(GAUCHE(B2;2);" ";STXT(B2;3;3);" ";STXT(B2;6;3);" ";STXT(B2;9;3))

Cliquez pour agrandir...

*Merci de ton retour

@Phil69970

 

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 4 Décembre 2021

• #5

Bonsoir,
Pour l'exemple cette formule marche chez moi :

=GAUCHE(B2;2)&" "&TEXTE(DROITE(B2;9);"## ### ### ###")

Cliquez pour agrandir...

A +

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 4 Décembre 2021

• #6

Re, et merci de vos retours

J'ai mal formulé ma demande , le format que je souhaite est bien ce que vous me proposez, mais je le souhaiterais à la frappe

 

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 4 Décembre 2021

• #7

fenec à dit:

Re, et merci de vos retours

J'ai mal formulé ma demande , le format que je souhaite est bien ce que vous me proposez, mais je le souhaiterais à la frappe

Cliquez pour agrandir...

Je crois pas que cela soit possible vu que vous mélangez chiffre et lettres
Peut être en VBA alors
A +

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 4 Décembre 2021

• #8

Re,

si pas possible, je ferais les espaces en manuel.

merci pour votre aide

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 4 Décembre 2021

• #9

Re

@fenec
Comme mentionné par @Wayki pas possible sauf en VBA
En admettant que les données à traiter soit dans la colonne B

Code:

Sub Worksheet_Change(ByVal Target As Range)

Dim MaCel As Range

If Not Intersect(Target, Range("B:B")) Is Nothing Then
    For Each MaCel In Target
        If Len(MaCel) = 11 Then MaCel = Left(MaCel, 2) & " " & Mid(MaCel, 3, 3) & " " & Mid(MaCel, 6, 3) & " " & Mid(MaCel, 9, 3)
    Next
End If

End Sub

*Merci de ton retour

@Phil69970

 

Vote positif 0 Vote négatif

Solution

fenec

XLDnaute Impliqué

• 5 Décembre 2021

• #10

Bonjour le forum, @Phil69970

Merci cela correspond à ma de mande.

Cordialement,

Philippe.

 

Vote positif 0 Vote négatif