Modifier un code VBA

cp4

XLDnaute Barbatruc

• 21 Décembre 2018

• #2

Peut-être comme ci-dessous à tester

VB:

Const celv = Range("A").UsedRange

 

Vote positif 0 Vote négatif

riton00

XLDnaute Impliqué

• 21 Décembre 2018

• #3

Bonjour cp4, le forum

Merci pour pour cet essai mais.... non concluant puisque j'ai une erreur de compilation, "constante requise"




Slts

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 21 Décembre 2018

• #4

On navigue à l'aveuglette. Un petit fichier sans données confidentielles aurait facilité la compréhension du problème.

 

Vote positif 0 Vote négatif

riton00

XLDnaute Impliqué

• 21 Décembre 2018

• #5

Désolé....! Bien que dans le fichier joint ne figure que la macro qui est fonctionnelle,
mais qu'en lisant le petit énoncé joint avec le fichier il est peut-être suffisant pour comprendre ce que je voudrais obtenir.
au cas ou, si toujours pas de compréhension faite-le moi savoir

Merci

 

Pièces jointes

• Affiche la dernière modif.xlsm

  16 KB · Affichages: 21

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 21 Décembre 2018

• #6

un essai, supprime les constantes

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> Range("A1") And Target.Value <> "" Then Range("A1").Value = Now
End Sub

 

Vote positif 0 Vote négatif

riton00

XLDnaute Impliqué

• 21 Décembre 2018

• #7

Bonsoir,
Désolé pour le retour tardif, après essais, cela ne fonctionne toujours pas lors de changement de couleur de police ni d'ajout de couleur dans cellule et lors d'une insertion de ligne ou colonne j'ai une erreur d'exécution 13

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 22 Décembre 2018

• #8

Bonjour,
Ne sachant pas comment reproduire ton erreur, je ne peux plus t'aider.

Bonne journée.

ps: fais un essai avec les autres evènements (ex: selectionChange)

 

Vote positif 0 Vote négatif

riton00

XLDnaute Impliqué

• 22 Décembre 2018

• #9

Bonjour, Cp4, le forum

Merci d'avoir essayer

Slts

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 23 Décembre 2018

• #10

Bonsoir

lien utile : https://excel-malin.com/a-la-une/liste-complete-evenements-vba-excel-events/

VB:

Option Explicit
Dim celluleAvant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim celv As Range
Set celv = Range("A2:Z100")
Dim celd As Range
Set celd = Range("A1")
  If Not IsEmpty(celluleAvant) Then
        If Not Intersect(Range(celluleAvant), celv) Is Nothing Then
            Calculate
            celd.Value = Now
        End If
  End If
celluleAvant = Target.Address
End Sub

 

Dernière édition: 23 Décembre 2018

Vote positif 0 Vote négatif