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

A

Abel

XLDnaute Accro

• 30 Janvier 2013

• #2

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+

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 30 Janvier 2013

• #3

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

Bonjour, ssassam, le Forum,

Peut-être ainsi :

Code:

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.

 

Dernière édition: 30 Janvier 2013

Vote positif 0 Vote négatif

A

Abel

XLDnaute Accro

• 30 Janvier 2013

• #4

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

DoubleZero à dit:

Bonjour, ssassam, le Forum,

Peut-être ainsi :

Code:

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.

Cliquez pour agrandir...

Bonjour DoubleZero,

En bien plus propre que le mien.

Bonne journée.

 

Vote positif 0 Vote négatif

ssassam

XLDnaute Occasionnel

• 30 Janvier 2013

• #5

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 30 Janvier 2013

• #6

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 🙂

 

Pièces jointes

• 00 - ssassam - Données copier.xls

  39.5 KB · Affichages: 29

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 30 Janvier 2013

• #7

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

Re-bonjour,

Abel à dit:

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

Cliquez pour agrandir...

@ Abel :

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

A bientôt 🙂

 

Vote positif 0 Vote négatif

ssassam

XLDnaute Occasionnel

• 30 Janvier 2013

• #8

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

Merci Merci et 1000000000000 Merci ça marche a merveille

 

Vote positif 0 Vote négatif

ssassam

XLDnaute Occasionnel

• 30 Janvier 2013

• #9

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 30 Janvier 2013

• #10

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

Re-bonjour,

Voici une nouvelle version, avec bouton.

A bientôt 🙂

 

Pièces jointes

• 00 - ssassam - Données copier par bouton.xls

  43 KB · Affichages: 24

Vote positif 0 Vote négatif

ssassam

XLDnaute Occasionnel

• 30 Janvier 2013

• #11

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

 

Dernière édition: 30 Janvier 2013

Vote positif 0 Vote négatif