Macro pour copie dans la cellule d'à coté

PascalXLD

XLDnaute Barbatruc

• 22 Décembre 2007

• #2

Re : Macro pour copie dans la cellule d'à coté

Bonjour

un petit essai

 

Pièces jointes

• Classeur1.xls

  22.5 KB · Affichages: 80
• Classeur1.xls

  22.5 KB · Affichages: 71
• Classeur1.xls

  22.5 KB · Affichages: 82

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 22 Décembre 2007

• #3

Re : Macro pour copie dans la cellule d'à coté

Bonjour ascal44,
arfff salut Pascal,

j'étais interrompu avant de finir, je mets quand même la macro:

Code:

Public avant
Private Sub Worksheet_Change(ByVal Target As Range)
Set plage = Range([B5], [B5].End(xlDown))
If Not Intersect(Target, plage) Is Nothing Then
    Target.Offset(0, 1).Value = avant
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set plage = Range([B5], [B5].End(xlDown))
If Not Intersect(Target, plage) Is Nothing Then
    avant = Target.Value
End If
End Sub

A coller dans le code de la feuille en faisant bouton droit puis visualiser le code.

 

Vote positif 0 Vote négatif

excalibur

XLDnaute Impliqué

• 22 Décembre 2007

• #4

Re : Macro pour copie dans la cellule d'à coté

bonsoir ascal44 pascal le forum pascal tu as oublie la couleur he alors!!(lol)
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B5:B10")) Is Nothing Then
Target.Offset(0, 1) = Target.Value
Target.Offset(0, 1).Font.ColorIndex = 3
End If
End Sub
salutations

 

Vote positif 0 Vote négatif

A

ascal44

XLDnaute Occasionnel

• 17 Février 2008

• #5

Re : Macro pour copie dans la cellule d'à coté

Merci Excalibur je te remercie de ton aide.

Celà correspond à mon attentente mais je voudrais pouvoir coller des valeurs dans les cellules où le code s'applique.

Serait ce possible ?

 

Vote positif 0 Vote négatif