Forums XLPages

Tous les messages (Guy)

1 2 3 4 ... 46 »
Re: Modification de nom de dossier
#1
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 459

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 23-12 14h35

Bonjour olindo,

 

Malheureusement je crois que ton entreprise consiste à scier la branche sur laquelle ton code repose.

 

Petit classeur joint, appelé toto.xlsm, qui pourra peut-être t'en convaincre. S'il s'avérait qu'une solution existât tout de même, j'apprécierais qu'on me la montre.

 

Voir le code de la procédure CestParti().

 

Cordialement,

 

Guy

Pièce jointe:
xlsm toto.xlsm   [ Taille: 15.34 Ko - Téléchargements: 31 ]

Hors Ligne
Rapport   Haut 

Re: Addition de chiffres sous format 123,45.00
#2
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 459

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 21-11-2017 13h12

Bonjour ABACAFREE et bienvenue dans le forum,

 

Le format du nombre présenté 123,45.00 n'est pas valide. La représentation des nombres doit porter deux séparateurs : le séparateur décimal et le séparateur de milliers. À première vue le nombre donné en exemple porte le point comme séparateur décimal et la virgule comme séparateur de milliers. Seul petit problème, il  n'y a pas de milliers à droite de la virgule, que des centaines.

 

Il s'agit peut-être d'une faute de frappe et on aurait dû lire 123,456.00 auquel cas la fonction SOMME devrait faire son boulot correctement à condition qu'Excel utilise les séparateurs donnés. On peut valider les séparateurs dans le menu Options/Options avancées/Séparateur décimal et Séparateur de milliers.

 

Cordialement,

 

Guy


Hors Ligne
Rapport   Haut 

Re: Traduction de la Formule =CELLULE dans une autre Langue
#3
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 459

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 01-11-2017 02h18

C'est l'histoire de ma vie, je suis un incompris.

Mais, bof, mieux vaut tard que jamais.

 

Bonne suite, fellow. yes

 

Guy


Hors Ligne
Rapport   Haut 

Re: Traduction de la Formule =CELLULE dans une autre Langue
#4
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 459

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 31-10-2017 17h38

Bonjour snieg53,

 

Passe à la formule CELLULE("filename"; A1). Ça devrait fonctionner même en chinois.

 

Cordialement,

 

Guy


Hors Ligne
Rapport   Haut 

Re: Alerte excel en fonction de la date du jour
#5
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 459

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 25-01-2017 15h20

Bonjour abatous et bienvenue dans ce forum,

 

Comme indiqué dans mon message du 30 décembre 2015, il vaudrait mieux ouvrir un nouveau fil, plus il serait impérieux que tu le fasses. Ce fil est largement surchargé. Aussi aucun fichier n'est joint à ton message.

 

Tu pourras suivre les instructions à la page http://www.mdf-xlpages.com/modules/ne ... p?topic_id=50&forum=1

 

Cordialement,

 

Guy


Hors Ligne
Rapport   Haut 

Re: Liens hypertexte dans des listes déroulantes
#6
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 459

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 18-01-2017 21h26

Bonsoir Pierre,

 

Effectivement il y a un os, tout petit mais néanmoins.

 

Une solution à tester, modifier

 

If Len(Target) = 0 Or Not ValidOk Then Exit Sub

en

 

If Len(Target.Text) = 0 Or Not ValidOk Then Exit Sub

Sait-on jamais. smiley

 

Guy


Hors Ligne
Rapport   Haut 

Re: Liens hypertexte dans des listes déroulantes
#7
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 459

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 18-01-2017 19h55

Bonjour Pierre,

 

Quand donc se produit cette erreur puisque tout semblait fonctionner correctement.

Est-ce bien le même fichier, le même code, as-tu copié le code ailleurs???

 

Des précisions, liste impliquée par exemple, seraient indiquées.

 

Cordialement,

 

Guy


Hors Ligne
Rapport   Haut 

Re: Liens hypertexte dans des listes déroulantes
#8
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 459

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 18-01-2017 16h21

Bonjour pierrev, Lcntrcld, Mytå,

 

Le code de Didier a été copié dans diverses procédures de ThisWorkbook, malheureusement ces procédures, au nombre de 32(!!) sont inopérantes et ne sont jamais déclenchées...

  • Private Sub Workbook_SheetChange38
  • Private Sub Workbook_SheetChange15
  • ...
  • Private Sub Workbook_SheetChange24_3

Seule la procédure Private Sub Workbook_SheetChange est active. Mais celle-ci portait à l'origine la contrainte : ActiveCell.Validation.Formula1 = "=ListAbats". Voilà pourquoi seule cette liste est prise en compte.

 

J'ai modifié la procédure pour prendre en compte toutes les listes et pas seulement ListAbats.

 

'-------------------------------------------------------------------------
Option Explicit

