Forums XLPages

Tous les messages (myDearFriend!)

1 2 3 4 ... 142 »
Re: Fermeture automatique d'un fichier Excel
#1
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1469

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : Hier 02h11
 Bonsoir Nim, le Forum.

Savoir aider... oui, ça arrive parfois cher Nim.

Mais on peut aussi ne pas avoir de solution à proposer. C'est le cas pour moi, mais peut être que ta question en inspirera d'autres...

Bien cordialement 
Edité par myDearFriend! le 22/10/2017 09:56:02

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Afficher un icone quand case vide depuis trop longtemps
#2
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1469

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : 19-10 22h11

Bonsoir Emma2337, bienvenue sur XLpages.com smiley

 

Une proposition simple via une Mise en Forme conditionnelle :

 

  • Tu sélectionnes d'abord ta cellule B1.
  • Puis, depuis le Ruban Excel, tu fais Accueil / Mise en forme conditionnelle / Nouvelle règle
  • Dans la liste, tu sélectionnes "Utiliser une formule pour déterminer pour quelles cellules le format sera appliqué"
  • Dans la zone de saisie en dessous, tu saisies la formule suivante :
    =ET($A1<=AUJOURDHUI()-30;$B1="")
  • Au final, tu définis le format souhaité (un remplissage rouge par exemple)
  • Et tu valides le tout.

 

Pour appliquer ce même format à l'ensemble des cellules colonne B de ton tableau :

  • Tu sélectionnes à nouveau ta cellule B1
  • Puis, Ruban Excel : Mise en forme conditionnelle / Gérer les règles
  • Tu saisies simplement l'adresse de ta plage cible ("$B$1:$B$100" par exemple) dans la zone intitulée "S'applique à".

 

Encore une fois, c'est beaucoup plus long à écrire qu'à faire ! wink

 

Tu obtiendras ainsi un fond rouge en colonne B, sous 2 conditions :

  1. Il n'y a aucune saisie en résultat colonne B
  2. La date en colonne A est dépassée de plus de 30 jours.

 

Pouvoir afficher une icone via la Mise en forme conditionnelle dans ce cas de figure, ne me semble pas réalisable.

 

En espérant que ça puisse te dépanner.

Bien cordialement,

 

 


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Plage nommée INTROUVABLE
#3
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1469

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : 16-10 16h40

Bonjour Bassigny, bienvenue sur XLpages.com smiley

 

C'est normal que tu ne puisses pas voir ta plage nommée dans la liste en zones de nom, ni dans la fenêtre "Atteindre", c'est le cas pour les plages faisant appel à des formules ou fonctions de calcul (DECALER ou NBVAL dans ton cas).

 

Ta référence de plage, même si elle n'est pas listée, reste toutefois utilisable dans n'importe quelle formule de calcul dans tes feuilles.

 

Tu peux également y faire référence dans ton code VBA. Sauf erreur, dans ton exemple, tu devrais pouvoir y accéder via l'instruction suivante notamment :

 

Sheets("RéunionsEnCours").Range("LeNomDeTaPlage")

Bien cordialement,

 


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Mise en forme conditionnelle avec cellule vide
#4
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1469

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : 15-10 19h08

Bonjour nicos974, bienvenue sur XLpages.com smiley

 

Puisque tu utililses une version Mac XL2011, j'imagine que tu dois pouvoir forcément aussi suivre la façon de faire suivante (réalisée depuis XL2010 PC) :

 

  • Tu supprimes d'abord tes formats conditionnels (pour faire place nette !).
  • Tu sélectionnes la plage B2:E2 (pour la 1ere ligne de ton tableau)
  • Puis, depuis le Ruban, onglet Accueil / groupe Style / Mise en forme conditionnelle / Nouvelle règle...
  • Dans la liste "Type de règle", tu choisis "Appliquer une mise en forme uniquement aux valeurs rangées parmi les premières ou dernières valeurs"
  • En dessous, dans la liste déroulante, tu sélectionnes "derniers"
  • Dans la zone de valeur tu saisies 1 (au lieu de 10 par défaut)
  • Tu définis ensuite le format souhaité (fond couleur vert par exemple)
  • Et tu valides le tout !

 

Ca devrait fonctionner pour ce que tu veux faire, qu'il y ait - ou non - des cellules vides dans la plage.

 

C'est beaucoup plus long à écrire qu'à faire ! wink

Ces nouvelles MFC t'évitent de te creuser la tête pour trouver la bonne formule à appliquer, c'est toujours intéressant de les expérimenter et exploiter je pense...

 

Bien cordialement,


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: alimenter deux listbox
#5
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1469

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : 13-10 20h29

