A

Membre impliqué

Inscrit le :27/02/2019
Dernière activité :17/12/2025 à 18:36
Version d'Excel :2007
Messages
1'326
Votes
324
Fichiers
0
Téléchargements
0
SujetsMessagesStatistiquesVotes reçus

Messages postés par AlgoPlus - page 17

DateAuteur du sujetSujetExtrait du message
20/08/2019 à 19:32steamby Recherche solution pour faire coïncider deux listesBonjour steamby , [Zebulon] , un essai macro: A+...
20/08/2019 à 18:47VDMICHEL EstVide en VBAEssayer en ajoutant la dernière parenthèse fermante : Formule = "=if(isblank(D" & MaLigneEntete & "),"""",E" & MaLigneEntete & "/D" & MaLigneEntete & ")" A+...
20/08/2019 à 18:23Micka_PlaysVariable objet ou variable de bloc with non définieOui mais ... sur quelle ligne de code ? Dans l'userform FRMACT, les combobox CBBAC1 à CBBAC5 ne sont pas initialisées; lorsqu'on qu'on veut y saisir une activité la procédure Private Sub CBBAC1_Change() (ou celle correspondant à la combobox) se déclenche dès le premier caractère entré, la ligne ...f...
20/08/2019 à 14:15Elfinols Mettre en forme une plage de cellule en VBASi c'est toujours dans le cadre d'automatiser la mise en forme, rester sur ce fil, sinon un nouveau fil ......
20/08/2019 à 13:00Elfinols Mettre en forme une plage de cellule en VBAA tester: A+...
20/08/2019 à 11:48Elfinols Mettre en forme une plage de cellule en VBAAvec un classeur contenant des données anonymisées et le code déjà créé, il serait plus facile de fournir une réponse précise.... A+...
13/08/2019 à 10:30phil107 Inversion jour/moisLe contenu d'une textbox est une chaine de caractères, d'où , sans doute, le problème d'interprétation de VBA. Essayer: A+...
10/08/2019 à 13:27AcmanPassage d'un fichier word en argument d'une procédurePour un appel de procédure avec paramètres : soit soit A+...
08/08/2019 à 09:54RonnyArgument VariableA essayer, si j'ai tout compris: =MOYENNE(INDIRECT("A2:A"&Feuil2!A1-1)) Feuil2!A1 étant l'adresse de la cellule donnant le nombre de points A+...
07/08/2019 à 18:56jpmalbManipulation fichiers en VBAUne solution possible: A+...
07/08/2019 à 15:49TescoGestion Buvette Club SportifUn essai perfectible: en feuille "caisse" pas de modification. A l'appui sur bouton "Enregistrer" on vient copier en feuille "VENTES" les ventes de la feuille "CAISSE" regroupées par article. A+...
07/08/2019 à 14:59titemisaAdditionner cellules contenant formule SiSans plus de détails sur la formule SI, ni classeur, on peut supposer que la formule retourne du texte ...
07/08/2019 à 14:56Stan27BeforeDoubleClickPeut-être le R manquant ? If Not Application.Intersect(Target, Application.Union(Range("R12:R19"), Range("S12:S19"),Range("R30:R40"),Range("S30:S40"),Range("R54:R57"),Range("S54:S57"),Range("R70:R71"),Range("S70:S71"),Range("R79:R82"),Range("S79:S82"),Range("R92:R99"),Range("S92:S99"),Range("R109:R1...
06/08/2019 à 18:17Marsu29200Problème assigner le résultat d'une fonction arraySi pouvait fonctionner, on aurait un tableau (sans nom!) contenant 1 et 2. mais pas directement a et b en faisant on a bien un tableau (nommé!) contenant 1 et 2 je ne comprend pas ce que vous cherchez à obtenir....un tableau ou bien les éléments du tableau ...
06/08/2019 à 16:08Marsu29200Problème assigner le résultat d'une fonction arrayPas sûr d'avoir tout compris ... A+...
05/08/2019 à 19:53serco19 Calculer avec la touche F5Je ne connais pas de solution avec F5.. une autre solution: écrire dans une cellule 0,8 , et copier cette cellule sélectionner la matrice Menu Edition, Collage spécial => Multiplication A+...
05/08/2019 à 18:48saber36Rectification codePar sûr d'avoir tout compris .... et sans le classeur ..... à tout hasard , charger dans la listbox de l'USF 1 , dans une colonne supplémentaire (qui ne sera pas visible) , le N° de la ligne de la feuille Excel. Par exemple si cette colonne supplémentaire est la troisième, on pourra, au niveau de l'...
05/08/2019 à 14:31TacentaureFin de mois et dateEssayer, avec la date en B3 : =DATE(ANNEE(B3);MOIS(B3);0) A+ Edit: Bonjour Mdo100...
05/08/2019 à 12:28valmaxRaccourcir un morceau de codeAvant d'essayer de répondre à cette question, peut-on connaitre la suite aux réponses des précédentes discussions ? https://forum.excel-pratique.com/viewtopic.php?f=2&t=128174&p=786425#p786425 https://forum.excel-pratique.com/viewtopic.php?f=2&t=127926&p=784712#p784712...
05/08/2019 à 12:16GerogestImpression d'une feuille Excel avec 2 cases indexées suivant une listeUn essai macro: remplacer la ligne W2.Range("A1:I30").PrintPreview 'pour prévisualiser par W2.Range("A1:I30").PrintOut ' pour imprimer A+...
04/08/2019 à 11:03valmaxModifier codePour faire plus court, on peut déporter dans une sub le code répété dans chaque Private Sub OptionButtonX_Click() Par exemple deviendrait: avec la sub commune aux 4 optionbutton: un principe similaire pourrait être utilisé pour les CommandButton... A+...
02/08/2019 à 11:09danval Modif macroSi les données ne sont plus à la même place qu'initialement, modifier la plage du tableau Tablo pour que ça coïncide : .Range("A" & Rows.Count).End(xlUp).Row donne la dernière ligne "utile" des données.... s'il y a des données en colonne A. Puisque les données sont déportées en col B: .Range("B" & R...
01/08/2019 à 10:31danval Modif macroUn essai: juste rajouter la mise en tableau( Taberr) des lignes ni "Déjà présent" ni "A sortir" , au cas où... puis effacement feuille base et recopie du tableau Taberr ne pas oublier de déclarer les nouvelles variables au même endroit que celles existante (il doit bien y avoir une raison pour les a...
22/07/2019 à 14:12nathg31 Probleme avec countUBound(arrFileList) donne le nombre d'éléments sélectionnés, s'il y en a au moins 1...
22/07/2019 à 12:30nathg31 Probleme avec countPeut-être: A+...
22/07/2019 à 11:59RomErreur 9Désolé, impossible de lire le classeur même avec le convertisseur pour ma version XL2003. L'erreur intervient sur Set Ws = ActiveWorkbook.Worksheets("Feuil1") ?? la feuille Feuil1 existe-t-elle ...
20/07/2019 à 12:32goldentablesListes deroulantes liees sur 4 niveauxUn petit tour sur le site de J. BOISGONTIER vous apportera certainement la solution: http://boisgontierjacques.free.fr/pages_site/listes_cascade.htm Bonne suite...
20/07/2019 à 12:23KTMControler si listView est videPeut-être essayer : ... ListView1.ListItems.Count .....
20/07/2019 à 12:22KTMControler si listView est vide? laquelle ? sur quelle ligne? A+...
19/07/2019 à 16:57RomErreur 9Il y aurait toutes les chances pour que l'erreur survienne sur cette ligne: puisqu'on est alorts positionné sur le classeur créé par la ligne Sheets("Base").Copy , et que ce classeur ne contient pas de feuille Feuil1. Pour y remédier, un remède possible: Set Ws = ActiveWorkbook.Worksheets("Feuil1")...
17/07/2019 à 20:44Fabien55 Afficher message erreur si valeur introuvable dans tableau VBAEn début de macro et en fin la même instruction avec RGB(0, 0, 0) quelques recherche sur le net vous auraient renseigné...
17/07/2019 à 15:19Fabien55 Afficher message erreur si valeur introuvable dans tableau VBADans la Sub Filtrer_DP_Etiquettes_Expe() , juste avant la ligne: insérer A+...
15/07/2019 à 17:24nmarot Code VBA qui ne fonctione plus après réouvertureDans Private Sub btnrechercher_Click() les Cells(no_ligne, ... ne sont rattachés à aucune feuille. Les infos sont donc prises dans la feuille courante qui est la feuille Tableau de bord qui ne contient pas les données. Il faut donc indiquer sur quelle feuille on veut obtenir les données : ne pas ome...
15/07/2019 à 13:13nmarot Code VBA qui ne fonctione plus après réouverturePas facile de tester une recherche avec une feuille Source vide ! Comment est prévue de fonctionner la rechercher? A+...
15/07/2019 à 10:33Simon_Lbb Erreur dans le nom des ongletsUne solution possible: A+...
13/07/2019 à 09:50dgermain Combineur de NombresUn essai macro, si j'ai bien compris : A+...
12/07/2019 à 18:49InvitéTextbox couleurSi le nom des textbox est de la forme TextBox1, TextBox2 .... pour les avoir en rouge dès l'ouverture de l'USF: ou bien modifier manuellement la propriété BackColor de chaque textbox pour modifier la couleur en blanc: à placer en fonction de l'évènement qui doit déclencher le changement de couleur....
12/07/2019 à 10:11roulio_97Conditions sur des cases à cocherIl y a surement une solution pour réaliser ce dont vous avez besoin, mais le plus simple est peut-être d'utiliser des OptionButton plutôt que des CheckBox Utiliser la propriété GroupName pour définir des groupes différents pour chaque OptionButton, sauf pour les options incompatibles qui auront le m...
10/07/2019 à 12:01alexpauSomme en fonction de l'étatEssayer la fonction SOMME.SI() en D19 : =SOMME.SI(E5:E17;"Devis";D5:D17) A+...
10/07/2019 à 11:37Arafac Purger code macrosPeut s'écrire: adapter pour le reste du code... Quant au bug il faudrait plus de précisions... A+...
09/07/2019 à 18:51lockesraChercher les occurences d'une suite de stringsUne solution : utiliser le filtre automatique qui n'affiche que les lignes correspondant au critère sélectionné dans chaque colonne, et en fin de données, ajouter la formule qui donnera le nombre de lignes filtrées : =SOUS.TOTAL(3;F11:F20) A+...
09/07/2019 à 13:00fronck Comparaison dates en VBAOui, le classeur avec les données et le code ... A+...
08/07/2019 à 09:47kirbybDebogageToujours pas de précisions sur le code erreur ? 379 c'est le nombre d' éléments contenus dans le dictionnaire. c'est utilisé pour définir la taille de la plage où les données seront copiées; le modifier ne servirait à rien sauf si la plage déborde au delà du nombre de lignes admises par excel. et po...
05/07/2019 à 17:19SNKG Intervalle de datesUn essai macro: A+ edit : ou bien...
04/07/2019 à 12:07Greggg TextBox en fonction de l'item sélectionné dans ListBoxUne solution pourrait consister à insérer dans la listbox, l'info de la colonne D sans augmenter le nombre de colonnes de la listbox puis pour l'affichage dans les textbox: A+...
02/07/2019 à 16:03alvych Collage dernière ligne non vide +1Peut-être en décomposant: A+...
02/07/2019 à 11:12CHRIS78550InputBox avec remplissage aléatoire...
02/07/2019 à 11:02CHRIS78550InputBox avec remplissage aléatoireUne autre solution: après détermination du nombre et des initiales des managers, on parcours la colonne B;pour chaque cellule contenant 1 on copie les initiales des manager suivant la liste des managers. Dans ces conditions, chaque manager aura sensiblement le même nombre d'anomalie. A+...
02/07/2019 à 10:26kirbybDebogageSi le fichier est confidentiel, il y a peut-être moyen de l'anonymiser ...
02/07/2019 à 10:24kirbybDebogageCurieux que ça passe pour et qu'il y ait une erreur ( laquelle ?) sur Après quelques essais j'ai une erreur 1004 sur si la colonne B est vide . Mais pas d'erreur sur la ligne indiquée le dictionnaire Dico_boitegeo_lignes contient-il des items ? A+...