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

Formule .FIND dans une autre feuille

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ptityoyo
  • 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
P

ptityoyo

Guest
Bonsoir à tous,

Je me retourne une nouvelle fois vers vous afin de trouver de l'aide.
Je possède actuellement une formule VBA de recherche :

If Not Sheets("Feuil1").Range("O1:O13").Find("2") Is Nothing Then OLEObjects("commandbutton2").Enabled = True Else OLEObjects("commandbutton2").Enabled = False

Cependant lorsque je souhaite modifier le cadre de la recherche dans la feuille 2, cela ne marche plus.
Pour cela je change Feuil1 en Feuil2 et à partir de là, je n'ai plus aucune interaction.
j'imagine que le problème proviens de "sheets("feuil2)".

Ci-joint une copie du fichier.

Merci
Cordialement,
 

Pièces jointes

Trier par date Trier par votes
Re : Formule .FIND dans une autre feuille

Bonsoir ptiyoyo,

En testant ton code comme ci-dessous modifié, tout fonctionne parfaitement :

Code: 
Sub Worksheet_Change(ByVal Target As Range)


If Not Sheets("Feuil2").Range("O1:O13").Find("2") Is Nothing Then OLEObjects("commandbutton2").Enabled = True Else OLEObjects("commandbutton2").Enabled = False
If Not Sheets("Feuil2").Range("O1:O13").Find("3") Is Nothing Then OLEObjects("commandbutton3").Enabled = True Else OLEObjects("commandbutton3").Enabled = False
If Not Sheets("Feuil2").Range("O1:O13").Find("4") Is Nothing Then OLEObjects("commandbutton4").Enabled = True Else OLEObjects("commandbutton4").Enabled = False
If Not Sheets("Feuil2").Range("O1:O13").Find("5") Is Nothing Then OLEObjects("commandbutton5").Enabled = True Else OLEObjects("commandbutton5").Enabled = False
If Not Sheets("Feuil2").Range("O1:O13").Find("6") Is Nothing Then OLEObjects("commandbutton6").Enabled = True Else OLEObjects("commandbutton6").Enabled = False
If Not Sheets("Feuil2").Range("O1:O13").Find("7") Is Nothing Then OLEObjects("commandbutton7").Enabled = True Else OLEObjects("commandbutton7").Enabled = False
If Not Sheets("Feuil2").Range("O1:O13").Find("8") Is Nothing Then OLEObjects("commandbutton8").Enabled = True Else OLEObjects("commandbutton8").Enabled = False
If Not Sheets("Feuil2").Range("O1:O13").Find("9") Is Nothing Then OLEObjects("commandbutton9").Enabled = True Else OLEObjects("commandbutton9").Enabled = False
If Not Sheets("Feuil2").Range("O1:O13").Find("10") Is Nothing Then OLEObjects("commandbutton10").Enabled = True Else OLEObjects("commandbutton10").Enabled = False
If Not Sheets("Feuil2").Range("O1:O13").Find("11") Is Nothing Then OLEObjects("commandbutton11").Enabled = True Else OLEObjects("commandbutton11").Enabled = False

End Sub
Tu peux tester sur la copie de ton fichier ci-jointe ?

Cordialement.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Formule .FIND dans une autre feuille

Bonsoir,

On pourrait aussi voir du côté ...

Code: 
Sub Worksheet_Change(ByVal Target As Range)
Dim X As Byte

For X = 2 To 11
   If Not Sheets("Feuil2").Range("O1:O13").Find(X) Is Nothing Then OLEObjects("commandbutton" & X).Enabled = True Else OLEObjects("commandbutton" & X).Enabled = False
Next X

End Sub

G
 
Vote positif 0 Vote négatif
Re : Formule .FIND dans une autre feuille

Re,

Merci pour vos solutions, elle marche très bien.
Cependant je viens de faire une découverte, si pour moi cela ne marcher pas au départ, c'est que la plage de recherche correspond à des cellules avec formules d'où l'apparition du problème.
Y'a t'il possibilité de mettre dans la formule une composante pour que celui-ci cherche le résultat et non les formules.
Car j'imagine qu'en insérant les formules de calcul dans le code VBA, cela doit marcher mais ne doit pas être chose évidente.


Ci-joint le fichier pour visualiser les formules.

Cordialement,
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Formule .FIND dans une autre feuille

Salut le forum

Il suffit d'ajouter un paramètre à ta fonction FIND
Code: 
If Not Sheets("Feuil2").Range("H15:H31").Find("N01", LookIn:=xlValues) Is Nothing Then OLEObjects("DF1N01").Enabled = True Else OLEObjects("DF1N01").Enabled = False
Mytå
 
Vote positif 0 Vote négatif
Re : Formule .FIND dans une autre feuille

Bonjour à tous,

Merci pour vos réponse aussi tardive.
Un grand merci à vous trois j'ai résolu mon petit problème grâce à vous.
Gelinotte, tes solutions sont impeccable surtout celle où tu procède par étapes : désactivation puis activation.
Cela me fait penser à du Grafcet.

Cordialement,
 
Vote positif 0 Vote négatif
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

P
  • Résolu(e)
XL 2021 peut on mettre plusieurs fonctions si erreur index les une à la suite des autres
Réponses
9
Affichages
276
PR.
P
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
  • Résolu(e)
Microsoft 365 Formule entre 2 feuilles
Réponses
7
Affichages
318
TooFatBoy
A
  • Question Question
XL pour MAC Problème avec une macro dupliquant une feuille contenant une macro
Réponses
8
Affichages
388
AlineJ
A
  • Question Question
Microsoft 365 ajouter une formule dans une ligne de code
Réponses
5
Affichages
301
Dranreb
F
  • Résolu(e)
XL 2021 Génération d'un fichier TXT à partir d'une feuille Excel
Réponses
3
Affichages
432
fd.30
F
W
  • Résolu(e)
XL 2016 Écriture correcte d'un Transpose() avec FormulaLocal à partir de données d'une autre feuille
Réponses
6
Affichages
371
Webperegrino
W
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
327
PRy
P
A
  • Question Question
Microsoft 365 Vérifier si un texte existe dans une cellule contenant une liste
Réponses
9
Affichages
594
arzac
A
S
  • Résolu(e)
Microsoft 365 Problème de référence à une Feuil de calcul avec .FormulaLocal
Réponses
6
Affichages
480
sylvanu
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
882
NONO14
N
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
411
lestoiles1
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
731
job75
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
485
Anthony_51
A
V
  • Question Question
Autres Exporter les données vers un autre onglet sans laisser d'espaces entre les lignes
Réponses
13
Affichages
607
Vakarm31
V
J
  • Question Question
Microsoft 365 VBA transformer une formule au format texte en formule dans excel
Réponses
2
Affichages
306
jujulili
J
D
  • Question Question
XL 2016 Plusieurs conditions dans une cellule
2
Réponses
16
Affichages
987
TooFatBoy
S
  • Question Question
Microsoft 365 Calcul du nb de jours d'une période rapportée en nb de jours par mois
Réponses
3
Affichages
583
Sampras63
S
  • Question Question
Microsoft 365 Comment exporter certaines feuilles d'un classeur dans un nouveau classeur.
Réponses
2
Affichages
521
Jacky67
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
545
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…