Résultats de la recherche

Félicitations ;) ça tourne vraiment mieux.

Beaucoup plus élégant en effet. Je ne connaissais pas le CASE en VBA, ça ressemble au SWITCH/CASE du C. Merci pour le bout de code. je vais comparer le temps d'exécution avec des macros associées à chaque bouton. Beaucoup plus de travail mais peut-être plus efficace. A moins qu'un spécialiste ne...

Bonsoir Je fais une sorte de calculette avec un petit clavier. Chaque touche de ce clavier est une cellule. Quand on clique sur une cellule, une action est déclenchée. J'utilise SelectionChange et ça fonctionne très bien SAUF si on sélectionne une même cellule plusieurs fois de suite. Logique...

J'importe avec Query des données d'un tableau Excel qui est sur un serveur. Jusque là ça va. Après j'avoue, je coince. Dois-je le copier? Ca n'a pas l'air bien compliqué mais j'ai besoin d'un pas à pas, pour visualiser les étapes. S'il n'y en a pas, je ferai autrement, pas une catastrophe...

Merci mais désolé, cette fois je coince. Il y a une étape que je n'intègre pas ou une manip qui m'échappe. Il doit bien y avoir un tuto pas à pas comme pour les formules. Peut-être que ça porte un autre nom en Fr et du coup je rate les tutos Fr?

Re Je me suis penché dessus mais je trouve des tutos en Anglais et ça n'aide pas. Je dois rater une étape, ça ne fonctionne pas . Vous auriez un tuto en FR svp?

Merci à vous deux. Faut que j'étudie ça, c'est ce qu'il me faut.

Bonjour Je me pose une question. Dans mon classeur, j'importe les données d'un classeur distant. Sur ma feuille, j'ai une liste des commandes en cours. En face de chaque commande, j'aimerais, à l'aide d'une liste déroulante par exemple, choisir quel préparateur devra s'en occuper. Jusque là, je...

Bravo et merci, je n'y aurais même pas songé!

En man geant mon sandwich j'ai tenté ceci: origine = Array("I", "J", "K", "L", "M") Destination = Array("H", "I", "J", "K", "L") For j = 1 To 5 Worksheets("CHIFFAFFANNUEL").Range(Destination(j) & i) = Worksheets("CHIFFAFF").Range(origine(j) & 16).Value Next Ca ne marche pas...

Roh j'ai pas beaucoup de succès sur ce coup-là

Bonjour Je pense que j'ai un problème de syntaxe car ceci fonctionne: Worksheets("CHIFFAFFANNUEL").Range("M" & NumDeSem + 2) = Worksheets("CHIFFAFF").Range("J3") //une seule cellule alors que ceci, non: Worksheets("CHIFFAFFANNUEL").Range("H" & NumDeSem + 2) =...

C'est intéressant aussi merci

Merci pour le coup de pouce

Bonjour Delete, tu es sûr? Je ne veux pas supprimer la cellule, juste ce qu'elle contient sans toucher aux listes etc J'utilise toujours Clear jusqu'ici ça fonctionne bien.

En effet, merci, c'est beaucoup plus simple ^^

Bonjour Je tente ceci: Effacer = Array("d6", "e6", "c6", "h6", "i6", "j6", "k6", "m6") 'la liste des cellules dont je veux effacer le contenu 'on efface en masse For i = 0 To UBound(Effacer) ' Les tableaux commencent en 0, Ubound donne la fin Range(Effacer(i)).ClearContents...

encore un grand merci à toi, ça fait tourner le code teeeelllleeeement plus vite

C'est parfait, j'étais pas très loin. Merci ca fonctionne parfaitement, ça va faire du ménage dans mon code ^^ Bon et si je veux faire ça dans l'autre sens: Sub Macro2() copcol1 = Array("a1", "b1") copcol2 = Array("a2", "c1") copcol3 = Array("a3", "d1") For i = 1 To 3 Range("copcol&i"(2)...

Bonjour J'ai déjà fait ça en C et en Python mais pas en VBA Je voudrais indiquer dans une liste les cellules d'où je veux copier des valeurs et dans une autre les cellules vers lesquelles je veux coller des valeurs: Sub Macro1() source="a6","c2","e7" destination="n10","b12",a33" For i = 1 To...