Résultats de la recherche

Re : Fonction Excel en VBA bonjour, Voici la manière la plus claire de formuler Range CG3 : Range("CG3").Formula = "=IF(AND((B3+B4)<(B3),B1=1),1,IF(AND((B3+B4)<(B3),B1=0),2,""""))" Même observation que mth Tu peux appliquer autant de boucles avec les variables que tu veux à cette...

Re:Soucieux de ménager vos nerfs... Bonsoir, J'ai modifié ce soir le fichier (version 2) fortement bogué suite à la modif demandée par Celeda. Le nouveau fichier devrait fonctionner sans accroc. De plus j'en ai profité pour faire des lignes de 5 Numéros ce qui semble plus conforme aux usages...

bonsoir, Non pas du tout c'est tout l'intéret de cette formule, elle est super light. Tu crée une fois pour toute un fichier de 0 octet et tu le renommes. Cette instruction ne fait que celà : name zzz901200537.dat as zzz901200541.dat name renomme ancien fichier en nouveau fichier tu as juste...

Bonjour, Si le FullScreen ne te convient pas, les 2 macros suivantes font celà il suffit d'appeler la première dans Workbook.Open Et la deuxième dans Workbook.BeforeClose ou Before Save Nota: La 1ère macro sauvegarde ta config dans la première colonne de la feuille 1 (à masquer...)Sub...

Bonsoir, Pour rester sur la même idée que Michel il y a aussi : Sub Test() Application.Dialogs(xlDialogSaveAs).Show End Sub Tout dépend de la finalité exacte. A+

bonsoir, Je n'ai pas trop de temps à te consacrer ce soir. Je solutionnerais ce problème en sauvegardant ma variable dans un nom de fichier quelconque. Par exemple admettons que tu veuilles sauvegarder 901200537 Tu vas dans le bloc note, tu enregistres (dans le répertoire d'excel) ton...

Bonsoir, Cette question est abondament traitée Lien supprimé Je t'engage vivement à lire tout le fil... A+

Bonjour, Tu utilises une propriété ou une méthode sans préciser de quoi tu parles Sub ObjetPropriété() Myrange.Value = True 'Objet requis Range('Myrange').Value = True 'Ok End Sub Sub ObjetMethode() Classeur1.Close 'Objet requis Workbooks('Classeur1').Close 'Ok End Sub Ok ?

Re:Soucieux de ménager vos nerfs... Plus de souçis à se faire ! Finalement, j'ai modifié le fichier afin de vous restituer vos barres d'outils préférées à la sortie. C'est y pas mimi ? A+ Message édité par: galopin01, à: 24/04/2005 23:29

Bonsoir, Désolé si je suis à peu long à répondre, mais je me débats avec d'autres pb. Un antidote parmi tant d'autre : Sub InvCB() For Each bar In Application.CommandBars bar.Visible = True Next End Sub L'inconvénient c'est que maintenant toutes les barres sont visibles. C'est vrai...

Bonsoir, C'est sans commentaire, mais pour les explications... Yaka demander ! Cordialement. A+ Roger

Bonsoir, Le problème n'étant pas simple je te donne une appli assez bien aboutie... mais un peu volumineuse. A télécharger ici A+

bonjour, pas trop le temps de me pencher, mais on devrait pouvoir enregistrer les macros sensibles en xla dans un autre classeur (vide) et les passer en référence. A+

Bonsoir, A mon avis l'erreur est plus loin : toute modification de B100 entraîne le lancement de Worksheet_Change Si tu place un MsgBox 'Ok' tout de suite après... If Target.Row = 100 And Target.Column = 2 Then MsgBox 'Ok' ... Alors tu verras que la condition est bien évaluée. Il faut...

Bonsoir, Je confirme. Si le souçis est de supprimer une feuille sans affichage du message, l'instruction est la même : Sub Test() Application.DisplayAlerts = False Worksheets(2).Delete End Sub A+

bonsoir, Sub ImpChange(): Application.Dialogs(xlDialogPrinterSetup).Show: End Sub A+

bonjour, si j'ai bien compris... l'idée c'est de créer une fonction personnalisée qui ne fait que passer ta variable à la cellule A8 Function BIDON() BIDON = a7 End FUNCTION ensuite tu récupères directement 'A8' = '=BIDON()^9+8BIDON()^8+..' et tu n'as même plus besoin de ta fonction a...

bonjour, Alt+F11 Ensuite Insertion/Module Dans la feuille blanche qui s'ouvre alors tu colles le texte suivant : Sub Test() MenuBars(xlWorksheet).Reset End Sub Ensuite F5 Ensuite de nouveau Alt+F11 Normalement ça devrait rentrer dans l'ordre A+

bonjour, cette formule : =si(esttexte(a1);1;0) renvoie 1 dans une (autre) cellule si A1 'ESTTEXT' le problème est de savoir si tu veux faire quelque chose de similaire ou si tu veux remplacer les valeurs de la sélection. DG62 et Pascal remplacent la sélection La macro ci jointe donne une...

Bonsoir, Pour info je viens de modifier la deuxième (TestConC) qui concatène maintenant correctement les colonnes A et B Attention ! Elle efface en même temps colonne A et B : ensuite c'est la première macro (testC) qui s'applique... Compte tenu de la vitesse de travail je pense qu'on peut...