Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion pouty
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

P

pouty

Guest
<< Bonjour,

<< J'ai un userform avec un bouton modifier jusque la impeccable mais je voudrais réaliser quand je modifie et que j'enregistre cela me mette en couleur marron la ligne modifier sur le fichier excel.

<< Je joins la macro du bouton modifier :

' Procedure : CommandButton7_Click
' 01/03/2007 20:05


' Utilisation :modifier

Private Sub CommandButton7_Click()
If ligne1 <> 0 Then
For i = 1 To Sheets(nomf1).Range("IV" & nulititre).End(xlToLeft).Column
Sheets(nomf1).Cells(ligne1, i) = Me.Controls("Textbox" & i).Value
Next i
End If
Unload UserForm2
End Sub


<< Je joins la macro du bouton enregistrer :
' Procedure : CommandButton1_Click
' 27/02/2007 16:19


' Utilisation :enregistrer

Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then
Call MsgBox("Vous devez indiquer un numéro de ligne", vbCritical, Application.Name)
TextBox1.SetFocus
Exit Sub
End If

ligne1 = Sheets(nomf1).Range("A65536").End(xlUp).Row + 1
For i = 1 To Sheets(nomf1).Range("IV" & nulititre).End(xlToLeft).Column
Sheets(nomf1).Cells(ligne1, i) = Me.Controls("Textbox" & i).Value
Next i
Unload UserForm2
End Sub

<< Merci pour votre aide apporter
 
Re : modif macro

Bonjour,

voici:
Code:
' Utilisation   :enregistrer

 Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then
    Call MsgBox("Vous devez indiquer un numéro de ligne", vbCritical, Application.Name)
    TextBox1.SetFocus
    Exit Sub
End If

ligne1 = Sheets(nomf1).Range("A65536").End(xlUp).Row + 1
For i = 1 To Sheets(nomf1).Range("IV" & nulititre).End(xlToLeft).Column
     Sheets(nomf1).Cells(ligne1, i) = Me.Controls("Textbox" & i).Value
[B]      Sheets(nomf1).Rows(ligne1).Interior.ColorIndex = 53 'marron[/B]
Next i
Unload UserForm2
 
Re : modif macro

<< Merci beaucoup pour le coup de main cela fonctionne nikel.

<< Un petit remseignement

<< Comment avoir les color index = 53 marron
= ? brun
= ? rouge
ect................

<< Merci
 
Re : modif macro

Bonsoir


Un début ( à tester sur un classeur vide)
Code:
Sub TheColorIndex()
'Auteur: _Thierry
Dim i As Byte

    For i = 1 To 56
        With Cells(i, 1)
            .Interior.ColorIndex = i
            .Value = i
        End With
    Next
End Sub
 
Re : modif macro

Re,
Salut Jean-Marie 🙂


Tu démarre l'enregistreur de macro, puis tu appliques les couleurs que tu veux dans les cellules, tu arrête l'enregistrement et tu récupères les codes couleur dans la macro créée.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
910
Réponses
10
Affichages
661
Réponses
9
Affichages
385
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
Réponses
4
Affichages
732
Réponses
3
Affichages
922
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…