Résultats de la recherche

  1. Calvus

    Microsoft 365 Création de graphique

    Bonjour, Je me casse la tête sur un graphique. Voici joint un fichier vite fait. Il s'agit d'une association, qui obtient des revenus 3 fois par an, mais dont les charges sont évidemment réparties sur les 12 mois de l'année. Mon souhait est d'obtenir un visuel comparant l'année en cours et...
  2. Calvus

    Microsoft 365 Rafraichissement Listbox

    Bonsoir à tous, Je me heurte à un problème qui me rend fou, et pourtant j'ai déjà eu à résoudre ce type de cas, mais je dois être trop fatigué ! J'alimente une listbox via un tableau. Une fois la ligne sélectionnée, les données sont écrites sur une nouvelle feuille, et j'aimerais mettre à jour...
  3. Calvus

    Microsoft 365 Lenteur macro

    Bonsoir ou bonjour à tous, Tout d'abord, tous mes vœux pour cette nouvelle année. 😊 J'ai un code à l'initialisation d'un userform qui rend très lente, a savoir environ 3,5 secondes. C'est une ligne qui pose problème. Si je l'enlève, le userform s'ouvre en 0,06 secondes. Cela concerne...
  4. Calvus

    Microsoft 365 Boucle sur plages nommées

    Bonjour, Je pense avoir déjà fait cela, mais je ne me souviens pas, et du coup je ne suis pas sûr... J'ai 6 plages, Plage1, Plage2, etc. J'aimerais boucler dessus, mais cela ne fonctionne pas. L'idée est de remplacer le numéro de ma plage par i : Set Plage1 = Range("C9:G9") Set Plage2 =...
  5. Calvus

    Microsoft 365 Problème Listbox.Selected

    Bonjour à tous, J'ai une listbox à 3 colonnes dont il m'est impossible de sélectionner une ligne, et 3 autres simple colonne (Listbox1 Listbox2 Listbox4). J'ai fait un petit code test qui fonctionne sur les 3 autres listbox : For j = 0 To ListBox3.ListCount - 1 If ListBox3.Selected(j) = True...
  6. Calvus

    Autres Problème Morefunc

    Bonjour le forum, Alors je sais, d'aucuns d'entre vous diront qu'il est grand temps de changer de logiciel, mais il se trouve que j'ai Excel 2007, et que cela suffit pour mon utilisation poussée grâce à mes macros. En revanche, après plantage de mon PC il y a une quinzaine de jours ( et quelle...
  7. Calvus

    Virus, mais pas que...

    Bonsoir à tous, En ces sombres temps d'inquiétude, justifiée, il me semble qu'il n'y ait pas simplement que cette maladie faisant la une de tous les média à rendre un peu triste. En effet, c'est avec amertume que je vous écris ces quelques lignes, pour vous exprimer mon ressenti de l'évolution...
  8. Calvus

    Autres Tableaux virtuels très lents..

    Bonjour le forum, J'ai l'habitude de manipuler des tableaux en VBA, notamment pour le gain en vitesse et la maniabilité, mais je suis confronté à une nouveauté ! La macro présente dans le fichier fonctionne très bien mais est d'une extrême lenteur. Près de 100 secondes, et même un peu plus...
  9. Calvus

    Autres Copie de noms définis vers un autre classeur

    Bonjour, Y a t'il un moyen simple ou un code fonctionnel afin de copier les noms contenus dans le gestionnaire de noms vers un autre classeur ? Ce code trouvé chez Microsoft ne fonctionnant pas... Sub Copy_All_Defined_Names() For Each x In ActiveWorkbook.Names...
  10. Calvus

    Autres Problème Sumifs Vba avec Dates

    Bonsoir le forum, Tout est dit dans le titre. Après plusieurs essais, le code "passe" finalement, mais j'obtiens inlassablement 0. Ce qui pose problème est cette partie, dont j'ai essayé plusieurs conversions mais sans succès.. CDate(Right(t(j, 1), 4)) = madate Et en particulier le " ="...
  11. Calvus

    Autres Utiliser un Array

    Bonjour le forum, Comment faire pour utiliser les valeurs d'Arrays déclarés dans une macro avec un Select Case ? Par exemple ceci fonctionne : Cadre1 = Array("01", "02", "03", "04") Select Case sh.Name Case "01", "02", "03", "04" Mais si je fais appel au nom de...
  12. Calvus

    Autres Format dans tableau dynamique

    Bonjour le forum, Il n'est apparemment pas possible d'affecter un format à une variable de tableau dynamique. Comment contourner ce problème, sachant que le tableau trouvé sera écrit sous la forme : With Range("Q" & Rows.Count).End(xlUp).Offset(4, 0).Resize(2, 2) .Value = TCADEP etc End...
  13. Calvus

    Autres Problème d'ouverture

    Bonsoir le forum, Alors c'est la catastrophe. J'ai un classeur de travail, important donc, sur lequel j(ai travaillé cette nuit et aujourd'hui, soit environ 16h de travail. Je fais généralement une sauvegarde le soir, mais, quand j'ai fermé ce soir, et que j'ai voulu ré-ouvrir pour une...
  14. Calvus

    Autres Propriété Resize

    Bonjour le forum, Est il possible de ne sélectionner que certaines colonnes avec la propriété Resize ? Par exemple le tableau (a) va de A1 à J50 et on voudrait ne ré-écrire que les colonnes A C et F Ce qui donnerait (dans l'idée) : Range("A1").Resize(i, 1 & 2 & 3) = a Ce qui ne fonctionne pas...
  15. Calvus

    Autres Tableau vide

    Bonjour le forum, Pouvez vous me dire pourquoi ce code fonctionne dans un module, mais pas dans le code de ma feuille ? Option Explicit Private Sub CommandButton1_Click() Dim t, i As Long 'Nouveau code le 5.08.19 If Range("C83") = "" Then t = Range("B2:J63")...
  16. Calvus

    Autres Import XML

    Bonsoir le forum, Est il possible de contrôler tout le processus d'importation en XML ? Je m'explique. Je me sers de Google Earth pour importer des recherches dans Excel. J'ai automatisé la procédure, mais il reste une partie manuelle, à savoir tout ce qui est recherche dans Google Earth...
  17. Calvus

    Autres Mister Vba ou Mystère Vba...

    Bonsoir le forum, Une petite énigme en cette canicule estivale.. Avec le même code et la même formule, j'obtiens 2 résultats différents.. Formule : =NB.SI(C6:C362;"<>""")-NB.SI(P6:P362;"n")-NB.SI(R6:R362;"x") J'obtiens 116 Code : Sub Non_Traité() Dim i As Integer, n As Integer For i = 6 To...
  18. Calvus

    Autres Rapidité Dictionnaire et Find

    Bonjour le forum, J'ai une macro me permettant de chercher des occurrences si elles existent dans une autre feuille. Le code s'exécute en 0,44 s Le problème est si je tente de repérer la ligne trouvée. Là le temps passe à 2,8 s Le problème est dû à Find qui prend trop de temps. J'ai mis un...
  19. Calvus

    Autres Saut à la ligne dans un bouton

    Bonjour le forum, Est il possible de faire un saut à la ligne dans un bouton, et si oui comment ? Alt + Entrée ne fonctionne pas. Je parle de l'insertion d'une forme, pas d'un bouton de commande. Merci et bonne journée.
  20. Calvus

    Autres Macro en 2 temps..

    Bonjour le forum, J'ai une macro qui s'effectue en 2 temps et ça m'agace ! Perte de temps et d'énergie, mais surtout d'ergonomie. J'ai un classeur, à partir duquel j'en ouvre un autre (macro 1) pour y chercher des données. Je sélectionne une cellule puis retourne dans mon classeur initial pour...