XL 2016 fonction recherche ou = dans une cellule qui ne se déclenche que si on ouvre une feuille

berru76

XLDnaute Occasionnel
Bonjour

En sachant que l'on peut avoir jusqu’à 96 inscrits
Que peut on écrire ou faire pour que la fonction "recherche" ou "=" de cellules d'une feuille ne se déclenchent que lorsque on ouvre celle ci
ci joint un exemple
Merci
 

Pièces jointes

  • = ou recherche.xlsm
    297 KB · Affichages: 16
Solution
Bonjour Berru, Chalet,
Le moyen le plus est que dans les feuilles ... il n'y ait aucune formule et que l'importation des données se fasse en cliquant sur le bouton Click me.
Avec votre code ainsi modifié :
VB:
Private Sub Cadre1_Cliquer()
Dim Derlig As Integer, L As Integer
Call MasquerFeuilles
Dim ws As Worksheet
A = Range("G5")
For Each ws In ThisWorkbook.Worksheets
    If ws.Name = "Inscriptions" Or ws.Name = "" & A & "" Then
        ws.Visible = xlSheetVisible
    End If
Next ws
Sheets("" & A & "").Activate
Derlig = Sheets("Inscriptions").Range("A65500").End(xlUp).Row
Range("C4:C1000").ClearContents
For L = 4 To Derlig
    Cells(L, "C") = Sheets("Inscriptions").Cells(L, "C")
Next L
MsgBox Range("C65500").End(xlUp).Row - 3 & " lignes...

CHALET53

XLDnaute Barbatruc
Bonjour
Peut-etre avec la gestion événementielle (et une boucle sur les 96 joueurs) qui se déclenche à l'activation de la feuille
Avec confirmation si la feuille contient déjà des noms
a+
 

Pièces jointes

  • Berru ou recherche.xlsm
    287.3 KB · Affichages: 4
Dernière édition:

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Berru, Chalet,
Le moyen le plus est que dans les feuilles ... il n'y ait aucune formule et que l'importation des données se fasse en cliquant sur le bouton Click me.
Avec votre code ainsi modifié :
VB:
Private Sub Cadre1_Cliquer()
Dim Derlig As Integer, L As Integer
Call MasquerFeuilles
Dim ws As Worksheet
A = Range("G5")
For Each ws In ThisWorkbook.Worksheets
    If ws.Name = "Inscriptions" Or ws.Name = "" & A & "" Then
        ws.Visible = xlSheetVisible
    End If
Next ws
Sheets("" & A & "").Activate
Derlig = Sheets("Inscriptions").Range("A65500").End(xlUp).Row
Range("C4:C1000").ClearContents
For L = 4 To Derlig
    Cells(L, "C") = Sheets("Inscriptions").Cells(L, "C")
Next L
MsgBox Range("C65500").End(xlUp).Row - 3 & " lignes importées" ' A supprimer
End Sub
 

Pièces jointes

  • ou recherche2.xlsm
    279.8 KB · Affichages: 4
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 193
Messages
2 086 062
Membres
103 110
dernier inscrit
Privé