Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Merci pour cette réponse
Je ne pense pas que ça va résoudre mon problème
Je m'intéresse à Listview1 et au déplacement de la barre de défilement sur l'évènement Drag Over.
Bonjour à tous
Voilà plusieurs jours que je trouve pas de solution.
Je voudrais que lorsque je fais un DragOver sur la ListView1 la barre de défilement verticale se déplace.
Mais jusque là toutes mes tentatives échouent, si une âme charitable pouvait m'apporter une solution ça me permettrait de...
bonjour
Une proposition avec des SI imbriqués de janvier à mai, à continuer
=SI(MOIS(B4)=1;NOMPROPRE("jan");SI(MOIS(B4)=2;NOMPROPRE("févr");SI(MOIS(B4)=3;NOMPROPRE("mars");SI(MOIS(B4)=4;NOMPROPRE("avr");SI(MOIS(B4)=5;NOMPROPRE("mai");"etc..."))))&"-"&ANNEE(B4)&"_Test")
bonjour
Effectivement, le calcul se fait par jour, alors que je le fais par semaine (mauvaise lecture du post #3)
La macro corrigée est :
Nous obtenons les mêmes résultats.
PS : Sub Test paraît plus rapide.
Sub Test()
Dim i
Dim DerniereLigne
Dim Dic As Object
DerniereLigne = Range("b" &...
Bonjour
Essayez la Sub Test()
J'ai ajouté le numéro de semaine en colonne B de façon à utiliser la formule
SOMME.SI.ENS(I:I;B:B;48) en colonne O
A adapter si ça répond à votre attente.
Bonjour
J'ai regardé l'avancement mais je n'ai pas d'accès aux liaisons
nous n'avons pas le même office donc je n'ai pas par exemple la fonction isoWeekNum
Du coup, je ne peux guère tester et ne peut que donner mon impression.
Les 2 macros sont très complexes et difficile à comprendre.
Avec...
Bonjour à tous, bonjour chich
Si j'ai bien compris on voudrait remplacer les formules et les MFC par des macros.
Travail fastidieux compte tenu de la complexité de certaines formules.
Si je devais le faire voilà comment je m'y prendrai, sachant qu'il faudrait optimiser le code.
Bon courage...
Peut-être un peut trop rapide…
Mais voici une proposition.
Le code est normalement bien commenté.
Dans l'exemple je mets mon Username "jmand" en D4
S'agissant d'un fichier partagé, il faudrait un "Administeur" pour pouvoir afficher toutes les colonnes en cas de besoin.
voir Sub AfficheColonnes()...
Re bonjour
En omettant option explicit en début de module vous ne verrez pas si les variables sont bien déclarées.
et vous ne verrez pas les erreurs potentielles.
Dans les autres modules du fichier, j'ai bien vu option explicit en début de chaque module.
Il est vraiment préconisé de mettre...
Bonjour
Dans Private Sub Liste_Produits_Click() ajoutez et essayez ceci
Dim Fichier
Fichier = Me.CheminPhoto.Text
Me.Image1.Picture = LoadPicture(Fichier)
PS : dans le module du Userform vous avez omis Option Explicit
Bonjour
Si ça peut aider ?
les 3 petits boutons restent alignés.
Ma proposition n'est pas des meilleures et je suis curieux de voir la suite.
Bonne journée,
Option Explicit
Public WithEvents bouton As msforms.Label
'***********************************************
Private Sub...
Bonjour
Voici une partie du projet.
J'utilise un module de classe pour les évènements des graphiques
L'objectif étant de limiter les actions d'un utilisateur sur les graphiques
Pour ce faire j'ai personnalisé le ruban avec CUSTOM UI pour ne plus faire apparaître les outils de graphique
et mis en...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.