formule vba

M

marleauc

XLDnaute Occasionnel

• 25 Août 2009

• #2

Re : formule vba

voila le fichier..

Le mot de passe pour afficher la feuille cachée est : jobin

 

Pièces jointes

• Fiche dassiduité région22.zip

  36.5 KB · Affichages: 31

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 25 Août 2009

• #3

Re : formule vba

Salut marleauc, le Forum

peut être comme cela

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cellule As Range
[B]If Not Application.Intersect(Target, Range("I15:AF45")) Is Nothing Then[/B]
    For Each Cellule In Target
        ThisWorkbook.Worksheets("BigBrother").Cells(Cellule.Row, Cellule.Column).Value = Environ("username") & " " & Now
    Next Cellule
[B]End If[/B]
End Sub

Bonne Journée

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 25 Août 2009

• #4

Re : formule vba

Salut,

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Application.Intersect(Target, Range("I15:AF45")) Is Nothing Then
    Sheets("BigBrother").Cells(Target.Row, Target.Column) = Environ("username") & " " & Now
  End If
End Sub

devrait suffire.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 25 Août 2009

• #5

Re : formule vba

Bonjour à tous,

Fo_rum, le for each permet de gérer les plages de cellules multiples (suite à un coller par exemple). Mais ça remplit toutes les cellules de la plage collée.

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 25 Août 2009

• #6

Re : formule vba

Re,

Merci pour l'info tototiti, je n'avais pas pensé à cela 😱 !

 

Vote positif 0 Vote négatif

M

marleauc

XLDnaute Occasionnel

• 25 Août 2009

• #7

Re : formule vba

bonjour vous deux

un gros merci pour votre aide, par contre apr`s avoir essayé, je me rends compte qu'il y existe encore le même probleme, lorsque je modifie par exemple la cellule A4 dans l'onglet GAINS, une signature s'inscrit par défaut dans l'onglet bigbrother... ce que je voudrais c'est que les infos ailleurs que dans les cellules I15:AF45, ne soient pas inscluse dans le changement.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 25 Août 2009

• #8

Re : formule vba

Re,
Bonjour marleauc,

normalement ça ne devrait pas être le cas. je me permet de proposer une version légèrement modifiée du code de Dull mais en principe la modification de A4 ne devrait pas entrainer de modifications de la feuille BigBrother

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cellule As Range
[B]If Not Application.Intersect(Target, Range("I15:AF45")) Is Nothing Then[/B]
    For Each Cellule In [B]Application.Intersect(Target, Range("I15:AF45"))[/B]
        ThisWorkbook.Worksheets("BigBrother").Cells(Cellule.Row, Cellule.Column).Value = Environ("username") & " " & Now
    Next Cellule
[B]End If[/B]
End Sub

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Août 2009

• #9

Re : formule vba

Bonjour à tous

sans doute pas tout compris moi .... mais :

Code:

   For Each Cellule In Application.Intersect(Target, Range("I15:AF45"))

est égal à "target" non ??? quel est le plus ???

@+

 

Vote positif 0 Vote négatif

M

marleauc

XLDnaute Occasionnel

• 25 Août 2009

• #10

Re : formule vba

rebonjour tototiti 2008,

Malheureusement, le même probl`me se reproduit bizarre... j'ai la version 2007. ce que j'ai fait j'ai remplacé la formule VBA par copier-coller. Penses-tu que c'est le probl`me

 

Pièces jointes

• Fiche dassiduité région v23.zip

  37 KB · Affichages: 20

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 25 Août 2009

• #11

Re : formule vba

Re,

Bonjour Pierrot,

c'est toujours le cas des "coller" :

tu copies une plage,
tu la colles avec certaines cellules dans "I15:AF45"

seules les cellules de I15:AF45 doivent comporter l'historique des modifications.

Edit : bing... désolé marleauc, je ne peux pas ouvrir les zip...

 

Dernière édition: 25 Août 2009

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Août 2009

• #12

Re : formule vba

Re

oui, on peut également tester un "target.count > 1" ... à voir selon le cas...

@+

 

Vote positif 0 Vote négatif

M

marleauc

XLDnaute Occasionnel

• 25 Août 2009

• #13

Re : formule vba

resalut,

comment pourrais-je de faire suivre le fichier tototti2008? Peut- on définir Target par défaut genre target=("I15:AF45")?

je continue de chercher

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 25 Août 2009

• #14

Re : formule vba

Re,

Dans l'évènement Worksheet_Change, Target représente les cellules modifiées.
Application.Intersect donne l'intersection (cellules communes) entre I15:AF45 et Target.

Je reste sur l'idée qu'avec l'ensemble des codes qui te sont proposés sur ce fil, si tu modifie A4, rien ne doit changer dans la feuille Bigbrother.

as-tu essayer de vider la feuille Bigbrother avant de tester ces codes ??

 

Vote positif 0 Vote négatif

M

marleauc

XLDnaute Occasionnel

• 25 Août 2009

• #15

Re : formule vba

re,

j'ai joint le fichier tototiti2008

voir ; Cijoint.fr - Service gratuit de dépôt de fichiers

 

Vote positif 0 Vote négatif