' Procédure : Workbook_SheetChange
' Auteur    : Guy Courville
' Date      : 2017-01-18
'
' Référence : Didier FOURGEOT (monCherAmi!)
'             2006-03-06
'
' Détails   : Modification de la procédure pour tenir compte de listes multiples.
'
'-------------------------------------------------------------------------
'
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

  Dim ValidOk As Boolean
  Dim ChainePlageCible As String ' Porte la chaîne de caractères du nom de la plage ciblée.
  Dim PlageCible As Range        ' Porte la plage ciblée.
  Dim CelluleCible As Range      ' Porte la cellule ciblée.
  
  On Error Resume Next
  ChainePlageCible = Target.Validation.Formula1 ' Chaîne sous la forme "=Toto"
  ChainePlageCible = Right(ChainePlageCible, Len(ChainePlageCible) - 1) ' Chaîne précédente privé de "=" : "Toto"
  
  Set PlageCible = Range(ChainePlageCible) ' La plage ciblée est prise en référence.
  
  ValidOk = (Err.Number = 0) ' Est valide si l'erreur est à zéro.
  
  On Error GoTo 0
  If Len(Target) = 0 Or Not ValidOk Then Exit Sub
  
  Set CelluleCible = PlageCible.Find(what:=Target.Value, LookIn:=xlValues) ' La cellule ciblée est prise en référence.
  
  On Error Resume Next
  
  Sh.Hyperlinks.Add Anchor:=Target, Address:=CelluleCible.Hyperlinks(1).Address ' Le lien de CelluleCible est ajouté
  If Err.Number > 0 Then
    MsgBox "La CelluleCible ne porte aucun lien", vbInformation, "Oups, il manque quelque chose!"
    Exit Sub
  End If
  
  On Error GoTo 0
  Target.Hyperlinks(1).SubAddress = CelluleCible.Hyperlinks(1).SubAddress
  
End Sub

Il faudra sûrement peaufiner mais je t'invite à tester la chose et à nous tenir au courant des résultats.

À noter la directive Option Explicit à ajouter à toutes les en-têtes de module. Plus là-dessus sous peu.

 

Cordialement,

 

Guy


Hors Ligne
Rapport   Haut 

Re: creer un timer
#9
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 459

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 14-03-2016 15h36

Bonjour gaeliloo et bienvenue dans ce forum,

 

Préambule
Dans le forum Apache OpenOffice* un certain gaeliloo s'est inscrit le 4 mars 2016 à 13:15h et suite
à sa demande d'aide dont le sujet est "Timeur inversé" a terminé par ces mots :

 

"Je n'ai pas le temps ni le goût d'apprendre à écrire des codes macros pour faire des choses

simples.  Je vais donc arrêter de vous embêter et demander à quelqu'un de le faire à ma place."

 

Un autre(?) gaeliloo s'est inscrit au site XLPages le 5 mars 2016 à 13:48h avec un demande fort semblable "Créer un timer"

 

Heureusement qu'il y a des bénévoles magnanimes qui ne s'offusquent pas trop de cette sorte de pêche au chalut et qui, de surcroît, font les choses à sa place...

 

Fin du préambule.

 

Donc, petit classeur portant un formulaire qui affiche un chrono de décompte.
La valeur de départ est fixée par défaut à quarante minutes.
On peut modifier cette valeur à la volée.

La chose est une ébauche et s'il survient des incidents ou des questions il me fera plaisir d'y répondre.

 

Cordialement,

 

Guy

 

* https://forum.openoffice.org/fr/forum/ ... mp;hilit=gaeliloo#p273190

 

Pièce jointe:
xlsm Chrono.xlsm   [ Taille: 27.71 Ko - Téléchargements: 157 ]

Hors Ligne
Rapport   Haut 

Re: Macro qui n'accepte pas de lignes de code supplémentaires
#10
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 459

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 12-03-2016 15h27

Bonjour mots-croises,

 

Tu devrais prendre l'habitude d'utiliser la compilation du projet VBA.
Dans l'éditeur de code, menu Débogage/Compiler VBAProject.
Avec cette simple manipulation tu aurais vu qu'il manquait un End If à ton code.

 

Sub Infos()
Dim Msg As String
Dim Reponse As Integer

    Reponse = MsgBox("Pour enregistrer, cliquer n'importe où sur le graphique", vbExclamation + vbOKOnly, "Infos")
    If Reponse = vbOK Then
    
        Reponse = MsgBox("Pour quitter, cliquer sur l'image (lac & montagne)", vbExclamation + vbOKOnly, "Infos")
        If Reponse = vbOK Then

               Reponse = MsgBox("Avec cette phrase, ça ne fonctionne plus)", vbExclamation + vbOKOnly, "Infos")
        End If
        If Reponse = vbOK Then
               
            Reponse = MsgBox("Bien le bonjour chez vous", vbExclamation + vbOKOnly, "Infos")
        End If
    End If
    
End Sub

Cordialement,

 

Guy


Hors Ligne
Rapport   Haut 

1 2 3 4 ... 46 »