Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel AFFICHAGE AUTOMATIQUE 3ème caractère suite

AFFICHAGE AUTOMATIQUE 3ème caractère suite

4 réponses
Avatar
Utilisateur1
le bonjour a tous ( anges, pas anges...)

j'ai sans doute été confus dans mes explications hier

J'ai un tableau de données de ce type (le nombre de lignes est variable) :

EN A B C D
TYP CAT NUM PRT ( ENTETES DE COLONNES )
2733 2 DRFH 18
1733 2 BRGH 17
2533 2 FRTH 13
2793 2 JKNH 15


ET JE VOUDRAIS OBTENIR AUTOMATIQUEMENT EN ;C2 F ;C3 G ;C4 T ;C5 N
etc...

EN A B C D
TYP CAT NUM PRT
2733 2 F 18
1733 2 G 17
2533 2 T 13
2793 2 N 15

Merci d'avance
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
CAP2
Salut,

essaie ça :

=GAUCHE(DROITE(C2;2);1)

à recopier...

Ca marche ?

CAP2
Avatar
FxM
Bonjour,

alt-f11 | insertion | module
sub test()
with active sheet
for a = 2 to .range("C65536").end(xlup).row
.cells(a,"C") = mid(.cells(a,"C"),3,1)
next a
end with
end sub

Retourner dans Excel
outils | macro | macro -> exécuter "test"

@+
FxM


le bonjour a tous ( anges, pas anges...)

j'ai sans doute été confus dans mes explications hier

J'ai un tableau de données de ce type (le nombre de lignes est variable) :

EN A B C D
TYP CAT NUM PRT ( ENTETES DE COLONNES )
2733 2 DRFH 18
1733 2 BRGH 17
2533 2 FRTH 13
2793 2 JKNH 15


ET JE VOUDRAIS OBTENIR AUTOMATIQUEMENT EN ;C2 F ;C3 G ;C4 T ;C5 N
etc...

EN A B C D
TYP CAT NUM PRT
2733 2 F 18
1733 2 G 17
2533 2 T 13
2793 2 N 15

Merci d'avance







Avatar
Jacky
Bonjour,
Ou dans le module de la feuille
'----------
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Column <> 3 Then Exit Sub
For Each c In Range("C2:c" & Range("c65536").End(3).Row)
If Len(c) = 4 Then c.Value = Mid(c, 3, 1)
Next
End Sub
'---------
Salutations
JJ

"Utilisateur1" a écrit dans le message de
news:44eeecd0$0$5093$
le bonjour a tous ( anges, pas anges...)

j'ai sans doute été confus dans mes explications hier

J'ai un tableau de données de ce type (le nombre de lignes est variable)
:


EN A B C D
TYP CAT NUM PRT ( ENTETES DE COLONNES )
2733 2 DRFH 18
1733 2 BRGH 17
2533 2 FRTH 13
2793 2 JKNH 15


ET JE VOUDRAIS OBTENIR AUTOMATIQUEMENT EN ;C2 F ;C3 G ;C4 T ;C5 N
etc...

EN A B C D
TYP CAT NUM PRT
2733 2 F 18
1733 2 G 17
2533 2 T 13
2793 2 N 15

Merci d'avance







Avatar
Utilisateur1
merci a tous je par au pays des tests !
"Jacky" a écrit dans le message de news:

Bonjour,
Ou dans le module de la feuille
'----------
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Column <> 3 Then Exit Sub
For Each c In Range("C2:c" & Range("c65536").End(3).Row)
If Len(c) = 4 Then c.Value = Mid(c, 3, 1)
Next
End Sub
'---------
Salutations
JJ

"Utilisateur1" a écrit dans le message de
news:44eeecd0$0$5093$
le bonjour a tous ( anges, pas anges...)

j'ai sans doute été confus dans mes explications hier

J'ai un tableau de données de ce type (le nombre de lignes est
variable)


:

EN A B C D
TYP CAT NUM PRT ( ENTETES DE COLONNES )
2733 2 DRFH 18
1733 2 BRGH 17
2533 2 FRTH 13
2793 2 JKNH 15


ET JE VOUDRAIS OBTENIR AUTOMATIQUEMENT EN ;C2 F ;C3 G ;C4 T ;C5 N
etc...

EN A B C D
TYP CAT NUM PRT
2733 2 F 18
1733 2 G 17
2533 2 T 13
2793 2 N 15

Merci d'avance