Contenu récent par Francky79

Bonjour Sylvanu, Merci pour tes solutions.

Bonjour le forum, Je ne c'est pas comment faire pour que les deux parties de code fonctionnent dans un worksheet_change. Un part un cela marche mais les deux ? Private Sub worksheet_change(ByVal Target As Range) ' validation date de livraison Dim H, iSct As Range Set iSct =...

Merci Dudu2, Après plusieurs essais c'est bon pour moi.

Quand je lance la macro: Elle copie la cellule à droite de la cellule active / Sub lien_Plan_Image Ouverture d'une fenêtre windows pour sélectionner le fichier / Sub Chemin_plan_Acno C'est là que je voudrais copier le contenue de la cellule colonne C

Bonjour Dudu2 et merci pour ton aide, Mais je ne vois pas comment intégrer ça dans ma macro.

Bonjour le forum, Dans la colonne A la référence du plan, saisie manuellement. Dans la colonne B création d'un lien hypertexte par macro. Dans la colonne C formule pour ajouter l'extension .pdf. Je me place dans une cellule de la colonne B et je clic sur le rectangle pour lancer la macro. La...

Merci pour votre aide rapide. Bonne journée

Bonjour le forum, Comment remplacer dans la macro ci-dessous D101847-02 par la valeur de la cellule active ? Sub A() Dim Fichier As String Fichier = Dir("C:\Users\fd\Documents\Thierry\Ds\D101847-02.pdf") If Fichier <> "" Then MsgBox "Le fichier '" & Fichier & "' éxiste" Else MsgBox "Le...

Merci pour ton aide, je regarde ça ce soir.

Merci Sylvanu pour ton aide, mais si possible une solution sans formule dans les cellules.

Bonjour le forum, Dans un Worksheet_SelectionChange j'ai cette formule qui marche bien, If InStr(Feuil2.Cells(lig, 7).Value, "40") Then Cells(lig, 8) = "w" Cells(lig, 9) = "" End If mais si je veux remplacer la valeur "40" par comprise entre 1 et 52 là je...

Bonjour et merci pour votre aide

Bonjour, Je voudrais pouvoir afficher dans un Label du texte prédéfini suivant la couleur de fond d'une TextBox. La couleur de fond de la TextBox provient d'une MFC sur ma feuille. Avec le code de la TextBox3 change il se passe bien quelque chose mais, pas se que je voudrais. Voir fichier en...

Merci sylvanu impeccable. Bonne journée

Bonjour, Avec le code ci-dessous je remplie la TextBox57 avec le cellule W de la ligne active TextBox57 = ActiveSheet.Range("W" & Ligne) Est il possible de la remplir avec le cellule de la ligne active +1 ? Ligne 35 active remplir TextBox avec le cellule W de la ligne 36. Merci pour votre aide.