Bonsoir odilolo, bienvenue sur XLpages.com

Voici une façon de faire je pense...

Préparatifs obligatoires avant de faire fonctionner le code ci-dessous :

  • J'ai nommé ta 2ème listBox : "ListBoxMOUV"
  • J'ai défini sa propriété ColumnCount à : 5
  • Ta 1ére listbox est nommée "ListBox1" (j'ai laissé tel quel)

 

CODE VBA A AJOUTER AU MODULE DE CODE DE TON USERFORM1 :

Private Sub ListBox1_Change()
'myDearFriend! - www.mdf-xlpages.com 10/2017
Dim vTab As Variant
Dim CodeArticle As String
Dim Lmax As Long, L As Long
Dim C As Byte
    'Code article sélectionné ?
    With ListBox1
        If .ListIndex < 0 Then Exit Sub
        CodeArticle = .List(.ListIndex, 1)
    End With
    'Mettre à jour la liste des MOUVements
    With ListeBoxMOUV
        'RAZ du contenu
        .Clear
        'On stocke toutes les données "MOUV" dans une variable Tableau
        vTab = Sheets("MOUV").UsedRange.Value
        Lmax = UBound(vTab, 1)
        'Pour chaque ligne du Tableau
        For L = 2 To Lmax
            If vTab(L, 1) = CodeArticle Then     'Si le CodeArticle est trouvé...
                .AddItem vTab(L, 10)                        'Date
                .List(.ListCount - 1, 1) = vTab(L, 11)      'Type
                .List(.ListCount - 1, 2) = vTab(L, 9)       'Bénéficiaire
                .List(.ListCount - 1, 3) = vTab(L, 2)       'Article (Désignation)
                .List(.ListCount - 1, 4) = vTab(L, 4)       'Quantité
            End If
        Next L
    End With
End Sub

En pièce jointe, ton classeur exemple adapté en conséquence.

 

J'espère que cette solution te conviendra.

Bien cordialement,
 

Pièce jointe:
zip PourOdilolo.zip   [ Taille: 52.05 Ko - Téléchargements: 5 ]

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: AIDE EXCEL VBA COPIER COLLER FEUILLE COMPLÈTE AVEC GRAPH
#6
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1469

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : 13-10 19h10

Bonjour ritchi3131, le Forum,

 

Sans fichier exemple ce n'est jamais facile d'aider... sad

 

Cela dit, voici ma vision de ton problème. Proposition de code pour remplacer le tien (dans son ensemble) ...

CODE A COLLER DANS LE MODULE DE TON USERFORM (en remplacement de l'ancien) :

Option Explicit

Private Sub annuler_Click()
    Unload Me
End Sub

Private Sub OK_Click()
Dim Sh As Worksheet
Dim NomFeuille As String
Dim I As Byte
    If ComboBox1 = "" Then
        MsgBox ("VEUILLEZ SELECTIONNER LA SEMAINE A CREER")
        Exit Sub
    End If
    NomFeuille = UCase(ComboBox1.Value) & "_" & Format(Now, "yyyy")
    On Error Resume Next
    Set Sh = Sheets(NomFeuille)
    On Error GoTo 0
    'La feuille existe déjà ?
    If Not Sh Is Nothing Then
        MsgBox ("La feuille " & UCase(ComboBox1) & " existe déjà, si vous désirez regénérer une feuille de données veuillez la supprimer avant toute action")
        Exit Sub
    End If
   
    ' Copie de la feuille "Reporting" sans les formules pour éviter que les données se mettent à jours
    Application.ScreenUpdating = False
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Reporting").Copy After:=Sheets(Sheets.Count)
    With ActiveSheet
        'Suppression des formules
        .Cells.Copy
        .Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        'Nom de feuille
        .Name = NomFeuille
        .Range("A1").Select
    End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim S As Byte
    For S = 42 To 52
        ComboBox1.AddItem "Semaine" & S
    Next S
End Sub
 

En espérant t'avoir dépanné.

Bien cordialement,
 


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: mot de passe dans XLcalendar v3.2
#7
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1469

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : 05-10 22h17

Bonsoir Fabio47, bienvenue sur Xlpages.com smiley

 

Tout d'abord je te remercie pour ton intérêt concernant cet utilitaire et surtout, te remercie grandement pour le partage de ton expérience et de cette astuce.

 

Je souhaite bien évidemment que cette solution soit efficace pour toi et pour d'autres également, mais j'avoue pour ma part que j'ai quand même un doute. La situation que tu décris (et que j'ai moi même observé de façon très aléatoire et donc très difficile à analyser) reste pour moi un vrai mystère que je n'ai pas réussi à cerner.

 

Merci encore à toi Fabio47 et soit le bienvenu.

 

Bien cordialement,


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: XLmap et Géocontacts
#8
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1469

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : 21-09 20h23

Bonjour marcdu68, Gaston, le Forum,

 

Effectivement, je confirme ce qu'écrit Gaston : le problème vient de la fin de vie des versions 6 et 7 de l'API Microsoft BingMaps, au profit d'une version 8 !

 

L'application mDF XLmap v2.1 (dont je suis l'auteur *) n'est donc plus fonctionnelle à ce jour. sad

 

