Résultats de la recherche

Bonjour, Je ne suis pas un habitué du publipostage, donc ma question est sûrement très basique. J'ai créé un tableau pour faire du publipostage. Dans une des colonnes, j'ai une date, qui est affichée en format français (30/10/2020 par exemple), et lorsque je réalise le publipostage, cette date...

Super, ça marche ! Je ne m'attendais pas à une méthode de ce type… Merci !!!

Bonjour, Je cherche à faire une sommeprod conditionnée à une en-tête de colonne. Voilà l'exemple : Je souhaite pouvoir modifier manuellement la valeur en H1 par l'une des valeurs de la plage B1:F1. Le résultat sera en case H6 dans lequel je voudrais retrouver la valeur de ...

Re : "If Not Intersect" fonctionne mal !!! Avec quelques modifs ça a l'air de pas mal marcher. Je préfère tout de même dans son utilisation le menu déroulant en sélection de données, mais là au moins le bug ne se reproduit pas. Merci beaucoup,

Re : "If Not Intersect" fonctionne mal !!! Bonsoir, Je rame pas mal pour comprendre ce que tu as fait, mais ça a l'air de bien marcher. Ta solution permet en effet d'éviter la sélection de données et visiblement le bug ne se reproduit pas. Pour les modifications que tu as faites dans les...

Re : "If Not Intersect" fonctionne mal !!! Bonsoir, J'ai modifié le code et j'ai toujours cette Erreur d'exécution 1004. Comme le disais XOU, il semble que cette erreur apparaisse dès que je sélectionne une cellule contenant des validations de données (dans mon cas, une liste dans un menu...

Re : "If Not Intersect" fonctionne mal !!! Ce qui est surprenant, c'est que la macro fonctionne tout de même la plupart du temps et que même lorsqu'elle boggue, si on ne va pas sur le déboggueur l'image est effectivement supprimée. Cela veut bien dire que la syntaxe est bonne... Sinon...

Re : "If Not Intersect" fonctionne mal !!! Les 2 macros Insertion_Image et Insertion_Carto. C'est le code : If Not Intersect(sh.TopLeftCell, Range(Cells(Noligne, 5), Cells(Noligne + 2, 6))) Is Nothing Then sh.Delete qui normalement supprime tous les objets dans le Range défini. Le but est...

Re : "If Not Intersect" fonctionne mal !!! Dans le fichier, les lignes posant problèmes sont en commentaires et j'ai oublié de te les repasser en code normal.

Re : "If Not Intersect" fonctionne mal !!! OK, merci, je t'envoie ça.

Re : "If Not Intersect" fonctionne mal !!! Bonjour, Je ne connais pas la différence entre les 2, donc je ne sais te répondre. Il est situé au même endroit que si j'effectuais un enregistrement de macro (si ça peux te permettre d'en déduire la réponse). Cdlt,

Re : "If Not Intersect" fonctionne mal !!! Bonjour, Je ne m'étais pas aperçu du lien existant entre l'utilisation de cellules contenant des validations de données et ce bug. Merci de cette info, même si elle ne règle pas mon problème car j'ai besoin de garder des menus déroulants dans mon...

Re : Archiver données sur une autre feuille Je ne sais pas si j'ai bien compris, mais je te propose ça : Sub enregistrement2() Dim i, j As Integer i = 0 j = 0 For i = 1 To 40 If Worksheets("CHEQUES").Cells(9 + i, 4).Value <> 0 Then Worksheets("REMISE CHEQUES").Cells(3 + i...

Re : SI ou SI ou SI Ca va marcher si tu n'as pas trop de conditions, et surtout ça peut devenir très lourd d'imbriquer des SI comme ça, mais si tu as juste besoin de ta formule pour 3 tests, c'est en effet le plus simple.

Re : SI ou SI ou SI Si ton tableau final est vraiment organisé comme dans ton exemple, j'essayerai : =INDIRECT("D" & A1) Mais attention si tu insères une ligne au dessus ou si tu décamles ta colonne D...

Re : Macro remplacer Sans macro, tu peux utiliser la fonction : =SUBSTITUE(B3;".";",") pour remplacer tout bêtement le point par une virgule dans le cellule B3.

Bonjour, J'utilise la fonction "If Not Intersect" pour effacer des formes (shapes) situées dans un range bien défini avec le code suivant : Dim A As Integer A = 7 Dim sh As Shape For Each sh In ActiveSheet.Shapes If Not Intersect(sh.TopLeftCell, Range(Cells(A, 1), Cells(A + 25...

Re : Copier / Coller en tant qu'Image J'ai essayé avec du code utilisé pour effacer des "shapes" dans une plage de cellule, en remplaçant .delete par .select : Mais seule la dernière alvéole reste sélectionnée, il faudrait pouvoir coder le maintien de la touche CTRL pour que toutes les...

Re : Connaitre la cellule placée sous un bouton Ca marche super, merci, c'est exactement ce que je voulais !

Re : Copier / Coller en tant qu'Image j'ai essayé mais la prise de photo ne fonctionne pas en enregistrement de macro. L'idée ma paraissait bonne pourtant...