Macro: cipie a chaque changement de(Cell B1) vers (Cell A2,....)

[ssassam]

Bonjour ,

Svp j'ai besoin de votre aide , voici mon probléme ;

A chaque changement de Celule B1
je souhaite Copié le contenue vers la premire celule vide de la colone A8.....

Ficheir TEST ci-joint

Merci d'avance

 

[Abel]

Re : Macro: cipie a chaque changement de(Cell B1) vers (Cell A2,....)

Bonjour ssassam,

Essaie ce type de solution :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim B1 As Range, dl
dl = Range("a65536").End(xlUp).Row
Set B1 = Application.Intersect(Range("b1"), Target)
If Not B1 Is Nothing Then
Range("a" & dl + 1) = Range("b1")
End If
End Sub

Code à copier dans la feuille.

A+

 

[DoubleZero]

Re : Macro: cipie a chaque changement de(Cell B1) vers (Cell A2,....)

Bonjour, ssassam, le Forum,

Peut-être ainsi :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [b1]) Is Nothing Then [a65536].End(xlUp)(2).Value = [b1].Value
End Sub

A bientôt 🙂

PS : bonjour, Abel.

 

[Abel]

Re : Macro: cipie a chaque changement de(Cell B1) vers (Cell A2,....)

Bonjour, ssassam, le Forum,

Peut-être ainsi :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [b1]) Is Nothing Then [a65536].End(xlUp)(2).Value = [b1].Value
End Sub

A bientôt 🙂

PS : bonjour, Abel.

Bonjour DoubleZero,

En bien plus propre que le mien.

Bonne journée.

 

[ssassam]

Re : Macro: cipie a chaque changement de(Cell B1) vers (Cell A2,....)

Bonjour , merci pour vos réponse rapidos ; sauf que j'ai essayé les deux code mais aucun ne marche sur ma feuille , pouviez vous me l’insérer sur ma feuille test svp

 

[DoubleZero]

Re : Macro: cipie a chaque changement de(Cell B1) vers (Cell A2,....)

Re-bonjour,

Ci-joint, le fichier avec le code qui se trouve dans l'onglet-même.

A bientôt 🙂

 

[DoubleZero]

Re : Macro: cipie a chaque changement de(Cell B1) vers (Cell A2,....)

Re-bonjour,

...En bien plus propre que le mien...

@ Abel :

Quelle importance ? Il fonctionne très bien également 🙂 !

A bientôt 🙂

 

[ssassam]

Re : Macro: cipie a chaque changement de(Cell B1) vers (Cell A2,....)

Merci Merci et 1000000000000 Merci ça marche a merveille

 

[ssassam]

Re : Macro: cipie a chaque changement de(Cell B1) vers (Cell A2,....)

Re-bonjour DoubleZero,

Merci pour le Code

Stp est ce que c'est possible de rendre ce code que tu ma envoyé exécutable manuellement comme une simple macro a l'aide d'un bouton car je souhaite l'intégré dans ma macro et qu'il soit exécutable seulement si j'éxécute ma macro

merci d'avance

 

[DoubleZero]

Re : Macro: cipie a chaque changement de(Cell B1) vers (Cell A2,....)

Re-bonjour,

Voici une nouvelle version, avec bouton.

A bientôt 🙂

 

[ssassam]

Re : Macro: cipie a chaque changement de(Cell B1) vers (Cell A2,....)

Chapeau Chef "DoubleZero"

Grace a "DoubleZero" J'ai appris beaucoup de choses

Rein a dire a la perfection