Bonjour ysma et bienvenue dans ce forum,

Si, par exemple, la cellule A1 porte 51.48 la formule =CAR(GAUCHE(A1;2))&"."&CAR(DROITE(A1;2)) affichera 3.0

Cordialement,

Guy

Bonjour Daniel,

Je comprends tout à fait que tu ne parles pas couramment l'Hébreu, personnellement je n'ouïs rien à l'Araméen, c'est dire la profondeur de mon inculture.

Ceci dit d'excellent tutoriels VBA parsèment la toile et en plus je t'invite à me poser des questions en m'écrivant à mon adresse de courriel personnelle disponible sur ce site. Il me fera plaisir de débroussailler un peu ce jargon touffu. Toutefois si la question peut intéresser le forum il suffira d'ouvrir un nouveau fil et, qui sait, je passerai peut-être par là pour attraper la balle au bond.

J'avais posé la zone d'impression en B3:J11, voilà sans doute pourquoi le bouton d'impression que tu as ajouté s'obstinait à imprimer cette plage; rien dans le code ne commandait quoi que ce soit à ce propos. J'ai redéfini la zone d'impression en D3:J11.

J'ai aussi modifié quelque peu la présentation, les cellules de saisie et la marche à suivre. Ça ne devrait poser aucun problème.

Le classeur en pièce jointe porte deux boutons Imprimer et Aperçu avant impression. J'ai laissé le format de papier en A4, il faudra vérifier que ce format a bien traversé l'Atlantique.

Sur ce et pour revenir, après quelques égarements, à la déférence que nos âges commandent.

Veuillez agréer Monsieur l'expression de mes amitiés d'outre-Atlantique ainsi que mes meilleurs vœux pour cette nouvelle année de plus.

Guy Courville

Bonjour Daniel, bonjour Didier,

Voili, voilu, voilà.

Petit classeur à manipuler et à corriger au besoin.

J'ai renvoyé au néant le vieux code macro  Lotus123 (application plus puissante qu'Excel à mains égards, mais depuis longtemps déclassée.) Bref, j'ai monté en une seule procédure la gestion de l'affichage, commenté assez correctement le code mais comme tu (Oups! de moins de vingt ans votre cadet, puis-je oser ce tutoiement? Je l'ose!) es un néophyte en VBA, ce qui n'est nullement un handicap, je crois que quelques questions surgiront dans ce fil et à bon droit. Cela étant, nous aviserons.

Le mode de saisie de l'année et du mois à afficher est inscrit au dessus de la zone d'affichage du calendrier. Simple et assez semblable à la méthode Lotus, plus simple je crois. Le mois est saisi avec une liste déroulante et l'année est saisie au clavier. L'intervalle a été limité de 1900 à 2100 et est modifiable à volonté.

À tester et m'informer d'éventuels oublis, erreurs, méprises ou autres bruits parasites trans-atlantiques.

Cordialement,

Guy

Bonjour Daniel et bienvenue dans ce forum,

Je suis partant pour zieuter la chose.

Il serait indiqué de fournir en pièce jointe le fichier Excel migré pour que je vois comment est monté ce calendrier perpétuel, ensuite on verra bien comment remettre les boutons en place.

Très cordialement,

Guy

Bonjour Herizo et bienvenue dans ce forum,

Petit classeur ébauche pour tenter de répondre à ta question, pas évidente au demeurant.

Je n'ai pas commenté le code, ce pourra être fait plus tard.

Je te laisse te faire la main avec l'objet en ayant ajouté un petit bouton d'aide avec le bouton ?.

Tu n'as qu'à lancer l'affichage du formulaire avec le bouton Lancer et manipuler le truc à loisirs.

En attendant tes commentaires, très cordialement,

Guy

P.S. Le fichier est compressé, n'oublie pas de l'extraire avant de procéder.

Bonjour Olimar et bienvenue dans le forum,

Un petit classeur exemple au format xls car je ne suis pas sûr de la compatibilité avec la version MAC d'Office.

Les colonnes A, B, C portent Nom, Prénom et Courriel(mail) respectivement. Base O.

La colonne F porte les Courriels(mails). Base B

Les cellules  de la colonne G portent la formule
=SOMMEPROD(($C$2:$C$9=F2)*1)

qui retourne le nombre d'occurrences de Fi dans C.

Plus de détails sur demande.

Cordialement,

Guy

Bonjour Lamperti, Didier, le forum,

Une autre solution un peu en retard mais néanmoins.

Plus de détails sur demande.

Cordialement,

Guy

Bonjour rigou,

Si tu joignais un classeur exemple pour exposer ton problème ce serait plus simple.

Cordialement,

Guy

Bonjour rigou,

Petite erreur de ma part, j'aurais dû indiquer que la cellule B1 doit porter l'expression =ExtractionDate(A1) et non pas =ExtractionDate(A1) en B1.

Ceci dit, tu trouveras en pièce jointe un petit classeur portant le code commenté et corrigé. En particulier le format d'affichage est conforme à ta demande contrairement au code livré hier.

N'hésite pas à poser d'autres questions.

Cordialement,

Guy

Option Explicit

Const ListeMoisAnglais As String = "JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"

Public Function ExtractionDate(Cellule As Range)

  Dim ExpReg As Object ' VBScript_RegExp_55.RegExp
  Dim cMatchs As Object ' VBScript_RegExp_55.MatchCollection
  Dim sTemp As String
  Dim sRes As String
  Dim sTempMois As String
  Dim IndexMois As Long
  
  sRes = vbNullString
  
  sTemp = Cellule.Text
  
'  Set ExpReg = New VBScript_RegExp_55.RegExp
  Set ExpReg = CreateObject("vbscript.regexp")
 
  With ExpReg
    .MultiLine = False
    .IgnoreCase = True
    .Pattern = "[0-9]{2}-[aA-zZ]{3}-[0-9]{4} [0-9:]{5}"
    .Global = True
    
    If .Test(sTemp) Then
    
      Set cMatchs = .Execute(sTemp)
      sRes = cMatchs(cMatchs.Count - 1).Value
      sTempMois = Mid(sRes, 4, 3)
      IndexMois = ((InStr(ListeMoisAnglais, sTempMois) - 1) / 3) + 1
      
      sRes = Replace(sRes, sTempMois, Format(CStr(IndexMois), "00"))
      
      ExtractionDate = sRes
      
    End If
    
  End With
   
End Function

Bonjour rigou et bienvenue dans ce forum,

Saisir le petit bout de code ci-haut et  le copier dans un module standard. À noter que le classeur portant ce module devra être porté vers l'extension .xlsm lors de la sauvegarde.

Dans la feuille en exemple inscrire la formule =ExtractionDate(A1) en B1 et la cellule portera la chaîne désirée. Plus d'explications à venir.

Cordialement,

Guy