| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 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... |