> 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
Enceinte sans fil portable bluetooth JBL Flip Essential 2 à 69 €
69,00 € 99 € -30% @Amazon
Ecouteurs sans fil Bluetooth Xiaomi Redmi Buds 3 Lite à 20,52 €
20,52 € 32,99 € -38% @Amazon
Lecteur/graveur de CD/DVD externe USB à 19,55 €
19,55 € 25 € -22% @Amazon
SSD externe portable USB 3.1 Crucial X6 500 Go à 52,99 €
52,99 € 65,99 € -20% @Amazon
Portable 16 pouces Lenovo Legion 5i Pro (WQXGA 165Hz, Core i7, 32Go DDR5, 1To SSD, RTX3070) à 1599 €
1599 € 2299 € -30% @Lenovo
Mini PC Beelink Mini S (Celeron N5095, 8 Go RAM, SSD 256Go, Windows 11 Pro) à 179,56 €
179,56 € 259 € -31% @Amazon
Radio réveil Lenovo Smart Clock Essential avec assistant Google à 17,99 €
17,99 € 49 € -63% @Darty
LEGO 21325 Ideas Le Forgeron Médiéval à 133,99 €
133,99 € 179 € -25% @Fnac
Batterie portable Charmast 10000 mAh (USB C/ USB A/ 4 câbles intégrés) à 19,99 €
19,99 € 26,99 € -26% @Amazon
SSD Crucial P3 2 To (NVMe, PCIe, M.2, 3500 Mo/s) à 129,11 € livré
129,11 € 180 € -28% @Amazon

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