Forums XLPages

Tous les messages (Guy)

1 2 3 4 ... 47 »
Re: PLAGE DYNAMIQUE
#1
Accro XLPages

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

Messages: 461

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 12-11 17h44

Bonjour Polygos et bienvenue au forum,

 

Si j'ai bien compris tu cherches à monter une plage dynamique de dimension 2, bien.

 

S'agissant de la façon dont est structurée la plage de données ...

Je sais déterminer le nombre de cellules non vide du tableau, je peux même en mettre la valeur ds une cellule en en tête de ce tableau de sorte à ce que par exemple A6 (disponible car les données démarrent à 8) soit égal à 2656

... ce n'est pas clair.

 

  • Les données ne semblent pas tabulaire, le sont-elle?
  • Y a-t-il des noms de champs ou sommes-nous en présence d'une java entre B52, AK47 ou A380?

 

Bref un petit classeur exemple serait indiqué.

 

Cordialement,

 

Guy

 


Hors Ligne
Rapport   Haut 

Re: Suppression de mots différents dans différentes cellules
#2
Accro XLPages

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

Messages: 461

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 29-09 17h52

Bonjour MDLF,

 

J'ai zieuté le classeur Exemple.xlsx et je te propose une modification Exemple_mod.xlsx.

 

La feuille Pour voir dispose de trois plages nommées :

  • CHOIX (Y1)
  • LANGUE (C2, liste déroulante)
  • LANGUES (AC1:AC2)

 

Les cellules qui portent les expressions à traduire sont en noir sur fond gris. À la modification de la cellule LANGUE (C2), les expressions apparaissent dans la langue choisie.

 

En espérant que cette piste soit le début d'une réponse à ta question.

 

Cordialement,

 

Guy

Pièce jointe:
xlsx Exemple_mod.xlsx   [ Taille: 12.12 Ko - Téléchargements: 22 ]

Hors Ligne
Rapport   Haut 

Re: Modification de nom de dossier
#3
Accro XLPages

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

Messages: 461

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: 78 ]

Hors Ligne
Rapport   Haut 

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

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

Messages: 461

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
#5
Accro XLPages

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

Messages: 461

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
#6
Accro XLPages

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

Messages: 461

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
#7
Accro XLPages

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

Messages: 461

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
#8
Accro XLPages

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

Messages: 461

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
#9
Accro XLPages

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

Messages: 461

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
#10
Accro XLPages

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

Messages: 461

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 

1 2 3 4 ... 47 »