Exporter un nombre vers autre cellule

Bonjour,

Je n'ai pu trouver réponse dans les différents forums et sujets concernant ma question qui paraît assez simple mais pour laquelle je n'ai pas de solution.

Je souhaite dans la cellule B2 dans laquelle il y une année "2014" pouvoir inscrire dans cette même cellule 2015 et qu'automatiquement 2014 aille s'inscrire dans la cellule directemement à gauche A2.

Je ne sais si j'ai été clair dans ma demande. En fait il s'agit d'écraser un chiffre d'une cellule en le remplacant par un nouveau et faire en sorte que le chiffre précédent apparaîssent alors dans la cellule de gauche.

D'avance merci pour votre éclairage

Bien cordialement

Bonjour Claude, bonjour le forum,

Une proposition VBA avec le code ci-dessous à placer dans l'onglet où tu désires que ça agisse. Double-clique dans la cellule B1 (tu adapteras à ton cas) :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'au double-clic dans l'onglet Dim V As Integer 'déclare la variable V (Valeur)   If Target.Address = "$B$1" Then 'condition : si l'adresse de la cellule double-cliquée est B1 (à adapter à ton cas) Cancel = True 'annule le [Mode Édition] lié au double-clic V = Target.Value 'récupère la valeur de la cellue double-cliquée dans la variable V Target.Offset(0, -1).Value = V 'place cette valeur dans la celllue à gauche Target.Value = V + 1 'incrément la cellule double-cliquée End If 'fin de la condition End Sub

---

Bonjour Thautheme,

Merci pour ton aide. Je n'ai pas trop compris l'utilisation du double click, mais cela ne fonctionne pas malgré l'adaptation dans la cellule concernée.
Je pense que cela provient de mon explication. En fait au delà d'une cellule, je souhaite que ça fonctionne sur deux colonne.
La iere par exemple B qui contiendra des années à chaque ligne et la seconde A qui par défaut est vide. Selon si une année est entrée dans les lignes de la colonne B, je souhaite qu'ensaisissant dans cette même cellule ex: B10 contient 2014, je remplace 2014 par 2015 et je souhaite que 2014 vienne s'incrémenter dans la cellule A10. Ce qui me fait deux cellule côte à côte Col B contenant les nouvelles valeurs, col A contenant les valeurs précédentes.

C'est à la fois simple et pas facile à expliquer

Cordialement

Bonjour Claude19,

Je te propose çà en fonction de ce que j'ai compris dans ton message :

Code:

---

1 2 3

Range("B2").Select ActiveCell.Offset(, -1).Value = ActiveCell.Value ActiveCell.Value = 2015

---

AgentF13

Bonsoir le fil, bonsoir le forum,

C'est exactement ce que faisait mon code sauf qu'il était limité à la cellule B1... Le voici modifié pour qu'il agisse dans toute la colonne B.
Pour cela, tu dois :
• copier le code ci-dessous
• cliquer avec le bouton droit dans l'onglet (en bas) où tu veux que ça fonctionne et choisir l'option Visualiser le code
• là où le curseur clignote, coller le code copié
• fermer VBE (Visual Basil Editor) acec [Alt]+[F11].

Maintenant, au lieu de taper 2015 dans la cellule, à la place de "2014", tu double-cliques simplement dedans... Ça copiera sa valeur dans la cellule colonne A et ça incrémentera l 'année de la cellule double-cliquée.
Si tu double-cliques dans une cellule vide, ça mettra l'année en cours dans la colonne B et l'année précédente dans la colonne A.
Et ne me dit pas que ça fonctionne pas parce que je teste avant d'envoyer...

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'au double-clic dans l'onglet Dim V As Integer 'déclare la variable V (Valeur)   If Target.Column = 2 Then 'condition : si la cellule double-cliquée est dans la colonne B Cancel = True 'annule le [Mode Édition] lié au double-clic 'récupère la valeur de la cellule double-cliquée ou l'année en cours, si la cellule est vide, dans la variable V V = IIf(Target.Value = "", CStr(Year(Date)), Target.Value) Target.Offset(0, -1).Value = V 'place cette valeur dans la cellule à gauche Target.Value = V + 1 'incrément la cellule double-cliquée End If 'fin de la condition End Sub

---

Bonjour Thautheme, Bonjour agent F13

Merci pour votre appui, tout cela fonctionne sans aucun problème. Cependant je m'apperçois une fois de plus que mes explications ne sont pas trés claires.
Je retiens malgré tout ces lignes de code qui peuvent me servir ultérieurement sur cette petite application.

En fait ce que je cherche c'est de mémoriser dans la même ligne de la colonne précédente donc de B vers A le chiffre de la colonne B. Et cecei à chaque fois que je saisie un nouveau chiffre dans la colonne B. Je donne quelques exemples.

B2=2014 sur cette cellule je saisie dans B2= 2018 et je souhaite que dans A2= 2014
B12= 2015 sur cette cellule je saise dans B12 =2017 et je souhaite que dans A12=2015
B56= _ sur cette cellule je saisie dans B56= 2054 et je souhaite que dans A56=_
B56=2054 sur cette cellule je saisie dans B56=2015 et je souhaite que dans A56 le _ soit remplacé par 2054
Et ainsi de suite, le dernier chiffre de la colonne B soit mémoriser dans la colonne A en saisissant un nouveau chiffre dans la colonne B et sur l'ensemble des deux colonnes.
Je ne sais si c'est plus clair comme explications.

Dans tous les cas, merci du temps que vous me consacrez

Bien cordialement

Bonjour,

Essai de cette façon. A mettre dans le module de la feuille, ce sont des procédures évènementielles :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Dim Valeur   Private Sub Worksheet_Change(ByVal Target As Range)   If Target.Column <> 2 Then Exit Sub   Application.EnableEvents = False   Target.Offset(, -1).Value = Valeur   Application.EnableEvents = True   End Sub   Private Sub Worksheet_SelectionChange(ByVal Target As Range)   If Target.Column <> 2 Then Exit Sub If Target.Count <> 1 Then Exit Sub   Valeur = Target.Value   End Sub

---

Hervé.

Bonjour,

Autre proposition :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Worksheet_Change(ByVal Target As Range) Dim v As Variant, c As Range If Target.Column <> 2 Or Target.Row = 1 Then Exit Sub v = Target.Value Set c = ActiveCell Application.EnableEvents = False Application.ScreenUpdating = False Application.Undo Cells(Target.Row, 1) = Target Target = v c.Select Application.EnableEvents = True End Sub

---

Merci à tous, Eriiic, Theze, Thautheme et agenF13, vous avez trouver la solution aprés des explications de ma part plus précises, les 2 dernieres propositions fonctionnent trés bien.

Encore merci

Bien cordialement:)