Contenu récent par jp14

Dans une cellule on a la possibilité de définir un "lien hypertexte" avec comme lien l' "Emplacement dans ce document". Quand on désire utiliser le lien on obtient ce message. Cette opération a été annulée à cause de restrictions en vigueur sur cet ordinateur. Contacter votre administrateur...

Bonjour "707000- Partie soumise a aucune taxe soit quand colonne HT > colonne P ou R ou U " Si j'ai bien compris : si P+Q+R = 0 alors on a le code 70700. JP14

Bonjour Caractères à supprimer : "" ").Select "" A tester JP14

Bonjour Ci joint le fichier avec deux solutions. A tester JP14

Bonjour Une autre formule Option Explicit Function Essai1(Valeur_d_arrive As Double, Valeur_de_depart As Double) As Double Application.Volatile Essai1 = (Valeur_d_arrive - Valeur_de_depart) / Valeur_de_depart End Function A tester JP14

Bonjour Ci joint le fichier avec la feuille "final" qui contient les données des fichiers Gescom, Gescom2, Gescom3. Bonnes fêtes JP14

Bonjour Ci joint le fichier avec quelque modifications Message lors de la fermeture de l'userform avec le bouton quitter. La colonne S contient la date du transfert. A tester JP

Bonsoir Il faut modifier le code : Pour la fin de la série (dernière ligne) If .Range("I" & Dl2) = "*" Then .Range("J" & Dl2) = Dl1 en remplaçant "J" par "K" If .Range("I" & Dl2) = "*" Then .Range("K" & Dl2) = Dl1 Pour choisir une autre colonne il faut modifier la valeur de l'offset Colonne...

Bnjour JBond13600, phlaurent55 En reprenant une réponse d'un post précédant, ci dessous la procédure modifiée. Option Explicit Dim Cellule1 As Range, Plg1 As String, Dl1 As Long, Dl2 As Long, Dl3 As Long, Plg3 As Range Dim Col1 As String Sub Demande() Dim Sh As Worksheet For Each Sh In...

Bonjour Fichier à tester JP14

Bonjour (Re) Ci dessous la macro avec sélection de la ligne de départ. Option Explicit Sub travdem() Dim Cellule1 As Range, Plg1 As String, Dl1 As Long, Dl2 As Long, Plg3 As Range Dim Nomfeuille1 As String, Col1 As String Dim MonTab As Variant, Compt1 As Long 'parametre Nomfeuille1 = "Base"...

Bonjour et bienvenue suur le Forum Ci dessous une macro pour le premier fichier Option Explicit Sub travdem() Dim Cellule1 As Range, Plg1 As String, Dl1 As Long Dim Nomfeuille1 As String, Col1 As String 'parametre Nomfeuille1 = "Base" Col1 = "A" 'code With Sheets(Nomfeuille1)...

Bonjour Ci joint un exemple de code Sub travdem() Dim Cellule1 As Range, Plg1 As Range Dim Nomfeuille1 As String, Col1 As String, data1 As String 'parametre Nomfeuille1 = "Feuil1" Col1 = "A" 'code With Sheets("Feuil1") For Each Cellule1 In .Range(Col1 & "2:" & Col1 & .Range(Col1 &...

Bonjour Le code Dl1 = .Range(Col1 & .Rows.Count).End(xlUp).Row indique la dernière ligne utilisée, quelque soit le nombre de lignes. JP14

Bonjour J'ai fait des test la procédure fonctionne. J'ai ajouté des textbox pour afficher les informations. Attention le code ci dessous sélectionne la feuille numéro 1 : Feuil1 dans l'éditeur VBA Set WsE = WbE.Worksheets(1) : A vérifier JP14