| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 13/04/2013 à 09:27 | Anibalion | Feuille Historique de prix (sélection + copie de données) | Si j'ai bien compris, tu ne veux pas conserver les lignes vides ou qui ne contiennent pas des données importantes ? Si c'est ça, j'ai bricolé ta macro pour y parvenir Bye... |
| 13/04/2013 à 02:34 | siva974 | Possibilité de pair wise sur Excel? | En effet, s'il fait 3000 lignes et 31 colonnes, c'est un gros tableau. Voilà la nouvelle version. Mais je ne comprends pas ta question au sujet de la dernière ligne à indiquer dans la macro... Si tu as encore besoin de moi, n'hésite pas... |
| 12/04/2013 à 23:47 | siva974 | Possibilité de pair wise sur Excel? | Très heureux que tu sois satisfaite. Cells(3,3) veut dire cellule C3 : intersection de la 3° ligne et de la 3° colonne. En fait, je te déconseille de modifier la macro si tu n'as pas quelques bonne notions. Pour traiter ton jeu de données complet, tu devrais les coller sur le document que je t'ai en... |
| 12/04/2013 à 22:07 | thimote | Selectionner un repertoire dans UserForm | Et merci Bernead, la prochaine fois, je penserai à oublier (!) les accents ...... |
| 12/04/2013 à 21:51 | siva974 | Possibilité de pair wise sur Excel? | Je te propose encore le doc ci-joint. La macro liste sur une feuille les distances inférieures à une variable pour des mêmes dates. Pour s'y retrouver, j'ai numéroté chaque ligne de ton tableau que l'on retrouve dans ma liste. En espérant que cela puisse t'aider ..... |
| 12/04/2013 à 18:03 | thimote | Selectionner un repertoire dans UserForm | En bricolant la macro précédente, j'ai fait mieux puisque j'obtiens le chemin d'un dossier. Mais il faut toujours sélectionner un fichier de ce dossier, n'importe lequel. Cela ne marche donc pas pour un dossier vide... |
| 12/04/2013 à 16:33 | thimote | Selectionner un repertoire dans UserForm | Sélectionner le chemin d'accès d'un dossier, je ne sais pas faire. En revanche, je sais répondre à ta demande pour un fichier : voir ci-joint. Tu peux même écrire d'un coup les chemins de plusieurs dossiers contenus dans un même dossier. Pour écrire en K3, sélectionne cette cellule avant de lancer l... |
| 12/04/2013 à 13:07 | Max18 | Formater une date | Boujour voilà la version sans bouton... |
| 12/04/2013 à 11:31 | siva974 | Possibilité de pair wise sur Excel? | Je te propose de reporter sur le tableau d'une une deuxième feuille les données d'une même date. Voir PJ Tu pourras alors faire les regroupements que tu souhaites. Désolé mais je n'ai pas su faire mieux... |
| 11/04/2013 à 22:31 | françois09 | Calcul de points pour regime | Nouvelle version, moins élégante que celles de Amadéus ou Game Over mais maintenant qu'elle est faite...... |
| 11/04/2013 à 19:30 | Max18 | Formater une date | Si cela te va...... |
| 06/04/2013 à 22:37 | lilou4462 | Idée "aide en ligne" | Oh ! ! ! Mille excuses, j'ai mal enregistrer mon fichier. Le revoilà. bye... |
| 06/04/2013 à 20:27 | lilou4462 | Idée "aide en ligne" | Excuse moi mais je ne comprends pas ta question ... gmb... |
| 06/04/2013 à 19:56 | lilou4462 | Idée "aide en ligne" | Mieux que de longues explications, le fichier ci-joint et ses macros associées, te propose une réponse à tes souhaits. Dans l'exemple, la condition (modifiable dans la macro, est de choisir A5 dans le combobox .Bye... |
| 04/04/2013 à 23:34 | monnom2 | Déterminer le nombre de projets | Essaie ce code : Dim NbrPrj As Single Dim N As Single N = 0 NbrPrj = 0 Do While Cells(5 + N, 1).Value <> "Total général" If IsDate(Cells(5 + N, 1).Value) = False Then NbrPrj = NbrPrj + 1 End If N = N + 1 Loop MsgBox "Vous avez " & NbrPrj & " projets !"... |
| 04/04/2013 à 23:12 | nernono | 1 cellule donne 2 resultats | Tu dois avoir une macro à l'arrêt mais en cours d'exécution. Retourne sur la feuille VBA, et clique sur le bouton carré du bandeau "Réinitialiser" Bonne chance ... |
| 04/04/2013 à 19:15 | nernono | 1 cellule donne 2 resultats | Essai cette modification de ton code : If Range("B7") = "urgences" Then Range("H8") = "chigot" Range("H9") = "1er" End If... |
| 04/04/2013 à 18:53 | Invité | Apparition du message quelques jours avant | Essai cette modification de ton code : If Date > CDate("17/09/13") Then ActiveWorkbook.Close ElseIf Date > CDate("17/09/13") - 30 Then MsgBox ("autorisé jusqu'au 17/09/13") End If... |