Fonction calculate

Bonjour,

Je suis dans une impasse

J'aimerai "seulement" que la feuille en cours se recalcule automatiquement (au lieu d'appuyer sur F9) lorsqu'on clic sur n'importe quelle cellule

J'ai donc ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.Calculate

End Sub

Tout fonctionne très bien SAUF que je ne peux pas coller. Je peux copier une cellule mais pas la coller. Quand je clique droit de la souris le "coller" est grisé (inactive).

Aidez moi !!!!

Bonjour,

je ne peux pas coller. Je peux copier une cellule mais pas la coller. Quand je clique droit de la souris le "coller" est grisé (inactive).

est ce que vous faite la copie avant l'exécution de la macro ?

est ce que c'est seulement la valeur que vous voulez récupérer ?

Oui je cherche à coller juste la valeur de la cellule copiée.

Il faut que quand on selection n'importe quelle cellule le calcule se fasse.

J'ai donc mis ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.Calculate

End Sub

dans le "worksheet" de la feuille en cours....

re.,

j'imagine que vous voulez copier la cellule active ?

à quel endroit voulez-vous la coller ?

Re,

On peut copier la cellule, mais pas la coller. Peut importe où.....

La fonction est grisé

Voici le fichier

re.,

essayer comme ça , (adapter le nom de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Sheets(x)
  n = .Cells(Rows.Count, 1).End(xlUp).Row + 1
 .Range("A" & n).Value = Target.Address
 .Range("B" & n).Value = Target.Value
End With

Application.Calculate
End Sub

J'ai mis

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Feui1

n = .Cells(Rows.Count, 1).End(xlUp).Row + 1

.Range("A" & n).Value = Target.Address

.Range("B" & n).Value = Target.Value

End With

Application.Calculate

End Sub

J'ai une erreur d'exécution 424...

Bonjour,

c'est normal, ta macro annule le copier.

Et utiliser les couleurs pour mettre une info est une mauvaise idée. Excel n'est pas conçu pour gérer ça et tu pars sur une usine à gaz.

Avec tes boutons met une lettre code (C pour congé par exemple), lettres que tu pourras compter facilement avec un NB.SI.

Et la couleur se met avec des MFC basées sur les lettres code..

eric

re.,

essayer avec,

With Sheets("Feuil1")

Ca fonctionne mais le code ne resoud pas le problème.

Bonjour Eriiic

Je peux faire ce que tu me dis mais ca ne changera pas mon soucis

Si.

Plus besoin de ta fonction personnalisée Couleur qui est appelée à tour de bras (volatile), et plus besoin de faire un Calculate à chaque sélection.

Essaie...

eric