Résultats de la recherche

  1. F

    Microsoft 365 Valeur Label suivant couleur TextBox

    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...
  2. F

    Microsoft 365 Remplir TextBox

    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.
  3. F

    Microsoft 365 Poursuivre ou pas la macro

    Bonjour, Dans le code de mon ScrollBar1_Change j'aimerais pouvoir arrêter la procédure du code si bouton sur OF et continuer la procédure si bouton sur ON. Mais je ne sais pas comment finaliser le code Code du bouton Private Sub CommandButton6_Click() With CommandButton6 If .Caption Like...
  4. F

    Microsoft 365 Recherche à partir d'une TextBox

    Bonjour, Avec le code ci-dessous je recherche la valeur de la TextBox dans une feuille, si le nombre comprend 5 chiffres le code marche si le nombre comprend 6 chiffres il ne marche plus. Pouvez-vous me dire la raison ? Private Sub CommandButton1_Click() Dim N As Integer Dim L As Integer Dim i...
  5. F

    Microsoft 365 Image dans Webbrowser

    Bonjour, Pouvez-vous m'aider pour redimensionner des images dans un Webbrowser dans un UserForm ? Et comment se positionner sur la bonne ligne de la feuille en partant de la valeur de la TextBox 1 de l'UserForm ? Voir le fichier joint pour plus de clarté j'espère. Merci pour votre aide.
  6. F

    Microsoft 365 Recherche sur feuille

    Bonjour, Sur le code en pièce jointe je n'arrive pas à le modifier pour faire la recherche que sur la feuille active, le code recherche sur tout le classeur, pouvez-vous m'aider pour faire cette modification ? Merci
  7. F

    Microsoft 365 Stopper macro si

    Bonjour le forum, Comment stopper une macro suivant condition. Je copie une couleur de cellule d'une feuille vers une autre, mais si la colonne de réception comporte Val AR dans la cellule stopper la macro. Voir fichier en pièce ce sera plus clair. Merci pour votre aide.
  8. F

    Microsoft 365 Message Box oui/non

    Bonjour le forum, Dans une macro je voudrais une message box pour pouvoir sauter une étape si réponse non. Sub Validation_AR() With CommandButton5 arret = True End With ActiveCell.Offset(0, -3).Activate Selection.ClearContents ActiveCell.Offset(0, -5).Activate 'Si réponse oui dans...
  9. F

    Microsoft 365 Simplification code

    Bonjour, Il y a un moyen de rendre ce code plus simple et plus rapide ? Remplir les cellules J et jusqu'à AB avec n de la ligne active par double clic. If Not Intersect([J6:J600], Target) Is Nothing Then a = Array("n") p = Application.Match(Target, a, 0) If IsError(p) Then...
  10. F

    Microsoft 365 Copier juste couleur cellule.

    Bonjour, je recherche le moyen de copier juste la couleur de fond (la couleur résulte d'une MFC) d'une cellule sur une autre feuille en VBA mais sans la MFC. Double clic dans une cellule, insertion de la date, copier couleur cellule, recherche de la ligne correspondante sur feuille base et...
  11. F

    Microsoft 365 Copie doublons

    Bonjour, Je ne trouve pas de formule pouvant copier les doublons de la colonne A les coller dans la colonne C et en face de chaque doublons trouvés mettre le nombre de doublons. Voir en ci-dessous. Merci pour votre aide
  12. F

    Microsoft 365 Valeur dans TextBox compris entre

    Bonjour, Quelle syntaxe pour le code ci-dessous ? Si la valeur est comprise en 5 et 10 la longueur de la TextBox sera de 120 Private Sub TextBox9_Change() Select Case Me.TextBox9.Value Case Is <= 5 Me.TextBox9.Width = 60 Case Is > 5 <= 10 Me.TextBox9.Width = 120...
  13. F

    Microsoft 365 Quel code pour un ScrollBar ?

    Bonjour le forum, Avec l'aide de PatrickToulon mon Userform me convient parfaitement mais : J'aimerais ajouter un ScrollBar, et là aucune idée de comment faire. Pouvez-vous m'aider ? Voir fichier en pièce jointe.
  14. F

    Microsoft 365 Comment mettre image d'une note dans Userform ?

    Bonjour, Est-il possible de mettre une image d'une note dans un userform ? Voir fichier en pièce jointe Merci pour votre aide.
  15. F

    Microsoft 365 Couleur TextBox suivant date

    Bonjour, Comment faire une MFC dans une Textbox suivant une Date ? Dans Textbox2 mettre en rouge si date inférieure à la date du jour. Voir fichier joint. Et encore merci pour votre aide.
  16. F

    Microsoft 365 Couleurs dans Textbox

    Bonjour, Comment récupérer les couleurs de cellules venant de mise en forme conditionnelle dans des Textboxs ? Voir fichier joint. Merci pour votre aide.
  17. F

    Microsoft 365 Récupération de l'image de la note dans UserForm

    Bonjour le forum, Est-il possible de récupérer l'image dans une note et de l'insérer dans un UserForm ? Aucune idée sur le moyen de la faire. Voir fichier en pièce jointe. Merci pour votre aide,
  18. F

    Microsoft 365 Commentaire cellule dans TextBox dans UserForm

    Bonjour le forum, Je sollicite votre aide pour la récupération d'un commentaire d'une cellule pour le mettre dans une TextBox qui se trouve dans un userForm. Dans le code ci-dessous le code récupère le commentaire, si il y a un commentaire c'est ok, par contre si pas de commentaire plantage...
  19. F

    Microsoft 365 Ecrire dans une cellule suivant une autre en VBA

    Bonjour le forum, Je sollicite votre aide pour la modification d’un code VBA Private Sub Worksheet_Change(ByVal Target As Range) 'si la colonne de la cellule modifiée est différente de 11 (=> colonne K), sort de la procédure If Target.Column <> 38 Then Exit Sub 'si la cellule en colonne K est...
  20. F

    Microsoft 365 Double clic dans une même feuille

    Bonjour le forum, Comment mettre deux double clic dans une même feuille ? Voir le fichier joint pour mon problème. Et comment modifier le macro AjouteCommentaire pour qu'elle marche avec des dates ? Merci pour votre aide.