Insertion lettre suivanteRésolu

Question

Bonjour,
Dans un tableau xls, j'insère une colonne par une macro sur un bouton.
Je voudrais qu'une case de la colonne prenne la lettre suivante dans l'ordre alphabétique.
Par exemple dans la case F6 il est écrit C. J'insère une nouvelle colonne F, la lettre C passe en colonne G. Je voudrais écrire D en F6.
Quelqu'un peut m'aider svp ?
Merci,
Bertrouf

cnt · Accepted Answer

Salut bertrouf
Et ça, répond-t-il à ton souhait?

Sub Macro1()
    Dim Lettre As String
    Range("F6").Select
    Lettre = ActiveCell.Value
    Columns("F:F").Select
    Selection.Insert Shift:=xlToRight
    Range("F6").Select
    ActiveCell.Value = Chr$(Asc(Lettre) + 1)
End Sub

Bonne journée.
CNTJC

cnt · Answer

Salut bertrouf
suite à ta demande, j'ai créé une macro en l'enregistrant et je te livre le résultat tel quel

Sub Macro1()
    
    Range("F6").Select
    ActiveCell.FormulaR1C1 = "C"
    Columns("F:F").Select
    Selection.Insert Shift:=xlToRight
    Range("F6").Select
    ActiveCell.FormulaR1C1 = "D"
End Sub

J'espère t'avoir été utile

CNTJC

bertrouf · Answer

Heu, c'est gentil mais pas top en fait.
Ma demande consiste a faire "Lettre donnée + 1".
Dans la macro que tu me proposes, C et D sont inscrites en dur, je voudrais qu'elles soient incrémentales.

Je cherche encore.
Merci,
Bertrouf

xpert12 · Answer

salut,

regarde du côté de la fonction texte CAR. Pour info car(65)="A",  car(66)="B"....

Je ne connais pas la structure de ton fichier, mais tu peux sûrement repérer la lettre de la colonne précédente.

En espérant que ça puisse te mettre sur la voie.

++

bertrouf · Answer

Je n'aurai jamais trouvé Chr$() et Asc() tout seul.
Merci !
Bertrouf

Insertion lettre suivante

5 réponses

Votre réponse

Discussions similaires