Affichage auto d'une cellule / données d'une colonne

[martine24]

Bonjour à tous,
j'ai eu beau chercher ds le forum, je n'ai pas trouvé si cette fonction a déjà été abordée...et je ne sais pas trop comment là nommer...

Je souhaiterais en fait que la cellule A1 soit "automatisée" afin que, dès que l'on tape par exemple en A10 FD2007005, la cellule A1 passe automatiquement à FD2007006 et ainsi de suite...

Merci par avance...
Cdlt.

 

[Pierrot93]

Re : Affichage auto d'une cellule / données d'une colonne

Bonjour Martine

essaye peut être avec le code ci dessous, à placer dans l'évènement change de ta feuille.

click droit sur le nom de l'onglet => visualiser le code, et tu colles le code ci dessous.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> "" And Target.Column = 1 And Target.Row > 1 Then
    Range("A1").Value = Target.Value
End If
End Sub

bonne soirée
@+

 

[Spitnolan08]

Re : Affichage auto d'une cellule / données d'une colonne

Bonsoir,

Sans macro,
Une solution consiste à utiliser un format personnalisé pour les cellules A1 et A10 de type : "FD"0000000 et en mettant en A1 : A1 = A10 +1

Cordialement

Edit : pas vu Pierrot

 

[martine24]

Re : Affichage auto d'une cellule / données d'une colonne

Bonjour pierrot et merci pour ta réactivité mais je ne maitrise pas ce langage.
N'y aurait il pas une fonction appropriée plus simple.
Cdlt.

 

[Spitnolan08]

Re : Affichage auto d'une cellule / données d'une colonne

Re,

Ou bien pour coller avec la version VBA de Pierrot et toujours en format personnalisé dito :
A1 = Max(A2:A65300)+1

Cordialement

 

[Compte Supprimé 979]

Re : Affichage auto d'une cellule / données d'une colonne

Bonjour Martine24,

La solution de Pierrot (Format -> Cellule) est bonne et très simple

Heuuu ... plus maintenant (simple) c'est du VBA

Avec une petite fonction MAX() pour trouver le dernier numéro et voilà.

Ci-joint ton fichier avec modif.

Edit : Oups désolé Spitnolan, y'a eu collision....

 

[Pierrot93]

Re : Affichage auto d'une cellule / données d'une colonne

Aarf, j'avais pas vu la valeur plus un, code a modifier comme ci dessous

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> "" And Target.Column = 1 And Target.Row > 1 Then
    Range("A1").Value = "FD" & Mid(Target.Value, 3, 7) + 1
End If
End Sub

@+

 

[martine24]

Re : Affichage auto d'une cellule / données d'une colonne

j'aurais plutot tendance à aller vers la fonction de Spitnolan08 qui est bcp plus simple pour moi mais comment je fais pour les autres cellules A11, A12, A13...afin que, lorsque je saisie ce qui est indiqué ds A1, cette dernière soit modifiée automatiquement par rapport aux données indiquées dans A10, A11, A12...
Cdlt

 

[Compte Supprimé 979]

Re : Affichage auto d'une cellule / données d'une colonne

Salut Martine,

Dis ne veux vraiment pas regarder la solution que je t'ai donnée !?

 

[martine24]

Re : Affichage auto d'une cellule / données d'une colonne

Toutes mes excuses Bruno.
Ton exemple est impeccable.
Un grand merci.
cependant, qd je tape 10 par exemple ds la cellule, j'ai FD0000010 et non FD2007010?

 

[Compte Supprimé 979]

Re : Affichage auto d'une cellule / données d'une colonne

Merci Martine,

Nous avons eu la même idée avec Spitnolan, donc merci à lui également.

Pour le numéro il faut saisir tous les chiffres "2007010" et "10"
Le format nombre va rajouter simplement "FD" devant le nombre saisi

Sinon après il faut du code VBA, et ça je crois que tu nen veux pas !

Voilà

 

[martine24]

Re : Affichage auto d'une cellule / données d'une colonne

Merci à tous.

 

[martine24]

Re : Affichage auto d'une cellule / données d'une colonne

Me revoili, me revoila...
Je pensais pouvoir le faire ds mon fichier mais, en allant ds format personnalisé puis en appliquant le format "FD"0000000, j'ai une cellule FD0000001.

Mince alors...

 

[Spitnolan08]

Re : Affichage auto d'une cellule / données d'une colonne

Re,
Salut Bruno

C'est normal : Tant qu'aucune cellule n'est renseignée dans la colonne A ta cellule A1 indiquera le résultat FD0000001. Pour l'éviter mettre en A1 :
Si(Max(A2:A65300)=0;"";Max(A2:A65300)+1)
qui t'indiquera alors :

Cordialement

 

[Compte Supprimé 979]

Re : Affichage auto d'une cellule / données d'une colonne

Martine,

Je comprends mieux maintenant pourquoi tu ne voulais saisir que les derniers chiffres !

Tu devais avoir le format nombre suivant : "FD2007"000
A mettre à la place du précédent

Tu n'auras à saisir que le 10

Oups Spitnolan est encore passé par là, mais je ne pense pas que le problème soit là