Microsoft 365 mon fichier se fige

[momo2394]

Bonjour, j'ai un fichier excel et dès lors que je sélectionne ou active une cellule ou tout autres choses, le fichier se fige pourriez-vous m'aider à résoudre cette épineux problème
d'avance je vous remercie

 

[vgendron]

Bonjour

1) supprimes tous les codes identiques de toutes les feuilles
2) remplace le tout par ceci

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Call SelectNomCell
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Call HandleChange(Target)
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Call HandleSelectionChange(Target)
End Sub

à mettre dans le thisworbook


3) ... tout ce code sert à quoi??
quelque soit la feuille, et quelque soit la cellule où on clique, le curseur se replace en B3
==> on ne peut donc rien faire..

 

[momo2394]

Bonjour vgendrom

Merci pour la réponse, mais plus rien ne fonctionne, et en ce qui concerne le curseur ne se replace pas qu'en B3 mais selon la dernière cellule vide

 

[vgendron]

Hello
En pj ton fichier
j'ai commenté TOUT ton code, et mis juste 4 lignes dans différents évènements des feuilles DANS le thisworkbook

1) Workbook_SheetActivate==> quand tu changes de feuille
2) Workbook_SheetChange==> quand une cellule de la feuille active change
3) Workbook_SheetSelectionChange==> quand tu cliques n'importe ou dans la feuille active

à chaque fois, le curseur se place sur la première cellule vide de la colonne B
==> pas besoin d'avoir l'adresse en R1

et tout ce code pour vérifier que la cellule existe.... jamais vu une telle usine à gaz pour rien...

à noter que je ne comprend pas bien l'interet d'un tel code..
tu ne peux rien faire à part saisir quelque chose dans la cellule automatiquement sélectionnée.. avec AUCUNE possibilité de modifier la saisie si tu te trompes..