Contenu récent par Pascalbar

Re : EUros Oups, désolé de ne pas avoir répondu avant, mais mon Dell a planté de chez planté et l'urgence était de récupérer mes données La réponse qui m'a été apportée ne fonctionne pas, mais j'ai contourné le problème merci pascal

Bonjour Dans une textBox alimentée par une Range monétaire, comment avoir le symbole Euros après les chiffres ? Merci

Re : Certifications Merci, Je sais chercher dans un forum et si je me permettais de faire ce post c'est simplement parce que les réponses datent de 2007.Donc je réitère ma question. Merci

Bonjour à tous, Je vous expose ma question. Cela fait de longues années que je "pratique" Excel et VBA de la version 1997 à 2007 en autodidacte. Je suis dans une période de chômage, et j'ai la possibilité de passer une certification Microsoft afin de faire reconnaître certaines compétences...

Re : MIse en Forme Oui mais cela me vire le contour plein, alors que je voudrais un contour plein et l'intérieur en pointillés

Bonjour, Je cherche je cherche, mais je ne trouve pas. J'aimerais en VBA : A chaque fois que j'applique un contour à un ensemble de cellules, j'aimerais que l'intérieur des cellules soit en discontinue ou en pointillé. Merci de vos lumières Pascal

Re : Simplifier Effectivement JM C'est court, concis et pour tout dire beaucoup mieux. Tain ca va m'en faire des lignes de codes à changer pour remplacer mes boucles. Donc en fait les Select "A la benne" Merci Pascal

Re : Simplifier Je ne suis pas Breton, mais j'aime bien la dentelle. Merci

Re : Simplifier Merci Comme j'ai un for each dérrière, j'ai fais cela For Each c In Worksheets("Toto").Range("H2:H70") If c.Value = "" Then c.FormulaR1C1 = "=COUNTA(RC[2],RC[8],RC[14],RC[20])" End If Next c Donc j'ai viré le Select Merci

Bonjour, Sheets("Toto").select Range("A1:A10").select Existe t'il un moyen de simplifier ? Merci

Re : Dossier pas défaut en fait non, cela me renvoie une erreur"Objet requis" ? Merci

Re : Dossier pas défaut Merci Pascal

Bonjour, Sur le Workbook_Open Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.folderExists("C:\Facturation") Then fso.createfolder ("C:\Facturation") End If Je crée un dossier Facturation si il n'existe pas. Comment faire enregistrer le classeur Actif...

Bonjour, J'alimente une combo avec ComboBox1.List = [Liens].Value Ou liens est une zone nommé dynamique à l'intérieur de laquelle chaque cellule est un lien du type D:\NomDossier\NomFichier.xlsm Comment suivre ledit lien sur un évènement Private Sub ComboBox1_Click() Par exemple...

Bonjour, Quelles sont les réelles différence entre 2007 et 2010 car j'ai développé sous 2007 et en testant la version TRial de 2010 aucune de mes macros fonctionnent par exemple celle ciApplication.ScreenUpdating = False Sheets("Autorisations administratives").Select...