Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel incrémanter une lettre dans une cellule

incrémanter une lettre dans une cellule

2 réponses
Avatar
gilles
bonjour =E0 tous,
xl97 ou xlxp
Dans la cellule A1(ou autre), j'ai une lettre repr=E9sentant=20
un indice de modification du document
je souhaiterais qu'=E0 chaque enregistrement du document,=20
cette lettre passe =E0 la lettre alphab=E9tique suivante
Quel code dois-je mettre pour dire =E0 VBA qu'il passe la=20
valeur de A1 de A =E0 B puis , =E0 l'enregistrement suivant ,=20
de B =E0 C... ect
genre
[A1]value=3D"A1+1" (non non ne rigolez pas!!)
ci dessous le code (issu du mpfe) pour changer la date =E0=20
l' enregistrement et que je souhaite compl=E9ter

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean,=20
Cancel As Boolean)
Sheets("Liste").Select
Range("A57").Select
Selection.Copy
Range("F52").Select
Selection.PasteSpecial Paste:=3DxlPasteValues,=20
Operation:=3DxlNone, SkipBlanks _
:=3DFalse, Transpose:=3DFalse
Application.CutCopyMode =3D False
[D52] =3D Date
End Sub

merci =E0 tous
gilles
Signaler un problème avec ce contenu

2 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
ru-th
Salut

If [a1]="Z" then
[a1]="A"
else
[a1] = Chr(Asc([a1]) + 1)
endif

a+
rural thierry

"gilles" a écrit dans le message de
news: 6a2901c493ef$725338e0$
bonjour à tous,
xl97 ou xlxp
Dans la cellule A1(ou autre), j'ai une lettre représentant
un indice de modification du document
je souhaiterais qu'à chaque enregistrement du document,
cette lettre passe à la lettre alphabétique suivante
Quel code dois-je mettre pour dire à VBA qu'il passe la
valeur de A1 de A à B puis , à l'enregistrement suivant ,
de B à C... ect
genre
[A1]value="A1+1" (non non ne rigolez pas!!)
ci dessous le code (issu du mpfe) pour changer la date à
l' enregistrement et que je souhaite compléter

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean,
Cancel As Boolean)
Sheets("Liste").Select
Range("A57").Select
Selection.Copy
Range("F52").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse
Application.CutCopyMode = False
[D52] = Date
End Sub

merci à tous
gilles
Avatar
gilles
salut THIERRY
ça c'est du service express!
Merci
j'essaie ça
à+
gilles
-----Message d'origine-----
Salut

If [a1]="Z" then
[a1]="A"
else
[a1] = Chr(Asc([a1]) + 1)
endif

a+
rural thierry

"gilles" a écrit
dans le message de

news: 6a2901c493ef$725338e0$
bonjour à tous,
xl97 ou xlxp
Dans la cellule A1(ou autre), j'ai une lettre représentant
un indice de modification du document
je souhaiterais qu'à chaque enregistrement du document,
cette lettre passe à la lettre alphabétique suivante
Quel code dois-je mettre pour dire à VBA qu'il passe la
valeur de A1 de A à B puis , à l'enregistrement suivant ,
de B à C... ect
genre
[A1]value="A1+1" (non non ne rigolez pas!!)
ci dessous le code (issu du mpfe) pour changer la date à
l' enregistrement et que je souhaite compléter

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean,
Cancel As Boolean)
Sheets("Liste").Select
Range("A57").Select
Selection.Copy
Range("F52").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse
Application.CutCopyMode = False
[D52] = Date
End Sub

merci à tous
gilles


.