Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion berru76
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

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

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...
Trier par date Trier par votes
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

Dernière édition:
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
424
Phil69970
O
  • Question Question
XL 2013 Planification automatique des rdv d'intervention en fonction des dates disponibles
Réponses
3
Affichages
329
cathodique
M
  • Question Question
XL 2021 Avoir des tableaux liés à une base de données
2
Réponses
24
Affichages
783
Nain porte quoi
N
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
760
Nel'
N
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
287
Lu76Fer
G
  • Question Question
Microsoft 365 Labels qui se dimensionnent tous seuls.
Réponses
3
Affichages
223
GClaire
G
P
  • Résolu(e)
Microsoft 365 Modifier le texte dans une forme
Réponses
7
Affichages
394
pat66
P
E
  • Question Question
Microsoft 365 effacer formule en fonction de ce qui a été saisi dans une autre cellule
Réponses
6
Affichages
523
Phil69970
Astuce du jour (Lister les cellule avec formule avec référence circulaire)
Réponses
3
Affichages
300
Dranreb
W
  • Résolu(e)
XL 2016 Ordonner une cellule ou un pavé de cellules contenant des chr(10)
Réponses
5
Affichages
637
Webperegrino
W
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
579
Phil69970
P
  • Question Question
Microsoft 365 Fonction filtre avec si
2 3
Réponses
40
Affichages
3 K
Pulpito
P
P
  • Question Question
XL 2016 Automatiser une formule RECHERCHEV avec un nom de fichier différent en fonction du résultat d'une cellule
Réponses
10
Affichages
943
Phil69970
F
  • Résolu(e)
XL 2021 Figer une sélection de cellules quand on se déplace dans la feuille
Réponses
4
Affichages
484
fanou06
F
  • Question Question
XL 2010 mon problème c'est : qu'une cellule avec une fonction = cellule non vide
Réponses
3
Affichages
1 K
Lynattendu
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
651
jeff1494
M
  • Résolu(e)
Microsoft 365 Gestion numéros de pages du classeur dans une cellule
2
Réponses
16
Affichages
2 K
sousou
C
  • Question Question
XL 2021 case à cocher dans ListView impacte une cellule de feuille
Réponses
1
Affichages
885
fanch55
POWERQUERY :: Evaluation par tranche dans une liste de sous-listes
Réponses
1
Affichages
377
oguruma
  • Résolu(e)
XL 2021 SI OU ET - rajouter une condition supplémentaire
2
Réponses
26
Affichages
2 K
JoBar57
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…