> Tous les forums > Forum Bureautique
 Programmation vba excel 2007Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
BZH35
  Posté le 24/05/2021 @ 14:33 
Aller en bas de la page 
Petit astucien

Normal 0 21 false false false FR X-NONE X-NONE /* Style Definitions */ table.MsoNormalTable {mso-style-name:"Tableau Normal"; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; mso-style-priority:99; mso-style-qformat:yes; mso-style-parent:""; mso-padding-alt:0cm 5.4pt 0cm 5.4pt; mso-para-margin:0cm; mso-para-margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:11.0pt; font-family:"Calibri","sans-serif"; mso-ascii-font-family:Calibri; mso-ascii-theme-font:minor-latin; mso-fareast-font-family:"Times New Roman"; mso-fareast-theme-font:minor-fareast; mso-hansi-font-family:Calibri; mso-hansi-theme-font:minor-latin; mso-bidi-font-family:"Times New Roman"; mso-bidi-theme-font:minor-bidi;}

Bonjour,

Je suis sous Windows 10

Programmation VBA sous Excel 2007

Je ne comprends pas pourquoi ça marche avec la feuille TOTO et pas la feuille TATA.

Mon classeur à 4 feuilles

Sur la feuille ACCUEIL, j'ai un bouton qui me permet d'afficher l'userform COPROPRIETAIRE

Sur cet userform il y a un Combobox LISTE_COPRO qui à la liste des noms des copropriétaires

Et un autre Combobox LISTE_NUMERO qui à la liste des numéros des copropriétaires

Après avoir sélectionné un nom les informations (feuille TOTO) concernant ce nom s'affichent bien

par une séquence de recherche avec Find et un appel au module AFFICHAGE1

Par contre la même séquence mais avec la feuille TATA j'ai Erreur d'exécution 91 et ma variable

CELLULE = Nothing

Après plusieurs jours de recherches sur différents forums je n'arrive pas à solutionner cette anomalie (il est vrai qu'à 73 ans les neurones ne sont plus au top)

Merci d'avance à tous ceux ou celles qui m'apporteront la solution

Cordialement

BZH35

Lien pour récupérer le fichier :

https://www.cjoint.com/c/KEykizzsNwm





[Configuration automatique à compléter]
Windows 10
Firefox 88.0

Publicité
Lui
 Posté le 24/05/2021 à 17:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Il faut enlever les guillemets à la variable NOM_RECHERCHE


Set CELLULE = Worksheets("TATA").Range("C8:C31").Find(What:="NOM_RECHERCHE")

Et aussi mettre en "dur" les noms dans la feuille tata, il ne doivent pas faire référence à la feuille toto, faire un copier sur la liste des noms, puis collage spécial, choisir que les valeurs

Dans le module1,

Le Textbox LOT_TATA n'existe pas, je suppose que c'est LOT_TANTIEME

COPROPRIETAIRE.LOT_TATA = Sheets("TATA").Cells(Ligne, 14)

Cordialement,



Modifié par Lui le 24/05/2021 18:08
BZH35
 Posté le 25/05/2021 à 18:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci beaucoup

Les erreurs de guillemets, de nom de variable ou de feuille.....grosse fatigue et on finit par ne plus savoir ce que l'on a changé ou pas

Pour ce qui est de mettre "en dur" j'aurai jamais trouvé.... Bravo

En fait lorsqu'on change le Nom du copropriétaire dans la feuille TOTO il est modifié automatiquement dans la feuille TATA

Pour ce qui est des variables, du nom des feuilles etc...en majuscule est du fait que lorsque j'ai commencé à programmer dans les années 70 à l'aide de petits ouvrages des Éditions PSI j'avais beaucoup de difficultés à différencier les variables et les mots clé basic. Faut pas m'en vouloir car j'ai gardé cette mauvaise habitude.

Encore une fois grand merci de votre aide

Cordialement BZH35

Lui
 Posté le 26/05/2021 à 19:24 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour ,

Super, merci pour ce retour, pensez à noter votre sujet comme "résolu"

Cordialement

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
114,94 €Carte mère MSI B550 Gaming Plus à 114,94 € livrée
Valable jusqu'au 05 Août

Amazon Allemagne fait une promotion sur la carte mère MSI B550 Gaming Plus à 107,62 €. Comptez 7,32 € pour la livraison en France soit un total de 114,94 € livrée. On la trouve ailleurs à partir de 130 €. Embarquant le chipset AMD B550, la carte mère MSI MPG B550 GAMING PLUS avec son socket AM4 est conçue pour accueillir les processeurs AMD Ryzen de 3ème génération. Elle permettra de composer une configuration Gaming disposant des dernières avancées technologiques : PCI-Express 4.0 pour les cartes graphiques et les SSD M.2, gestion de 128 Go de RAM DDR4. Tout est là pour une expérience gaming enivrante, à vous de jouer !


> Voir l'offre
19,14 €Clé USB Sandisk Luxe 128 Go à double connectique USB 3.1 Type A et C à 19,14 €
Valable jusqu'au 05 Août

Amazon fait une promotion sur la clé USB Sandisk Luxe 128 Go à double connectique USB 3.1 Type A et C qui passe à 19,14 €. Cette clé USB  dispose d'un connecteur USB Type C et d'un connecteur classique de type A. Grâce à elle, transférez en toute simplicité et rapidement (jusqu'à 150 Mo/s) vos fichiers entre vos smartphones, tablettes et ordinateurs. On la trouve ailleurs à plus de 30 €.


> Voir l'offre
89,09 €SSD Crucial MX500 1 To à 89,09 € livré
Valable jusqu'au 05 Août

Amazon Espagne propose actuellement le SSD Crucial MX500 1 To à 84,50 € (avec la TVA ajustée). Comptez 4,59 € pour la livraison en France soit un total de 89,09 € livré. On le trouve ailleurs à partir de 105 €. Ce SSD salué par la critique par son rapport qualité prix imbattable offre des débits de 560 Mo/s en lecture et 510 Mo/s en écriture. Il est garanti 5 ans. 

Vous pouvez utiliser votre compte Amazon France sur Amazon Espagne et il n'y a pas de douane.


> Voir l'offre

Sujets relatifs
Aucun sujet pertinent lié trouvé
 > Tous les forums > Forum Bureautique