Résultats de la recherche

Bonsoir tous, Perso j'ai des fichiers ou j'utilise ceci . . . voir fichier J'utilise seulement le plein écran sans toucher au ruban Voir Feuil3 pour retrouver les menus Bon j'ai pas bloqué le VBA C'est un exemple Bruno

Bonjour ou plutot bonsoir, En ayant fait qlq peu . . . Je n'ai pas testé mais voici ma solution à essayer Merci du retour Bruno function Efface() { var range = 'Sheet1!D2:E2'; var valueRangeBody = { values: [ ['', ''] ] };

Bonjour tous, Peut être en VBA fenêtre>Exécution coller code si dessous et faire Enter Application.EnableEvents=True Bruno

Bonjour tous, ou encore dès nouvel onglet Trés étonnant que Gérard n'y est pas pensé Bruno Private Sub Workbook_NewSheet(ByVal Sh As Object) Sh.Protect "CharBel", UserInterfaceOnly:=True End Sub

Bonjour tous, J'arrive tard, mais comme c'est fait je mets ce fichier Exécuter la macro Tableau >macro >exécuter Bruno

Bonjour, La macro fonctionne et est correct tu peux la remplacer par ceci Range("d6,e6,c6,h6,i6,j6,k6,m6").ClearContents A verifier car la macro efface sur la page active sinon faut spécifier quel onglet Bruno

Bonjour, Le plus simple Mettre Val( ......) cela donnera la valeur sinon c'est du texte ActiveCell.Offset(0, 0) = Val(Me.Label11) 'NUMERO DE LIGNE Bruno

Re, J'ai fait le fichier avec macro pour avoir les 2 noms Le code pour l'envoi n'est pas mis Bruno Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub ' si plusieurs selections If Target.Value = "" Then Exit Sub ' si on efface lig = Target.Row If...

Bonjour Chaton et Sylvanu, @sylvanu il faut trouver la ligne du changement et comme noms mettre destinataire1=range("D" & Target.row) destinataire2=range("E" & Target.row) Bruno

Bon, Va dans le module Croixformulaire Ajoute Exit sub ici en gras Sub OteCroix(UF As UserForm) Exit Sub Dim hwnd As Long Bruno

Bonjour tous, Pour le fun encore une autre version de calendrier qui s'adapte sur onglet ou userform. Possibilité de changer directement l'année on change dans l'année. Dispo aussi en telechargement du forum Bruno

Hello, Va voir la cellule [AQ689] il y a 1,55**17 c'est là le bug Pour trouver j'ai lancé la macro copié une partie de la ligne du bug (en jaune) dans la fenetre execution avec le ? en début ?Range("Tableau4Ch").ListObject.DataBodyRange(CLng(lig), col).value je fais Enter il m'a donné...

Bon je pense avoir trouvé la solution. Je suis obligé de supprimer les espaces en "ManteauPrimitif" ceci en debut de macro car c'est du n'importe quoi, Il y a des espaces sur Ba et les autres qui bloquaient la macro Je pense que tout fonctionne, je ne test pas le tableau4 et si une colonne n'est...

Bonjour, J'ai fait mais les entêtes ne doivent pas être mélangées par contre les Tableaux peuvent être déplacés. Donc à tester et plus de zéro . . . Je regarde encore si je trouve une solution pour tester ou est chaque enête Bruno

Bonjour clineM Je mets la macro qui fonctionne Si j'ai bien compris la demande Bruno Sub RemplirTableau3() For k = 2 To [C65000].End(3).Row lig = Application.Match(Cells(k, 7), [AP:Ap], 0) For col = 10 To 33 Cells(k, col) = Cells(lig, col + 35) / Cells(2, col + 63) Next Next End Sub

Bonjour, si cela peut aider le fichier à qlq années et les distances ne fonctionnent plus. Département ou région en couleur selon la demande Bruno

Bien que la variable soit Public GSelSubject As String celle_çi doit être perdu si on passe dans Outlook.. Les autres Public aussi d'ailleurs . . . . Je pense qu'il faut tout gérer depuis Excel mais sans fichier et le peu d'explication c'est jouer aux devinettes. Bruno

Une autre variante avec listbox et cases à cocher Bruno

Voici un fichier c'est plus parlant Bonne suite Bruno

Bonjour ced, If Target.Row > 3 and Target.row<501 then Cells(Target.Row, "N") = Now() C'est simple Bruno