XL 2010 Fonction resize

[chris66000]

Bonjour
j'utilise resize....
ActiveCell.Resize(1, 1).Select

mais je voudrais remplacer le 1 de colonne par la valeur d'une cellule qui varie a chaque fois..
je n'ai pas trouvé si quelqu'un a une idéee...je suis preneur
Merci

 

[vgendron]

Hello

Alors la.. mystère..
je viens de retélécharger le fichier du post 105
j'ai ouvert le fichier (il est vide; pas de reservation ni client)
j'ai juste cliqué sur le bouton "Réinitialiser le fichier"
et la; bah rien. pas de problème.. il fait bien ce qui est demandé sans bug

ensuite, j'ai créé une réservation avec un client
puis.. j'ai recliqué sur le bouton "Réinitialiser le fichier"
=> idem. tout est effacé sans bug...

Fais tu autre chose entre deux pour avoir le bug??

 

[vgendron]

Par contre, je viens de voir que quelque soit la réponse à la dernière question (voulez vous effacer les clients), il effaçait la liste

j'ai corrigé ici

pour le reste.. comme je ne reproduis pas le bug, je ne vois pas quoi faire

 

[chris66000]

Par contre, je viens de voir que quelque soit la réponse à la dernière question (voulez vous effacer les clients), il effaçait la liste

j'ai corrigé ici

pour le reste.. comme je ne reproduis pas le bug, je ne vois pas quoi faire

Bonjour,

je viens de le telecharger et toujours la meme erreur , je vais le mettre sur une clé et essayer sur un autre ordi dans la journée...je te tiens au courant merci encore

 

[vgendron]

Hello

peux tu faire un essai avec cette version?

en fait, quand je créé la formule "FormuleLingeTotal", j'ai juste mis le sumif en Majuscule (SUMIF)
ca ne devrait n'avoir aucun impact... ou alors.. il y a une subtilité de ta version Excel qui fait la différence..??

 

[chris66000]

Hello

peux tu faire un essai avec cette version?

en fait, quand je créé la formule "FormuleLingeTotal", j'ai juste mis le sumif en Majuscule (SUMIF)
ca ne devrait n'avoir aucun impact... ou alors.. il y a une subtilité de ta version Excel qui fait la différence..??

Bonsoir,
je viens de faire l'essai avec le fichier joint......ca bloque au même endroit !!! Désolé

 

[vgendron]

on va essayer autrement..
1) tu remplis le fichier de 1 ou 2 locations, tel que tu le fais habituellement
2) tu enregistres le fichier
3) tu lances la macro de reset pour vérifier que tu as bien le problème
et tu m'envoies le fichier enregistré en 2) (donc AVANT de lancer la macro)

niveau version excel: tu es bien en 2010 comme moi?
version française, ou Anglaise?

 

[chris66000]

Bonsoir, je suis en Excel 2007......1er bug

j'ai rempli 1 réservation et le bloque au même en droit

 

[vgendron]

Bon, c'est un mystère qui m'intrigue !!

je viens de lancer le reset sur ton fichier.. PAS de bug chez moi
on a donc un souci problablement lié à la version de Excel.. (as tu fait le test sur un autre PC ??)
j'ai vérifié, les "ListObjects" sont déjà connus sur ta version 2007 ==> d'ailleurs.. on aurait eu un bug depuis bien longtemps..
reste la formule==> la fonction Somme.si (traduite par SumIf en Anglais pour VBA) est aussi connue en Excel 2007==> donc normalement ca ne devrait pas poser de problème MAIS on va vérifier quand meme

dans la PJ: j'ai remplacé la formule par "TEST"
donc..
si le problème vient de cette fonction "somme.si"
ce que j'attend comme fonctionnement chez toi avec le fichier joint, c'est:
1) "TEST" apparait sur toute la ligne "Total" du Tableau de Location Linge
2) puisqu'on utilise aussi la fonction Somme.si, BUG un peu plus loin dans le code sur la ligne:

.Range.Item(1, 2).Formula = FormuleTotalSejour 'on place la formule

 

[chris66000]

Bonjour, je viens de tester......rien n'apparait dans Total linge...par contre quand je demande la reinitialisation des fichiers , j'obtiens bien la question" Voulez vous effacer tous les clients "
Non tout reste ok
Oui tout se remets bien a zéro sans bug

Désole de te prendre la tete

 

[vgendron]

Hello
Sur cette version, peux-tu juste cliquer sur le bouton 11 de la feuille formulaire
puis vérifier que
1) pas de bug (si bug: quelle ligne est surlignée en jaune ?)
2) le tableau "Tab_Loc_Linge" est selectionné
3) me renvoyer le fichier enregistré pour que je vois ce qui est mis sur la feuille formulaire (dans cette macro de test, j'enregistre des infos)

 

[chris66000]

Hello
Sur cette version, peux-tu juste cliquer sur le bouton 11 de la feuille formulaire
puis vérifier que
1) pas de bug (si bug: quelle ligne est surlignée en jaune ?)
2) le tableau "Tab_Loc_Linge" est selectionné
3) me renvoyer le fichier enregistré pour que je vois ce qui est mis sur la feuille formulaire (dans cette macro de test, j'enregistre des infos)

Bonsoir

Bug .ListObjects("Tab_Loc_Linge").Range.Item(51, 3).Formula = FormuleLingeTotal

 

[vgendron]

bon. je vois que le problème c'est la formule...
nouvel essai ici

idem
tu lances le bouton 11
tu enregistres et tu m'envoies

 

[vgendron]

Hello

Comme visiblement, c'est la formule qui pose problème, je l'ai changée pour avoir le meme résultat
je pense que le bug vient du fait que la formule initiale utilise des "références internes" à la table structurée
==> càd: utilisation du caractère "@" dans la formule
tu peux essayer un "Réinitialiser"

ce bug m'a aussi permis de voir que la formule pour les lignes suivantes (draps, torchon, tv...) n'est pas bonne
je l'ai donc changée également

à noter!! les tarifs associés (20 10 5 30...) ne sont pas bons
je m'explique: dans la feuille "Listes", les tarifs sont les memes pour TOUS les appartements (15 /10/5/30)

Mais dans la feuille Location, les tarifs ne correspondent pas
draps sont à 20 (au lieu de 15)
serviette à 10 (pour 10)
torchons à 5 (pour 5)
TV: à 30 pour l'appart 101, et 20 pour les autres

==> soit on définit un tarif pour chaque element en fonction de l'appart ( ( possiblité de les distinguer en agrandissant le tableau des tarifs pour faire comme pour le tableau "Tab_Linge)
==> soit on garde un seul tarif par élément quelque soit l'appart
==>on corrige la colonne B de la feuille Location

 

[chris66000]

Bonjour, Je viens de charger la nvlle version ... je regarde et te tiens au courant..
merci encore

Christian

 

[chris66000]

Bonjour,

J'ai gardé les mêmes tarifs pour le linge ...et apparemment tout fonctionne bien...
Ce soir ou demain je vais rentrer mes réservations , imprimer les contrats et regarder si tout va bien ...
on touche au but grace à ton travail
merci encore
Je te tiens au courant
Christian