Résultats de la recherche

Bonjour à tous, L'exemple en PJ nécessite un peu de vba -Création des feuilles selon le nombre de ville (individuelle) présentes en colonne E -Copie les lignes correspondantes pour chaque ville -La mise à jour se fait par le bouton "Création d'onglets"

Erreur de ma part pas les parenthèses ...les guillemets comme dans l'exemple donné Me.Image1.Picture = LoadPicture(Chemin)

Evidemment, bien sur, merci d'avoir remarqué. Au moins un qui suit ;) Correction en cours....:rolleyes:

Dans mes essais avec des guillemets autour de Chemin , aucune chance (pour ne pas dire impossible) de trouver le fichier demandé.(Blason.jpg)

Et..... Et quel est le code utilisé sur le pc maison....

Bonjour à tous:);) Perso, je n'éprouve aucune difficulté quand les guillemets de Chemin sont enlevées... :cool: Me.Image1.Picture = LoadPicture(Chemin)

Bonjour, Essaye en enlevant les guillemets à Chemin

Bonjour, Pourquoi pas... =36*5/100 ou =36*0.05 ou =36*5%

Bonjour à tous A placer dans le module de la feuille en question. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub Application.EnableEvents = False Target(, 2).Value = IIf(Target = "", "", Date) Application.EnableEvents = True End Sub Sinon...

Bonjour, Quelque chose comme ceci peut-être

Bonjour, Le menu données/validation peut faire cela

Bonjour à tous, Quelque chose comme ceci peut-être....:)

Bonjour à tous, En Complément, Il ne sert à rien de spécifier la feuille, ainsi écrit, le code sera pour tout le classeur(toutes feuilles) Si il faut absolument enlever ces barres sur une feuille spécifique Dans le module de la feuille en question. Private Sub Worksheet_Activate()...

Bonjour à tous Une autre...;);) Private Sub CheckBox1_Click() [C13:G18].NumberFormat = IIf(CheckBox1, "# ##0.00", ";;;") End Sub Private Sub CheckBox2_Click() [c21:g21].NumberFormat = IIf(CheckBox2, "# ##0.00", ";;;") End Sub Private Sub CheckBox3_Click() [c23:g23].NumberFormat = IIf(CheckBox3...

Bonjour à tous Le nombre de OK doit correspondre au nombre de saisie en colonne b avec cette ligne de code Sub PassationPDF() Dim Chemin As String, NomFichier As String If Application.CountA([b9:b47]) > Application.CountA([e9:e47]) Then MsgBox "TOUTES LES CASES NE SONT PAS COCHEES", , "Saisie...

Bonjour Salut TooFatBoy Une autre proposition sur le même principe

Bonsoir, A condition que la composition de la cellule est toujours la même Pour la date 1 pour la date 2 =STXT(G2;TROUVE("£";SUBSTITUE(G2;":";"£";6))+3;10)

Bonjour, Pour un commencement en A1 en B1 =SUBSTITUE(A1;"/";"/th/";9) Ou alors avec un classeur.....

Bonjour à tous Une proposition par vba La mise à jour se fait à la sélection de la feuille2 Les doublons sont supprimés. Le code est à placer dans le module de la feuille2 Private Sub Worksheet_Activate() Application.ScreenUpdating = False With Feuil1 Dim Plage, Lig& Lig =...

Bonjour, Une piste avec un calendrier annuel. Le changement de mois mettra en première colonne le mois en question. Un classeur par an ...... Nécessite de figer les volets, un peu de vba et quelques plages nommées En bleu les jours fériés Bon courage ;)