Résultats de la recherche

Bonjour à tous, Le code ci-dessous est placé dans un module que je viens exécuter à l'aide d'un bouton. Je rencontre un problème lorsque je veux réactiver les filtres auto en fin de code. Car, ils se réactivent au bout de la 2e exécution... Auriez-vous une solution svp Sub Ajout_feuil() Dim...

Bonjour à tous, Dans le code ci-dessous, quand je tape "ABCDE" dans la plage D6:D5000. Le premier fichier (C:\Users\Doc 1.pdf) s'ouvre. Ensuite, j'aimerais avoir le choix d'ouvrir ou pas le 2ème fichier (C:\Users\Doc 2.xlsx). Or, avec le code ci-dessous quand la boite de dialogue (vbYesNo)...

Bonjour à tous, Je souhaiterais autoriser la saisie (Format date). Seulement si la colonne 10 est égale à "Acceptée". Si égale à "Refusée" ou "Annulée" interdire la saisie et prévenir l'utilisateur via une boite de dialogue. Voir fichier test en PJ Merci d'avance, Mickaël

Bonjour, Je souhaiterais extraire le mois en toute lettre à partir d'une date dans une requête power query. Voir fichier en PJ. Merci d'avance,

Bonjour, Je suis bloqué et vous (experts) demande de l'aide svp Je suis à la recherche d'une solution qui me permettrait de retrouver le numéro de la fiche NC la plus ancienne, non clôturée, de l'atelier Tissu par exemple. Merci d'avance,

Bonjour à tous les experts, Je rencontre un petit souci avec le code vba ci-dessous. Le principe de la macro est qu'avant toute sauvegarde : On parcourt toutes les lignes de données dont la colonne A est renseignée et si l'une de la colonne F est vide. On affiche une inputbox pour chaque...

Bonjour à tous les experts, J'aimerai simplifier la ligne ci-dessous : Loop Until (Not .Offset(0, -4).Value = "" And Not .Offset(0, -4).Value = "FAUX" And Not .Offset(0, -4).Value = " " And Not .Offset(0, -4).Value = " " And Not .Offset(0, -4).Value = "." And Not .Offset(0, -4).Value = "..")...

Bonjour à tous les experts, Comment puis-je adapter le code ci-dessous pour que le fichier cité en lien hypertexte s'ouvre seulement à la première ouverture de celui-ci et une seule fois par semaine. Private Sub Workbook_Open() MsgBox "Renseigner la carte de ctrl XXXXX", vbExclamation...

Bonjour à tous les experts, Dans le code ci-dessous, je rencontre une erreur de compilation "variable de contrôle déjà utilisée". Auriez-vous une solution svp Private Sub Worksheet_Change(ByVal Target As Range) Dim xCell As Range, Rg As Range On Error Resume Next Set Rg =...

Bonjour à tous les experts, Dans la macro ci-dessous (déjà créée avec les experts). Je souhaiterais empêcher les opérateurs de "shunter" la Inputbox juste en tapant sur "espace" en premier caractère. Private Sub Worksheet_Change(ByVal Target As Range) Dim Cellule_en_Cours As Range If...

Bonjour à tous les experts, Je souhaiterais afficher une boite de dialogue avec un fréquentiel tous les lundis par exemple . Ayant le titre suivant "Avez-vous pensé à renseigner le fichier XXX?" Celle-ci devra comporter deux choix : 1er choix : Le fichier a été renseigné. La boite de dialogue...

Bonjour les experts, En plus de la macro déjà existante. Je souhaiterais obliger l’opérateur à entrer un commentaire dans la colonne « O » si l'une des colonnes (de F à N) est vide sur la ligne en cours. Merci d'avance,

Bonjour, La macro présente dans le fichier joint ne me permet pas d'insérer le commentaire dans la cellule verrouillée. Auriez-vous une solution à m'apporter svp Merci d'avance,

Bonjour à tous les experts, Je souhaiterais intégrer une IMPUTBOX dans le fichier en PJ. Si la valeur de colonne E sort de la zone verte du graphique. Obliger l'opérateur à écrire un commentaire par le biais d'une IMPUTBOX. Puis en appuyant sur "OK" le commentaire viendrait se placer...

Bonjour à tous les experts, Je souhaiterais intégrer une IMPUTBOX dans le fichier en PJ. Si la valeur de colonne E sort de la zone verte du graphique. Obliger l'opérateur à écrire un commentaire par le biais d'une IMPUTBOX. Puis en appuyant sur "OK" le commentaire viendrait se placer...

Bonjour, Je souhaiterais ajouter une condition au code ci-dessous. Afin que la boite de dialogue s'affiche uniquement quand le chiffre 21 est rentré dans la colonne G. Private Sub Worksheet_Change(ByVal Target As Range) Dim xCell As Range, Rg As Range On Error Resume Next Set Rg =...