Affichage cellule incorrect

Excel
1

Bonjour tout le forum,

dans mon fichier ci-joint, je peux appeler le USF pour saisir des test ou alors supprimer des tests.

La saisie fonctionne et s’inscrit bien dans le tableau de la Feuil1.

Je vous ai laissé une inscription mentionnant qu’aujourd’hui il y a un test.
Cela s’affiche en cellule C2 de l’onglet OUVERTURE.

Si maintenant j’ouvre le USF et que je souhaiterai supprimer ce test d’aujourd’hui, il le supprime bien dans le tableau de l’onglet Feuil1, mais il laisse l’affichage en cellule C2 alors que le tableau de l’onglet Feuil1 est vide.
Il laisse également les inscriptions en cellules J1 et L1 de l’onglet Feuil1.

Pourriez vous m’aider sur ce problème s’il vous plaît.

Merci d’avance à vous.

Rubis
Rubis test1.xlsm (23,6 Ko)

2

Bonjour,

J’ai modifié. Ca fonctionne mais je ne comprends pas pourquoi. Je me demande si ton classeur n’est pas corrompu ?

Private Sub SUPPRESSION_Click() ' Supprimer le rendez-vous selectionné
Dim Lo As ListObject, l As Long, CDt As Integer
  Application.ScreenUpdating = False
  
  Set Wrdv = Sheets("Feuil1")
  Dl = Wrdv.Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To Dl

        If Me.lblR.Caption = Wrdv.Cells(i, 1).Value Then
        Wrdv.Rows(i).Delete
        RAZ
        Exit For
      End If
    Next
    Application.Calculate     '*********** ligne ajoutée
    MsgBox "Le test à été supprimé."

    Unload Me

    
End Sub

Daniel

1 « J'aime »
3

Re,

Merci cela fonctionne.

Si tu dis " classeur corrompu " je devrai faire quoi ?

4

Il y a plusieurs options à tester. Ouvrir le classeur avec Libre Office ou Open office corrige parfois le problème. Par contre, il faut sauvegarder au préalable le code VBA et les userforms et les rétablir ensuite. Sinon, copier les feuilles et le code VBA dans un classeur neuf.

Tant que tu n’as pas d’autre problème, ne fais rien mais surveille le classeur.

Daniel

5

OK, Merci beaucoup pour ces infos, je vais surveiller.

A une prochaine fois

Rubis

6

Je me permets
Pourquoi tu ne mets pas ça directement dans ta cellule fusionnée ?

puisque tu ne comptes que les tests du jour !

=SI(Tab_RDV[Date]=AUJOURDHUI();SOMME(Tab_RDV[Comptage])&" Test aujourd'hui";"")
1 « J'aime »
7

Re taz,

Merci je vais essayer avec cela aussi . on en a jamais assez de solutions.

A une prochaine fois.

Rubis