Malheureusement, la nouvelle v8 de l'API Microsoft BingMaps change la donne,  et requiert notamment - sauf erreur - une clé d'authentification obligatoire dorénavant.

 

A vrai dire, je n'ai pas creusé davantage car une éventuelle migration nécessiterait une refonte complète de tout le code mis en place pour XLmap.

 

Pour ma part, depuis un certain temps et pour d'autres travaux (hors forum), je me suis tourné vers son concurrent historique , l'API Google Map. La mise en oeuvre est assez similaire et j'y ai trouvé des fonctionnalités n'existant pas à l'époque en v6 BingMaps.

 

En conclusion, si mDF XLmap revient, l'application exploitera certainement l'API Google Map en lieu et place de Microsoft Bing Maps (lui-même anciennement nommé Virtual Earth).

 

J'avoue cependant que la nouvelle version mDF XLmap n'est malheureusement pas encore à l'ordre du jour par manque de temps et j'en suis le premier navré... Nul doute que j'y reviendrai.

 

Bien cordialement,

 

* GéoContacts est une application de l'ami david84, basée sur les travaux réalisés pour mDF XLmap.

Edité par myDearFriend! le 22/09/2017 05:57:17

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: MFC couleur lignes
#9
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1469

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : 08-08 17h04

Bonjour Laurie76, bienvenue sur XLpages.com smiley

 

Sans fichier, c'est toujours compliqué d'expliquer une manipulation... blush J'ai donc considéré l'hypothèse suivante :

  1. Ton tableau se situe en plage A1:AW100
  2. Il possède une ligne d'entêtes. Les données commencent donc en ligne 2.
  3. La dernière colonne est la colonne AW
  4. La dernière ligne est la ligne 100

 

En pièce jointe, cet exemple mis en oeuvre (je me suis cependant arrêté à la couleur n° 5)

Ce n'est sans doute pas la réalité, mais il te faudra adapter ces explications selon la situation réelle...

 

Pour appliquer les formats conditionnels souhaités (sur une version Excel 2010), voici comment je procède pour ma part :

 

  • Je sélectionne la première cellule de données, soit la cellule A2.
  • Dans le Ruban Excel, onglet Acceuil / Mise en forme conditionnelle, je choisis Gérer les Règles.
  • Je sélectionne ensuite le bouton Nouvelle Règle.
  • Dans la liste, je choisis le dernier type "Utiliser une formule pour déterminer..."
  • Dans la zone de saisie (plus bas), je saisie la formule suivante :
    =$AW2=1
  • Je choisis ensuite le format de cellule souhaité (couleur de fond Rose)
  • Et je valide par OK.
     
  • Je sélectionne à nouveau le bouton Nouvelle Règle et je recommence pour le format correspondant à la valeur "2" (soit un fond Vert)
    La formule sera cette fois :
    =$AW2=2
  • Et ainsi de suite, je recommence pour les 7 couleurs souhaitées...

 

J'obtiens donc quelque chose comme ça :

 

Il ne reste plus qu'à modifier la zone "S'applique à" pour prendre en compte le Tableau entier (hors entêtes):

 

Pour chaque ligne, je demande une application sur le Tableau entier, soit la plage =$A$2:$AW$100

Et voilà ! wink

 

La saisie d'une valeur de 1 à 7 en colonne AW implique automatiquement la mise en couleur de la ligne correspondante.

 

En espérant avoir été clair et t'avoir dépanné.

Bien cordialement,

 

Pièce jointe:
xlsx PourLaurie76.xlsx   [ Taille: 19.84 Ko - Téléchargements: 33 ]
Edité par myDearFriend! le 08/08/2017 17:20:21

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: SOMME.SI.ENS ou SOMMEPROD ?
#10
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1469

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : 07-08 23h12

Bonsoir Fath, le Forum,

 

Si j'ai bien interprété ton souhait, je pense que tu étais presque sur la bonne solution ...

 

En F13, j'aurais plutot inscrit :

=SOMME.SI.ENS(Ventes!$F:$F;Ventes!$B:$B;"1";Ventes!$C:$C;C13)

Bien cordialement 


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

1 2 3 4 ... 142 »