Résultats de la recherche

Bonjour Mapomme, oui en effet cela venait de la requête SQL qui alimente le fichier, il fallait que j'enregistre le fichier avant de lancer la macro, je cherche encore comment éviter ce "désagrément" Cordialement

Bonjour à tous, voila mon soucis, j'ai une macro vba qui fonctionne tres bien...MAIS elle est trop lente sur un fichier de 55000 lignes, j'aimerai l'optimiser (actuellement = 15mn de traitement.....) , je pense que l'utilisation de tableau (Lbound,Ubound) m'aiderait mais je ne connais pas trop...

Bonjour Dranreb, un mot : excellent, je ne pensais pas qu' il fallait un truc si complexe pour cette fonctionnalité je n'ai pas encore compris la syntaxe, mais je m y attelle merci beaucoup

oui effectivement, a force de changer le code j en oublie l essentiel MAIS toujours erreur 438, je me demande vraiment si c est possible de le faire directement en worksheets, ou si on n est pas obligé de passer par un userform, c est déconcertant tout de même

erreur 438, encore et encore.....:-)

re j ai déjà essayé en ajoutant set et en enlevant adresses j ai une erreur toujours la même, méthode non géré par l'objet je fais ce code pour aider quel qu un, faut qu il soit simple a utiliser, surtout qu il doit l exécuter une fois par mois l idée de la sélection de plage c est plutôt...

Bonjour Dranreb je préfère vraiment passer par les valeurs des combobox, si possible:-) j'étais parti entre temps sur une autre méthode : mais j'ai une erreur sur l'affectation des variables dd (date debut) et df (datefin) une aide serait la bienvenue :-) voila le code : Private Sub...

bonjour à tous apparemment ça a l air compliqué cette histoire :-) une piste a creusée ? Cordialement

Bonjour à tous, je nomme des plages dans le gestionnaires de noms (correspondant à un tableau) j'alimente 2 Combobox : - 1 pour la date de début - 1 pour la date de fin j'ai 2 graphiques qui sont alimentés via les données du tableau voila mon soucis: j'aimerai que via le choix des 2 combo...

Bonjour à tous @Dranreb, j'ai vu déjà ton code sur un autre post, et je l'ai testé (flashi :-) mais trop complexe pour moi, je cherchai un truc plus simple @Modeste geedee , merci c est ce que je cherchai merci à vous deux

Bonjour à tous, j'explique mon soucis, j'ai sur un classeur : - plusieurs macros (jusqu'à la rien d'anormal) - un bouton, qui exécute toutes ces macros à la suite (toujours rien d'anormal) par contre je voulais ajouter un bout de code sur ce bouton en début et fin de macro, pour permettre une...

Bonjour à vous merci d'avoir continué à creuser le sujet :-) Cordialement

Bonjour à tous, @Bruno, en VBA ca me permet d empêcher "les indésirables" d'effacer la colonne :-) je garde quand même sous le coude cette formule, @ sousou , excellente cette fonction, j ai adapté car ma colonne n'est pas toujours au même endroit en modifiant ainsi c1 =...

Bonjour à tous, je m'explique car le titre je l'avoue n'est pas explicite dans le fichier joint simplifié, j'ai 2 colonnes (date et Data) dans l'onglet Data je souhaiterais extraire de façon auto (VBA) le mois le plus bas de cette liste ainsi que le mois le plus haut (avec des années...

Bonjour à tous et merci d'avoir pris le temps de me répondre @Paf : le code est erroné, car je n'obtiens qu'une erreur en G2 ou autre, dommage l'idee de faire appel à une fonction était séduisant et novateur pour moi ;-) @Bebere, ca fonctionne super !, j ai juste remplacé la référence...

Bonjour bebere le fichier exemple ci joint Cordialement

Bonjour à tous j'ai nommé dynamiquement 3 plages de données: DateReception DateReparation JOURSFERIES je souhaite renseigner sur une plage(Test) l'opération suivante: For each c in Range("Test") c.Offset(, 1).Formula = "=if(" & c.Offset.Addressxxxx" = " ""Oui""...

Bonjour et merci a vous la solution est un assemblage de vos réponses Sub test() With Sheets("donnees") Dim c As Range 'on regarde la colonne GTR (pour avoir le nombre de ligne a traitée) For Each c In Range("GTR").Cells c.Offset(, 1).Formula =...

non plus....

Bonjour à tous je nomme precedement une plage et ensuite je fait une boucle sur celle ci mais ca plante sur la ligne For each c... d'avance merci Sub test() Dim c As Range For Each c In Range("donnees") c.Value = "=if(c.Offset(, -1).Value= ""DRF"";""Oui"";""Non"")" Next c End Sub