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

Problème de retranscription de formule excel* ( *Dans celllules )en VBA pour useform.

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

mistercoke

XLDnaute Junior
Bonjour les xldiens,

Cela fait un moment que je bute sur le sujet, c'est pourquoi je viens solliciter votre aide. J'ai réussi a obtenir ce que je voulais à l'aide de formule classic dans les cellules et j'aimerais retranscrire ces fonctions sous vba d'après un lancement d'un useform. J'ai volontairement mis dans VB les formules brutes de "pomme" ( Couleur Verte ) car toutes mes modifs perso m'amènent des erreurs de syntaxe ou bien #VALUE.
Si vous avez des idées. N'hésitez pas à mettre des commentaires sous VB c'est ainsi que j'ai réussi a apprendre avec votre aide ce langage.

D'avance un gros merci, je vais voir sur le net si je trouve quelque chose.

Voici un bout du code dans le paramètrage de "Valider"
With ws
dl = .Range("B65000").End(xlUp).Row + 1
.Cells(dl, 2) = sEquipe
.Cells(dl, 3) = sCycle
.Cells(dl, 4) = TextBox1
If TextBox4 <> "" Then .Cells(dl, 5) = CDbl(TextBox4)
If TextBox5 <> "" Then .Cells(dl, 6) = CDbl(TextBox5)
If TextBox8 <> "" Then .Cells(dl, 7) = CDbl(TextBox8)
If TextBox9 <> "" Then .Cells(dl, 8) = CDbl(TextBox9)
.Cells(dl, 9) = TextBox10
.Cells(dl, 10) = (CDbl(TextBox5) * 100) / (CDbl(TextBox4) * 24)
.Cells(dl, 11) = (CDbl(TextBox9) * 100) / (CDbl(TextBox8) * 24)
.Cells(dl, 1) = Date
'.Cells(dl, 12) = INT(Mod(INT((Date-1)/7)+3/5;52+5/28))+1)
'.Cells(dl,13)=LOOKUP(Date;Bibliothèque!$N$6:$BN$6;Bibliothèque!$N$7:$BN$7))
'.Cells(dl,14)=LOOKUP(Date;Bibliothèque!$N$6:$BN$6;Bibliothèque!$N$8:$BN$8))
'.Cells(dl,15)=CONCATENATE((cells(dl,13);M12;((Cells(dl,14);N12) End With


@+les pros😱
 

Pièces jointes

Trier par date Trier par votes
Re : Problème de retranscription de formule excel* ( *Dans celllules )en VBA pour use

Bonjour,

Mod : touche F1 pour voir la syntaxe
LOOKUP : connais pas (Xl 2000 probablement)
CONCATENATE : remplacer par des & entre les éléments

Sinon en dépannage, tu peux appeler les fonctions de la feuille avec WorksheetFunction.NomDeLaFonction

A+
 
Vote positif 0 Vote négatif
Re : Problème de retranscription de formule excel* ( *Dans celllules )en VBA pour use

Bonjour Hippolite,

Merci d'avoir pris la peine de te pencher sur mon problème, mais malgrés les aides excel je n'y arrive pas. Je vais continuer a chercher sur d'autre forum également mais pour l'instant c'est infructueux. Au pire je laisserai les formules dans les cellules mais je souhaitais que ca prenne moins de place. Nous n'avons pas acess ( Au boulot ) et ce fichier me sert de base de donné. 65000 lignes avec ces formules prennent de la place. J'ai déjà réduit considérablement la taille en mettant les formules dans VBA mais mon fichier final fait encore 19Meg sans données.

Merci quand même. Mais je vais voir en appelant les fonctions de la feuille si je trouve rien.

Ciao Ciao et @+
 
Vote positif 0 Vote négatif
Re : Problème de retranscription de formule excel* ( *Dans celllules )en VBA pour use

