XL 2016 Remplir ligne via un userform

Fabien62

XLDnaute Occasionnel

• 31 Octobre 2018

• #2

Bonjour à tous,

J'ai trouvé un code sur le forum que j'ai modifié pour mon besoin sur les colonnes, il répond à mon besoin, reste la partie userform

VB:

Private Sub AffMasq(Optional MesColonnes As String = "O:AP")
Range(MesColonnes).EntireColumn.Hidden = Not Range(MesColonnes).EntireColumn.Hidden
End Sub
Sub Colonnes()
'Par défaut affiche/masque les colonnes O et AP
AffMasq
End Sub

Merci

Cordialement

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 31 Octobre 2018

• #3

Un essai
Les contrôles sont encore insuffisants
a+

 

Pièces jointes

• Fabien62 Planning Charge 2019 V3 au 26.10 - Copie.xlsm

  271.3 KB · Affichages: 37

Vote positif 0 Vote négatif

Fabien62

XLDnaute Occasionnel

• 31 Octobre 2018

• #4

Bonsoir Chalet53,

C'est déjà très gentil d'y avoir jeté un oeil, dans l'idée c'est exactement ce qu'il me faut, par contre ça semble planter la partie VBA de l'onglet planning.

Je dois aussi rectifier les formules dans la partie bilan.

Une question supplémentaire, j'ai d'autres fichiers que ma femme utilise au travail qui font référence à l'onglet datas, mais à chaque fois, elle doit faire un copier coller de ce qu'il y a dans les datas si elle ajoute un client, j'aimeras savoir si on peut créé un fichier de type "database" dans un autre fichier excel reprennent l'onglet datas auquel les 5 autres fichiers ferait référence.

Je vous remercie

Cordialement

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 1 Novembre 2018

• #5

Après de longues recherches, il s'avère que le problème existait déjà sur le fichier initial
Le problème survient lorsqu'on modifie le régime 5 (colonne AF) :faire le test sur la ligne 2
Ce problème n'arrive pas sur les autres colonnes concernant le régime
Sans doute un problème dans les formules très complexe (voire trop complexe pour moi)

a+

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 2 Novembre 2018

• #6

J'ai fait quelques modifications pour rendre l'utilisation possible directement ou via l'USF
Je n'ai pas résolu le problème de la feuille Planning réservation : que devrait-on avoir dans la colonne AG ?
Pour l'instant, j'ai neutralisé l'instruction qui plante à l'ouverture de la feuille Planning réservation

 

Pièces jointes

• Fabien62 Planning Charge 2019 V3 au 26.10 - Copie.xlsm

  282.2 KB · Affichages: 26

Dernière édition: 2 Novembre 2018

Vote positif 0 Vote négatif

Fabien62

XLDnaute Occasionnel

• 2 Novembre 2018

• #7

Bonjour Chalet53,

Voilà j'ai rectifié toutes les formules et le problème de la page planning en même temps

Je n'ai pas compris le but de vos dernières modifs, dans le fichier joint à ma réponse, dans le userform, le type chambre n'apparaît pas, je ne comprend pas pourquoi (j'ai fais un copié/collé j'avoue)

Est-ce qu'on pourrait rendre le userform un peu plus esthétique ? notamment augmenter la taille de police dans les cases à remplir par exemple

Je bloque sur ma formule de gratuité, je dois faire une réduction de 50% par nuit sur une chambre de 4 personnes la plus chère de toutes parmi les 7 possibilités par lignes, j'ai mis un exemple en ligne 2 avec un début de formule en AT2, dans cette exemple bien qu'il y ai deux possibilité, je devrais faire 50% de 216 € pour 3 nuits soit 216x3x0,5 = 324 € ; mon résultat est faux car il fait le calcul sur la chambre la moins chère, il me manque donc une condition.

Merci beaucoup pour votre aide préciseuse

Cordialement

 

Pièces jointes

• Planning Charge 2019 v3 - Dév - Copie.xlsm

  266.8 KB · Affichages: 26

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 2 Novembre 2018

• #8

Où est passé le Userform ?

 

Vote positif 0 Vote négatif

Fabien62

XLDnaute Occasionnel

• 2 Novembre 2018

• #9

Colonnes BD/BE j'ai juste déplacé le bouton sur la droite pour le moment, j'avais aussi oublié d'enlevé la protection dans mon post précédent

Cdlt

 

Pièces jointes

• Planning Charge 2019 v3 - Dév - Copie.xlsm

  266.8 KB · Affichages: 25

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 2 Novembre 2018

• #10

Sur ton fichier, un essai pour la réduction

dans le dernier fichier que tu m'as transmis, le Userform a disparu et tous les programmes VBA

 

Pièces jointes

• Fabien62 Réduction Planning Charge 2019 v3 - Dév - Copie.xlsm

  241.9 KB · Affichages: 25

Vote positif 0 Vote négatif

Fabien62

XLDnaute Occasionnel

• 2 Novembre 2018

• #11

Sur celui d'il y a 47 minutes tout est dessus, c'est bizarre ca, j'ai accès à tout je vous bien le VBA et le userform

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 2 Novembre 2018

• #12

ok c'est bon
La formule correspond-elle à ce que tu attends ?

 

Vote positif 0 Vote négatif

Fabien62

XLDnaute Occasionnel

• 2 Novembre 2018

• #13

Voici la formule adaptée à la gratuité, votre essai m'a été d'une grande aide

=SI($L2="Annulé";"";SI($J2<=40;"";SI($J2>40;MAX(SI(O2="4Pers";D2*R2;0);SI(S2="4Pers";D2*V2;0);SI(W2="4Pers";D2*Z2;0);SI(AA2="4Pers";D2*AD2;0);SI(AE2="4Pers";D2*AH2;0);SI(AI2="4Pers";D2*AL2;0);SI(AM2="4Pers";D2*AP2;0))*0,5)))

Je ne sais pour qu'elle raison, elle me renvoi 0 alors qu'il n'y a pas de 4Pers, j'aimerais qu'elle me renvoi un vide, une idée ?

Cdlt

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 2 Novembre 2018

• #14

Pourquoi tu rajoutes Si( J2>40
S'il n'est pas inférieur ou égal à 40, il ne peut être que supérieur, Non!!!

=SI($L2="Annulé";"";SI($J2<=40;"";MAX(SI(O2="4Pers";Q2*R2;0);SI(S2="4Pers";U2*V2;0);SI(W2="4Pers";Y2*Z2;0);SI(AA2="4Pers";AC2*AD2;0);SI(AE2="4Pers";AG2*AH2;0);SI(AI2="4Pers";AK2*AL2;0);SI(AM2="4Pers";AO2*AP2;0))*0.5))

 

Vote positif 0 Vote négatif

Fabien62

XLDnaute Occasionnel

• 2 Novembre 2018

• #15

Oui j'ai modifié mais le zéro subsiste, tant pis

 

Vote positif 0 Vote négatif