modif macro

[pouty]

<< 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

 

[skoobi]

Re : modif macro

Bonjour,

voici:

' 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

 

[pouty]

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

 

[Staple1600]

Re : modif macro

Bonsoir


Un début ( à tester sur un classeur vide)

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

 

[skoobi]

Re : modif macro

Re,
Salut Jean-Marie 🙂

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

<< Un petit remseignement

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

<< Merci

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.

 

[Staple1600]

Re : modif macro

Bonsoir Skoobi


Je reviens , la soupe déborde !!!

EDIT: Il ya QBcolor (10 couleurs je crois)

 

[pouty]

Re : modif macro

<< Merci a tous pour les réponses.

<< J'ai les réponses adéquate a mon probléme grace a vous .

<< Merci ce forum genial