Résultats de la recherche

Re : Petite macro pour planning tiens replace ton code de click 1 par cela Private Sub CommandButton1_Click() Dim c As Object Dim ligne As Long Dim date1 As Date Dim jour As Integer If CheckBox1.Value = True Then Set c = Columns(1).Find(ComboBox1)...

Re : Fraction de périodes et compensation de jours j'ai pas tous compris les condition qui amène a ton résultat voulut je pense que c'est la que cela pèche Le B et Le L correspond à quoi ??? quel sont les conditions pour que tu sépares cette ligne et non une autre ???? car sur ta macro elles...

Re : Petite macro pour planning oui c'est possible mais explique clairement les choses . ta date US et MS sont identique au départ ??? tu veux que je récupère la date US et je lui retire 4 jour par coche et j'inscrive cette date dans la date MS ????

Re : Petite macro pour planning reteste la pour voir après tu met ce que tu veux dans les colonnes

Re : Pied de page personnalisé autrement voici le code Selection.Font.Bold = True Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter =...

Re : Pied de page personnalisé et tu es sur que tu veux un macro car moi en sélectionnant mon texte puis dans l'onglet tu peut changer ta forme police ... et cela même sur les entête et pied de page

Re : Pied de page personnalisé pardon j'avais pas compris je regarde cela

Re : Petite macro pour planning tien ton autre projet

Re : envoi de mail via vba oui en faite j'ai pas encore trouver comment faire pour faire varier le destinataire car le problème n'est pas de lui entrer une variable mais de trouver l'adresse de l'instance outlook Dim mNameSpace As Outlook.Namespace Set mNameSpace =...

Re : Pied de page personnalisé mettre en gras et la police est une méthode qui s'applique à une cellule donc dans ton code fait Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim hts Dim rbm hts = Range("O4").Text rbm = Range("R6").value ActiveSheet.PageSetup.RightFooter = hts...

Re : envoi de mail via vba salut tiens un petit truc qui envoie un mail en cas de modification d'une case Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C2")) Is Nothing Then 'en dessous cela permet d'envoyer le mail Dim OutApp As Object, OutMail As Object...

Re : A la fermeture du fichier message "The picture is too large and will be truncate ben prend tes images et supprimes les enregistres sur un autre fichier et regarde si le message disparaît si c'est trop long tester par feuille

Re : Pied de page personnalisé salut tiens cela met en gras avec une police de 16 With Selection.Font ' change selection par ta case range("case").Font .Name = "Calibri" .FontStyle = "Gras" .Size = 16 ' taille de la police .Strikethrough = False...

Re : Petite macro pour planning je l'ai dit cela est difficilement gérable sauf si ton . bat est sur un serveur de ton entreprise la c'est possible et plus facile car la si tu bouge ton fichier . bat cela fait planté ta macro. autrement ton .bat c'est un exécution que tu veux faire ?? car...

Re : Petite macro pour planning le formulaire ne fonctionne pas en quoi il entre les valeur dans les bonnes cases non ??? faut que je regarde mais il me faudra l'adresse de ton fichier et en cas de modification de leur emplacement la macro ne fonctionnera plus donc c'est risquer

Re : Créer un Bouton? salut tien remplace la code de bouton ci dessus par Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("D7:H13")) Is Nothing Then If Target.Count = 1 Then Target = IIf(Target = "1", "0", "1")...

Re : Petite macro pour planning oui je sait j'ai vu sur ton document que la colonne C n'était pas remplie donc je me suit dit qu'il ne fallait pas qu'il la remplissent il faut juste supprimer cette ligne le raz supprime toute les lignes. mise à jour supprime aussi les ligne qui ne sont...

Re : Petite macro pour planning tien voici tes macros modifier mais je comprend pas à quoi sert ton RAZ

Re : copie d'une feuille à une autre tiens sur mon pc cela fonctionne si tu veux pour 30 linge il faut bien que tes change le 3 par 30

Re : copie d'une feuille à une autre pardon met Sheets(1).Select juste sous le for i ...