| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 15/03/2019 à 13:09 | boltorak | Mise en forme conditionnelle | Le End If qui se trouve après les Next devrait se trouver avant. A la place du Else (qui ne sert à rien). Par ailleurs, pour chaque ligne ( 978 To 1233) on balaye l'ensemble de la plage H978:H1233, soit 255*255 itérations ! Avec une seule itération: A+ Edit: Bonjour LouReed... |
| 15/03/2019 à 10:59 | TESNIERE | Comment concaténer ce code pour l'appliquer à 50 cellules consécutives | Heu.... Si au lieu d'être en colonne M la sélection se faisait en colonne A, on aurait quand même: Mais c'était peut-être une boutade ... A+... |
| 14/03/2019 à 22:16 | jacobino | Erreur d'exécution 57121 Excel 2003 | Après tests de ce code sous XL2003: Pas d'erreurs ! Ce serait quand même bien le nom de feuille "Labo Tri" qui poserait problème. un espace en trop quelque part et la feuille n'est pas reconnue. A tout hasard , une solution de contournement qui fonctionne chez moi : S'il y avait encore une erreur, c... |
| 14/03/2019 à 17:59 | Invité | Variables et Range("A" & .Rows.Count).End(xlUp).Row | Plus il y a d'explications, moins je comprends.... et le code m'embrouille encore un peu plus. Si on veut "travailler" , à partir de A11 sur les 20 premières lignes ( et 20 colonnes comme dans l'exemple): Où ? dans tb = .Range("d11").Resize(dl - 10, 20).Value qui est un tableau qu'on utilise pas par... |
| 14/03/2019 à 17:02 | Invité | Variables et Range("A" & .Rows.Count).End(xlUp).Row | Si j'ai bien compris, pour "sélectionner" la plage de A11 à la dernière ligne vide de la colonne A: Avec rattachement à une feuille : A+... |
| 14/03/2019 à 16:45 | ymeunier | [EXCEL/VBA] - Erreur d'exécution | Je n'arrive pas à ouvrir ton classeur ! le convertisseur vers ma version XL2003 plante . Ca n'est déjà pas bon signe !! Une version xls ? A+... |
| 14/03/2019 à 16:39 | Invité | Variables et Range("A" & .Rows.Count).End(xlUp).Row | J'avais lu un peu trop vite. Pour Starbuck: Une solution possible. Pour la plage A11:A21 Extraire est plutôt vague, qu'est ce que tu veux faire exactement ? A2+... |
| 14/03/2019 à 16:02 | Invité | Variables et Range("A" & .Rows.Count).End(xlUp).Row | A11 et a20 ne sont pas des variables mais des adresses de cellules. Range("a" & .Rows.Count).End(xlUp).Row est utilisé pour déterminer le N° de ligne de la dernière ligne non vide de la colonne A , mais ne permettra pas de compter le nombre de ligne entre deux adresses. Une solution pour déterminer... |
| 14/03/2019 à 15:28 | TESNIERE | Comment concaténer ce code pour l'appliquer à 50 cellules consécutives | J'ai traduis ça comme ça : pour M5 je modifie colonne B (2) M6 --> E (5) M7 --> H (8) .../... la relation entre le N° de ligne de colonne M et le N° de colonne à modifier est: N° Colonne =N° Ligne * 3 -13 pour M5 : 5 * 3 - 13 = 15 - 13 = 2 donc colonne B pour M6 : 6 * 3 - 13 = 18 - 13 = 5 donc... |
| 14/03/2019 à 15:08 | bellil djillali | Trouver tous les combinaisons possible de la somme | Une macro classique qui génère toutes les combinaisons et les copie en feuille "calculer". Sans plus de précisions sur l'application des contraintes technologiques et les indicateurs : non pris en compte. Bonne suite... |
| 13/03/2019 à 18:41 | ClaireD | Rechercher un nombre | ... |
| 13/03/2019 à 18:37 | Cdavid | Fichiers Excel inexploitables | Dans les classeurs TESTx, les données débutent en colonne B. La recherche de la dernière ligne renseignée : s'effectue sur la colonne 1 (donc A) et forcément retournera 1 wsLR étant égal à 1, et qu'on a pas précisé de step négatif, il n'y a pas d'erreur mais la boucle n'est pas exécutée. En faisant... |
| 13/03/2019 à 17:55 | bellil djillali | Trouver tous les combinaisons possible de la somme | Vous n'avez pas encore pas eu de réponse parce que je crois que votre soucis n'est compréhensible que par vous . Les éléments du classeurs n'éclaircissent rien: et g , h , i , j son des formules pour atteint la meilleure combinaison pour ( E ) et k , l , m , n son des formules pour atteint la meille... |
| 13/03/2019 à 17:37 | TESNIERE | Comment concaténer ce code pour l'appliquer à 50 cellules consécutives | Je me suis concentré sur le formatage de la bonne colonne, et pas regardé le reste. dans la plage M5:M24 que trouve-t-on comme valeur ? 0,1,2 ou 3? si oui : pour chaque Case supprimer les " " qui impliquent du texte. (Case 0 à la place de case "0") si non : ... |
| 13/03/2019 à 17:00 | belsamis010975 | Validation aprés remplissage usf | Il n'y a d'ailleurs aucun code dans l'UserForm ! ! ... |
| 13/03/2019 à 16:55 | ClaireD | Rechercher un nombre | Peut-être avec espace avant et après 20?? si le N° d'année est ainsi espacé. =CHERCHE(" 20?? ";A43) =STXT(A43;CHERCHE(" 20?? ";A43)+1;4)... |
| 13/03/2019 à 16:39 | TESNIERE | Comment concaténer ce code pour l'appliquer à 50 cellules consécutives | Pour déterminer la colonne à modifier: et dans Columns( "B:B" ) remplacer "B:B" par : Col Un petit coup d'enregistreur de macro vous aurait donné les formats cherchés: NumberFormat = "0.000" NumberFormat = "0.00" .../.... A+... |
| 13/03/2019 à 14:58 | ClaireD | Rechercher un nombre | Une autre solution: =CHERCHE("20??";A43) renvoie une erreur si non trouvé ; à gérer avec sierreur()... |
| 13/03/2019 à 14:36 | EES_VM | Problème somme | Dans cette formule: =SI(A2="CPE + BRASSAGE";"1244,94";SI(A2="RACCORDEMENT";1636,08;SI(A2="FIBRE NOIRE";"montant à déterminer";0))) on trouve : SI(A2="CPE + BRASSAGE"; "1244,94" ;... donc on affecte le texte 1244,94 alors que A2="RACCORDEMENT"; 1636,08 ;... on affecte le nombre 1636,08 A+... |
| 13/03/2019 à 13:16 | Invité | Scinder une ligne de données en deux avec application.Transpose | A la place de : coller cette modif: Attention [cc2] dans le code de la discussion et [c2] dans le classeur A+... |
| 13/03/2019 à 12:42 | TESNIERE | Comment concaténer ce code pour l'appliquer à 50 cellules consécutives | Une proposition: Adapter la plage où la macro doit se déclencher. reste à modifier tous les Range("G53") en Range("G" & lig) et les Range("D53") en Range("D" & lig) A+ Edit : Bonjour oyobrans J'arrive trop tard et moins bien !... |
| 13/03/2019 à 12:27 | Invité | Scinder une ligne de données en deux avec application.Transpose | Pas cherché et donc pas trouvé le fichier en question. Qu'est ce qu'on trouve dans dico.keys et dico. item ( ou bien dans chaque "colonne" de T2) ? A+... |
| 13/03/2019 à 11:22 | Sebyg | VBA - Sélectionner Feuille et Masquer Ligne | Cette ligne est une ligne de commentaire, il y a peu de chance que ce soit cette ligne qui présente une erreur ! Hidden signifie "caché ou masqué" Hidden = False va faire quoi ... |
| 12/03/2019 à 19:53 | ric | While Split sur 2007 > pas sur 2016 | Si la Cells(1,1) contient un retour à la ligne à la toute fin, le code proposé insère un "vide" en dernière cellule (donc efface cette cellule si elle n'était pas vide). S'il y a des incidences on peut modifier: par contre si en cells(1,1) il y a un retour à la ligne en trop, il y aura un espace (ce... |
| 12/03/2019 à 18:50 | ric | While Split sur 2007 > pas sur 2016 | Pas sûr que ça fonctionne sur XL2016(que je ne possède pas), une version différente: A+... |
| 12/03/2019 à 18:22 | BOYCASA | Recherche d'un code VBA | Pour une meilleurs compréhension (de notre part), il serait bon d'identer le code et le mettre entre balises "code" Sans support pour concrétiser la structure des feuilles, pas facile d'apporter une réponse précise. Pas sûr d'avoir tout saisi. Pour supprimer des lignes il faut toujours partir de la... |
| 12/03/2019 à 16:41 | Sebyg | VBA - Sélectionner Feuille et Masquer Ligne | C'est toujours délicat (pour ne pas dire pénible) d'avoir un code et le commentaire : ça ne fonctionne pas ! Ca ne fonctionne pas : parce que le résultat n'est pas celui attendu ? ( mais on ne le connait pas) parce qu'il y a une erreur ? quel N° , quel message, sur quelle ligne ... |
| 12/03/2019 à 16:20 | egman17 | Erreur 424 | Si le code n'a pas changé par rapport au classeur déposé, je ne vois pas... |
| 12/03/2019 à 15:21 | egman17 | Erreur 424 | Est ce la réponse à ma question " l'erreur est toujours sur la même ligne? " Si oui , il n'est pas évident que l'erreur survienne encore sur la même ligne , d'autant qu'après correction du nom de Textbox, il n'y a plus d'erreur chez moi! Le N° d'erreur est-il le même ... |
| 12/03/2019 à 14:32 | egman17 | Erreur 424 | L'erreur est toujours sur la même ligne? Je ne reproduit pas d'erreur après suppression du "s" ... |
| 12/03/2019 à 14:28 | Pepsi | Variable qui s'incrémente à chaques executions | L'instruction Range("A" & Rows.Count).End(xlUp).Row donne le N° de la dernière ligne non vide d'une colonne pour avoir la première ligne "libre" suivant la dernière ligne occupée: Range("A" & Rows.Count).End(xlUp).Row + 1 Il faut préciser sur quelle feuille on veut déterminer cette ligne: Sheets("Ta... |
| 12/03/2019 à 13:39 | egman17 | Erreur 424 | Dans : la TextBox txtArtistes n'existe pas dans l'USF! Mal orthographiée ne change pas le problème, pour le code elle n'existe pas. avec : je ne détecte plus d'erreur ! Qu'avez vous modifier ? le code ou le nom de la textbox ... |
| 12/03/2019 à 12:32 | egman17 | Erreur 424 | Dans Private Sub btnAjouter_Click( ), txtArtistes (a priori une TextBox) n'existe pas sur le UserForm A+... |
| 10/03/2019 à 15:27 | Pépèredébutant | Formatage via UserForm | Le problème c'est que le contenu de la textbox (4 à 6) est formaté "###0.00 $" dons contient du texte (" $") il faudrait donc tronquer ce texte avant conversion. par exemple A+... |
| 10/03/2019 à 11:38 | franckiss06 | Boucle Arrêté lorsque la valeur de 2 cellules est indentique | Peut-être quelque chose comme: ou A+... |
| 08/03/2019 à 17:08 | Mistinguette | Numéro suivant automatqiue (Incrémenter) dans une textbox | Il n'est plus question de modifier le code, mais l'affichage en colonne F ! si dans cette colonne vous avez 1, 2 ou 3 ou ...., mettez le format de ces cellules (ainsi que toute la colonne) au format personnalisé : 2019-000 , les données s'afficheront 2019-001, 2019-002, ou 2019-003 ou 2019-0xx ..... |
| 08/03/2019 à 16:53 | Mistinguette | Numéro suivant automatqiue (Incrémenter) dans une textbox | ... |
| 08/03/2019 à 16:45 | Mistinguette | Numéro suivant automatqiue (Incrémenter) dans une textbox | Pour l'affichage du style 2019-011, adapter le format des cellules de la colonne F comme préconisé dans mon Edit quelle ligne ... |
| 08/03/2019 à 16:10 | Mistinguette | Numéro suivant automatqiue (Incrémenter) dans une textbox | Voir la solution proposée dans l'Edit de mon message... |
| 08/03/2019 à 15:43 | Mistinguette | Numéro suivant automatqiue (Incrémenter) dans une textbox | Si, tel qu'il est présenté, le code ne propose pas le N° suivant, c'est que l'ancien n'est pas écrit ou est écrit dans la mauvaise feuille. Apparemment , tout se joue sur la feuille OS, or dans les écritures du contenu de l'userform , la feuille n'est pas précisée. essayer: A+ EDIT: Après la premièr... |
| 08/03/2019 à 14:19 | MASK | Colorer la ligne d'une Listview | Pas mieux que : avec cette sub dans la feuille du userform: A+... |
| 08/03/2019 à 13:00 | xxmedxx | Erreur d'exécution 13 | Préciser la ligne en erreur permettrait de gagner du temps. Dans une précédente discussion vous disiez avoir résolu votre problème de nombres décimaux par l'utilisation de la fonction de conversion CLng(). Or CLng convertit en entier, donc les décimaux seront tronqués. a priori toutes les données is... |
| 08/03/2019 à 12:51 | jonat28 | Copie des donner chrono | Voir le site J BOISGONTIER et notamment cet exemple de chrono A+... |
| 07/03/2019 à 11:30 | fdumont | VBA - Comparer deux tableaux de structure identique | Mea culpa : je n'avais pas fait attention au ReDim. 4 secondes , colorisation comprise ! je pensais que cette étape serait plus gourmande ! Bon courage et bonne suite... |
| 06/03/2019 à 18:36 | fdumont | VBA - Comparer deux tableaux de structure identique | Pour la gestion des colonnes à coloriser: puisque ces N° de colonnes sont stockés dans un tableau (ColModifs) pendant le traitement, autant utiliser ce tableau par balayage pour connaitre les colonnes à coloriser. ce qui oblige à modifier la déclaration de k (à déclarer comme ColModifs) et à déclare... |
| 06/03/2019 à 18:00 | fdumont | VBA - Comparer deux tableaux de structure identique | Si la macro n'est pas lancée depuis la feuille de résultats ( a priori ça n'arrivera pas , mais ...)la couleur risque de ne pas être mise sur la bonne feuille: Pour la coloration des lignes: Les dernières lignes de T3 sont les lignes nouvelles, donc les premières sont les lignes modifiées et les lig... |
| 06/03/2019 à 15:09 | LoloXBlade | Compter avec plusieurs conditions dont couleur de fond | Ca ne fonctionnait pas car la plage de recherche n'était pas bien définie le premier range est bien lié à une feuille mais pas le second. le second allait donc chercher une valeur sur la feuille courante (en l'occurrence Feuil1) une proposition de correction: A+... |
| 06/03/2019 à 11:40 | fdumont | VBA - Comparer deux tableaux de structure identique | Ben oui... je ne comprend pas comment ça ramenait les bonnes valeurs !! est absurde. évidemment il faut : pour mettre en évidence les valeurs modifiées deux solutions: 1) indiquer dans une colonne supplémentaire de T3 les N° de colonnes modifiées. "coller" le tableau dans la feuille résultat rajoute... |
| 06/03/2019 à 10:37 | xxmedxx | Saisie avec point ou virgule textbox | Pas sûr que l'utilisation de CLng permette l'affichage des nombres décimaux ! Mais si votre problème est réglé, c'est le principal ... |
| 06/03/2019 à 09:48 | fdumont | VBA - Comparer deux tableaux de structure identique | Je suis parti du principe que T1 et T2 avait le même nombre de colonnes (dans l'exemple du classeur 3) Dès que ces tableaux sont initialisés, je redimentionne T3 (qui contiendra les résultats) la deuxième dimension= 1 To UBound(T1, 2) + 1 soit dans l'exemple : 4 , donc une de plus pour mettre l'info... |