Résultats de la recherche

Re : Grand concours Office 2007 Bonjour ! Pour info, j'ai aussi inscrit Ce lien n'existe plus, une bibliothèque de 66 nouvelles fonctions de feuille de calcul pour Excel 95-2007. Laurent

Bonjour, Crée un nouveau classeur, mets une valeur bidon dans la cellule A1 de Feuil1, et copie ce code dans le module ThisWorkbook du classeur : Private Sub Workbook_Open() Feuil1.[A1].TextToColumns Feuil1.[A1], xlDelimited, _ Tab:=False, SemiColon:=True End Sub Enregistre...

Bonjour, Sélectionne la cellule A2, fais Format => Mise en forme conditionnelle, Condition 1 = 'La formule est', formule : =NB.SI(A$1:A2;A2)>1. Clique sur 'Format' et mets par exemple en police rouge. Valide tout, et recopie ensuite le format de la cellule A2 vers le bas. Cordialement...

Bonjour, Voici un point de départ : Sub Test() Dim Link Dim Calc As XlCalculation Dim I As Integer Dim MySelf As String Dim Dependants As String MySelf = LCase(ThisWorkbook.FullName) With Application Calc = .Calculation .Calculation =...

Bonjour, Le code ci-dessous montre comment bloquer le glisser-déplacer pour une feuille de calcul particulère. A adapter si tu veux bloquer seulement certaines plages... ' *** Dans le module ThisWorkbook *** Private Sub Workbook_Open() Dim Sht As Worksheet Set Sht =...

Bonjour, Les noms apparaissent automatiquement dès que le zoom est inférieur à 40%. Je ne crois pas que ce soit désactivable. En revanche tu peux toujours masquer les noms provisoirement dans ta macro qui met le zoom sur 25%, et les rendre de nouveau visibles quand tu repasses à 85% ...

Bonjour, VBA ne permet pas de récupérer dans une fonction la valeur actuelle de la cellule appelante. Pour résoudre ce problème, tu peux utiliser une référence circulaire : 1) Dans le menu Outils => Options => Calculs, coche 'Itération' et valide 2) Si tu veux obtenir le résultat dans...

Bonjour, Function EVAL(Expression As String) EVAL = Evaluate(Expression) End Function Cordialement, Laurent

Philippe, Pourrais-tu détailler un peu plus ce que tu veux faire ? Perso je n'ai jamais rencontré de problème pour sélectionner une plage d'une feuille inactive. Cordialement, Laurent

Bonjour, Tu peux sélectionner la plage concernée avant d'appliquer le filtre, mais tu ne pourras pas mettre plusieurs plages discontiguës. Concernant la protection : si tu as une version récente d'Excel, dans la boîte de dialogue 'Protéger la feuille', coche l'option 'Utiliser le...

Bonjour ! =MIN(SI(N(INDIRECT({10;11;12;13;14}&'!'&{'H'.'I'.'J'.'K'.'L'}&10)); N(INDIRECT({10;11;12;13;14}&'!'&{'H'.'I'.'J'.'K'.'L'}&10)))) Sinon, avec la macro complémentaire Morefun.xll téléchargeable sur Ce lien n'existe plus : =MIN(SI(DVAR(TAB3D('10:14'!H10:L10));LVAR())) (à...

Bonjour, A la place de ChDir, essaie la fonction API SetCurrentDirectory. Voici un exemple : Private Declare Function SetCurrentDirectory Lib 'Kernel32' _ Alias 'SetCurrentDirectoryA' (ByVal lpszCurDir As String) As Long Sub Test() If...

Bonjour, Avec X1 et Y1 sont les coordonnées du 1er point, et X2 et Y2 les coordonnées du 2ème point, si tu veux obtenir l'équation Y=A*X+B de la droite formée par ces deux points : A = (Y2-Y1)/(X2-X1) B = Y1-A*X1 (pardon si j'ai mal compris la question !) Cordialement, Laurent

Bonjour, Pour créer l'axe secondaire, tu dois lui affecter une série. Par exemple : Sheets(1).ChartObjects(1).Chart.SeriesCollection(2).AxisGroup = xlSecondary Cordialement, Laurent

Merci Thierry, très touché. :) Je ne connaissais pas bien ce forum, mais il est très sympa et moins 'speed' que MPFE, qui me donne parfois le tournis. ;) Amicalement, Laurent

Bonjour, Pour la touche F9 : Private Sub CommandButton1_Click() Me.Calculate End Sub Si tu veux que le classeur entier soit recalculé : Application.Calculate. Concernant le rafraichissement toutes les minutes, regarde l'aide VBA sur Application.OnTime. Cordialement...

Bonjour, En supposant que les valeurs X sont dans la plage A2:A6 et les valeurs Y en B2:N6, voici comment récupérer le coefficient et la constante de la courbe de tendance (linéaire) : Dim Coeffs Coeffs = WorksheetFunction.LinEst(Range('B2:B6'), Range('A2:A6')) MsgBox 'Coefficient : '...

Bonjour, Une autre solution, plus courte mais sans doute moins rapide à l'exécution parce qu'elle passe par l'exportation du graphique dans un fichier image. Le graphique sera placé dans un contrôle Image1. Private Declare Function GetTempFileName Lib 'kernel32' _ Alias...

Pascale, Ce code fonctionne très bien, tu dois sélectionner ce que tu veux afficher (fichiers Excel ou Word) dans la liste déroulante 'Type de fichier' de la boîte de dialogue. Si tu veux afficher à la fois les fichiers Excel ET Word : ouvrirfichiers = Application.GetOpenFilename( _...

Re:variable(s) pour Application.Dialogs(xlDialogSa Bonjour, Application.Dialogs(xlDialogSaveAs).Show monfi Regarde aussi du côté de Application.GetSaveAsFilename, beaucoup plus souple. Cordialement, Laurent