89 résultats trouvés

par spage
17 janvier 2020, 15:01
Forum : Excel - VBA
Sujet : Bypass de Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel
Réponses : 4
Vues : 70

Re: Bypass de Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel

Bon matin à tous,

J'ai trouvé tout seul comme un grand… pendant la nuit… j'ai eu une vision.


Je n'avais qu'à désactiver les macros et permettre l'accès au développeur section Projet.



Bonne journée.
par spage
16 janvier 2020, 15:10
Forum : Excel - VBA
Sujet : Bypass de Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel
Réponses : 4
Vues : 70

Re: Bypass de Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel

BOnjour i20100, Merci, ça fonctionne très bien, Cependant je me retrouve avec le problème de ne pas être capable d'enregistrer mon fichier vierge puisque la macro ENRsous comporte des validations sur le contenu des cellules avant de se rendre à application.enableEvent = False. Une piste de solution…...
par spage
15 janvier 2020, 20:55
Forum : Excel - VBA
Sujet : Bypass de Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel
Réponses : 4
Vues : 70

Bypass de Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel

Bonjour à tous, J'ai une petite problématique de "macro perpétuelle". J'aurais besoin d'un coup de main. 1- Je souhaite que les demandeurs ne puissent pas enregistrer le fichier sans passer par une macro de validation. …. ça fonctionne bien avec Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Bool...
par spage
12 décembre 2019, 18:13
Forum : Excel - VBA
Sujet : EXTRAIRE 1 element d'une chaine avec separateur
Réponses : 11
Vues : 74

Re: EXTRAIRE 1 element d'une chaine avec separateur

Désolé,

J'avais oublié de joindre le fichier.
Classeur24.xlsx
(9.17 Kio) Téléchargé 3 fois

Bonne journée.
par spage
12 décembre 2019, 17:54
Forum : Excel - VBA
Sujet : EXTRAIRE 1 element d'une chaine avec separateur
Réponses : 11
Vues : 74

Re: EXTRAIRE 1 element d'une chaine avec separateur

Bonjour DIGI,


Si tes données ont toujours le même nombre de Digits entre les traits d'union
Tu peux le faire avec un STXT()

=stxt(cellule;caractère de début;nombre de caractères)


Sinon avec une série de STXT(cherche("-"))
par spage
10 décembre 2019, 17:59
Forum : Excel - VBA
Sujet : Somme.si.ens - deux critères à plusieurs valeurs
Réponses : 6
Vues : 93

Re: Somme.si.ens - deux critères à plusieurs valeurs

Rebonjour à tous ceux qui feraient une recherche sur ce sujet. La formule fonctionne à merveille et, de plus, elles fonctionnent avec l'ensemble des critères souhaités ayant plus d'une valeur. Petites contraintes facilement contournables 1- Elle ne fonctionne pas avec des calculateurs (Ex.: "<="&cel...
par spage
6 décembre 2019, 17:54
Forum : Excel - VBA
Sujet : Somme.si.ens - deux critères à plusieurs valeurs
Réponses : 6
Vues : 93

Re: Somme.si.ens - deux critères à plusieurs valeurs

Merci Steelson,

C'est parfait.

Je décortique le tout et le met en application dans mon fichier.



Merci Xorsankukai pour le temps passé à résoudre.

Bonne fin de journée ensoleillée… du moins par ici.
par spage
6 décembre 2019, 16:41
Forum : Excel - VBA
Sujet : Somme.si.ens - deux critères à plusieurs valeurs
Réponses : 6
Vues : 93

Somme.si.ens - deux critères à plusieurs valeurs

Bonjour à tous, J'ai un petit questionnement sur la faisabilité de ma demande. J'essaie de concocter une formule Somme.si.ens() avec deux critères contenant plusieurs valeurs. Je réussi bien avec un critère à plusieurs valeurs, même avec une plage, mais n'arrive pas à intégrer dans la formule un deu...
par spage
22 novembre 2019, 17:37
Forum : Excel - VBA
Sujet : Numero de ligne automatique dans un tableau
Réponses : 4
Vues : 55

Re: Numero de ligne automatique dans un tableau

Bonjour, En VBA, Tu pourrais ajouter la commande suivante Sub ajoutLigne() Dim nvlLig As Long nvlLig = Range("A" & Rows.Count).End(xlUp).Row + 1 Rows(nvlLig).Insert ActiveSheet.ListObjects("Tableau1").Resize Range("A1:C" & nvlLig) Cells(nvlLig, "A").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" End Su...