Re,
Code: 
CONCATENATE((cells(dl,13);M12;((Cel ls(dl,14);N12)
- il y a des parenthèses en trop
- Quand on bascule de la feuille vers VBA, remplacer les ";" par des ","

Ce qui devrait donner
Code: 
CONCATENATE(Cells(dl, 13), M12, Cells(dl, 14), N12)
 ou bien
Cells(dl, 13) & M12 & Cells(dl, 14) & N12
A+
 
Vote positif 0 Vote négatif
Re : Problème de retranscription de formule excel* ( *Dans celllules )en VBA pour use

Re,
Pour les deuxième et troisième formules, je pense que ça devrait donner quelque chose comme :
Code: 
HLookup(Date, Sheets("Bibliothèque").Range("$N$6:$BN$7"), 2)
HLookup(Date, Sheets("Bibliothèque").Range("$N$6:$BN$8"), 3)

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Problème de retranscription de formule excel* ( *Dans celllules )en VBA pour use

Super Hippolite,

Bon g testé la formule avec mod et int mais cela me revoi une valeur de 31 en date du10/03/2011. Je suis donc passé par cette formule : Cells(dl, 12) = Format(Date, "ww", vbMonday, vbFirstFourDays) du post suivant :https://www.excel-downloads.com/threads/calcul-semaine-vba.153077/. Même si cela génère des erreurs en 2019 -2031 et autre. Je m'en contenterais.

Je vais voir pour le reste et je te tiens au courrant.

Merci encore pour ta participation, avec les infos a droite a gauche j'arrive a avancer.
 
Vote positif 0 Vote négatif
Re : Problème de retranscription de formule excel* ( *Dans celllules )en VBA pour use

Re,

Avec un besoin bien exprimé, la réponse sera mieux ciblée.
Je m'étais contenté de retranscrire la formule en l'état.

Post#7 : si c'est le numéro de semaine que tu recherches, j'avais fait une compilation de ce que j'avais trouvé sur les forums (formules et VBA).
Ce qui est en vert fonctionne correctement.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Problème de retranscription de formule excel* ( *Dans celllules )en VBA pour use

hi Hippolite,

Pour la définition de la semaine calendaire j'ai utilisé la formule suivante. ( Malgrés les erreurs possible en 2019 et autres )
.Cells(dl, 12) = Format(Date, "ww", vbMonday, vbFirstFourDays)

Pour le Vlookup sous VBA, la syntaxe diffère sous VBA. ( La valeur recherché se trouve a la fin et non au début lorsque c'est saisie dans une cellule.Ce qui donne :
.Cells(dl, 13) = Application.WorksheetFunction.VLookup(Sheets("Bibliothèque").Range("$N$6:$BN$6"), Sheets("Bibliothèque").Range("$N$7:$BN$7"), Format(Date, "ww", vbMonday, vbFirstFourDays), False)

.Cells(dl, 14) = Application.WorksheetFunction.VLookup(Sheets("Bibliothèque").Range("$N$6:$BN$6"), Sheets("Bibliothèque").Range("$N$8:$BN$8"), Format(Date, "ww", vbMonday, vbFirstFourDays), False)

Pour le concatener tu avais tout bon cela se traduit par :
.Cells(dl, 15) = "P" & Cells(dl, 13) & "S" & Cells(dl, 14)

Et tout ca, ca marche. Un gros merci mon grand je peux désormais passer a la suite. Plus d'une journée de recherche pour gagner de la place. Avant :23 939KB ( 65 000 lignes traitées ) après avoir tout mis en VBA 3 303KB.

Moralité c'est de la balle😎, yahoouuuu Merci Hipollite et bien le bonjjour aux xldiens.🙂🙂

Ciaociao😛😛
 
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

Discussions similaires

R
  • Question Question
XL 2016 excel 2016 VBA
Réponses
2
Affichages
361
rebatte
R
R
  • Résolu(e)
XL 2016 extraire des données
Réponses
2
Affichages
709
rebatte
R
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
F
  • Question Question
XL 2019 erreur 1004
Réponses
8
Affichages
451
florian50470
F
P
  • Question Question
XL 2019 Ajouter une date de fin pour un débit/crédit récurrent via VBA
2
Réponses
19
Affichages
3 K
herve62
E
  • Résolu(e)
Microsoft 365 Problème d'organisation des colonnes dans une ListBox en VBA Excel
Réponses
2
Affichages
822
eCHO
E
B
  • Question Question
Microsoft 365 formulaire VBA problème
Réponses
3
Affichages
852
herve62
  • Résolu(e)
XL 2021 Doublons, Colorer partie de ligne en fonction de valeur dans colonne défini
Réponses
2
Affichages
454
Nicolas JACQUIN
P
  • Résolu(e)
Microsoft 365 Erreur d'exécution "9" :L'indice n'appartient pas à la sélection
Réponses
9
Affichages
1 K
pelerin65
P
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
S
  • Résolu(e)
Microsoft 365 CODE pour vider un formulaire en évitant les doublons
Réponses
11
Affichages
1 K
sgangbadjo
S
M
  • Question Question
Microsoft 365 Programme trop lent
Réponses
12
Affichages
883
Hasco
D
  • Question Question
XL 2016 Problème de conversion sur VBA Excel
Réponses
1
Affichages
446
vgendron
S
  • Résolu(e)
XL 2010 non fonctionnement du code VBA sur un autre pc
Réponses
13
Affichages
2 K
Stedemart
S
S
  • Question Question
XL 2019 Transfer de données du formulaire vers un tableau après click sur le CommandButton1.
Réponses
4
Affichages
977
sgangbadjo
S
  • Question Question
XL 2019 Problème avec WorksheetFunction
Réponses
2
Affichages
1 K
cp4
D
  • Question Question
XL 2013 Mise en place d'une boucle pour copier des données dans une case différentes en fonction de la valeur d'une combobox
Réponses
13
Affichages
1 K
drumeiro
D
A
  • Résolu(e)
Microsoft 365 Trop de caractères de continuité de ligne
Réponses
9
Affichages
759
TooFatBoy
P
  • Question Question
XL 2016 Userform command button recherche
Réponses
7
Affichages
1 K
plaiiz
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…