XL 2010 Bouton modifier

[Mimi]

Bonjour à tous,
J'ai créé avec l'aide de ce super forum un petit carnet d'adresse qui jusque là marche bien.
Je voudrais "simplement" ajouter un bouton modifié et là je sèche.
Pouvez-vous me donner un petit coup de main
D'avance merci
Mimi

 

[Mimi]

Bonsoir lone-wolf,
Merci beaucoup d'avoir pris de ton temps pour me permettre de régler le problème, sa marche correctement
Merci beaucoup
Mimi

 

[Lone-wolf]

Tu peux utiliser la macro pour la recherche aussi mais en faisant le contaire.

Textbox1 = .Cells(i, 1)
Textbox2 = .Cells(i, 2)
Textbox3 = .Cells(i, 3)

Etc.

 

[Mimi]

Bonjour à tous,
Lone-wolf : je me suis servi des code de la discussion #8 qui simplifie beaucoup de choses et je te remercie.
Tout en se servant du combobox1 est-il possible de faire un code pour le bouton supprimer.
Mimi

 

[Lone-wolf]

Bonjour Mimi

With Sheets("Recap")
lig = Application.Match(ComboBox1, Columns(1), 0)
.Cells(lig, 1).EntireRow.Delete
End With

Encore une chose, je ne comprends pas pourquoi tu utilise une combo pour les villes. Et si tu aurais suivi mes conseils, par rapport à la composition des colonnes, ta macro serait réduite à ceci en exemple

With Sheets("Recap")
lig = Application.Match(ComboBox1, Columns(1), 0)
.Cells(lig, 1) = Combobox1   Titre (M. Mme Mlle)
.Cells(lig, 2) = Combobox2 Nom & Prénom
For i = 3 to 13
.Cells(lig, i) = Controls("TextBox" & i - 2)
next i
End with

Par rapport à ceci

With Sheets("Recap")
lig = Application.Match(ComboBox1, Columns(1), 0)
.Range("A" & lig).Value = TextBox12.Value
.Range("B" & lig).Value = ComboBox3.Value
.Range("C" & lig).Value = TextBox1.Value
.Range("D" & lig).Value = TextBox2.Value
.Range("E" & lig).Value = TextBox3.Value
.Range("F" & lig).Value = TextBox4.Value
.Range("G" & lig).Value = CVille.Value
.Range("H" & lig).Value = TextBox6.Value
.Range("I" & lig).Value = TextBox7.Value
.Range("J" & lig).Value = TextBox8.Value
.Range("K" & lig).Value = TextBox9.Value
.Range("L" & lig).Value = TextBox10.Value
.Range("M" & lig).Value = TextBox11.Value
End With

 

[Mimi]

Bonjour,
Je tiens à remercier toutes les personnes qui mon aidé à fabriquer mon projet, en particulier lone-wolf, je joints le fichier pour ceux qui serait intéressé.
Encore merci
Mimi

 

[Lone-wolf]

Re Mimi

Tu as lu mon dernier post?

 

[Mimi]

ok je regarde

 

[Mimi]

Re
Regarde le dernier fichier que j'ai posté j'ai bien suivi tes instructions et je te remercie
Mimi

 

[grisan29]

bonjour Mimi, lone-wolf, max-lander et le forum

mimi, j'ai regarder le dernier fichier que tu mis sur l'autre page et je vois que l'on peux mettre toujours autant de chiffre dans les textbox dédié au téléphone, fax etc amors que je t'ai un code en post 2
de plus je t'avais dits qu'un code indenter se lit plus facilement voila ce qu'est un code non-indenté dans ton userform

Private Sub CmdAnnuler_Click()
    With Sheets("Feuil1")
        lig = Application.Match(ComboBox1, Columns(1), 0)
        Msg = "Voulez vous effacer le Client?"
        Style = vbYesNo + vbCritical + vbDefaultButton2
        Title = "Confirmation Effacement "
        Réponse = MsgBox(Msg, Style, Title)
        If Réponse = 7 Then Exit Sub
        .Cells(lig, 1).EntireRow.Delete
    End With
End Sub

Private Sub CmdNouveau_Click()
    ComboBox1 = ""
    For i = 1 To 12
        Me.Controls("TextBox" & i) = ""
        Next i
        Exit Sub
        TextBox3.SetFocus
    End Sub
  
    Private Sub TextBox1_Change()
        TextBox1.Value = UCase(TextBox1)
    End Sub
  
    Private Sub TextBox10_Change()
        KeyAscii = Asc(LCase(Chr(KeyAscii)))
    End Sub
  
    Private Sub TextBox11_Change()
        KeyAscii = Asc(LCase(Chr(KeyAscii)))
    End Sub
  
    Private Sub TextBox3_Change()
        TextBox3.Value = WorksheetFunction.Proper(TextBox3.Value)
    End Sub
  
    Private Sub TextBox5_Change()
        KeyAscii = Asc(LCase(Chr(KeyAscii)))
    End Sub
  
    Private Sub TextBox7_Change()
        TextBox7.Value = UCase(TextBox7)
    End Sub
  
    Private Sub UserForm_Initialize()
        Dim derlig As Integer, x As Integer, ws As Worksheet
      
        Set ws = Sheets("Feuil1")
      
        With ws
            For x = 3 To .Range("a65536").End(xlUp).Row
                ComboBox1 = .Range("a" & x)
                If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem .Range("a" & x)
                Next x
                ComboBox1 = ""
            End With
            TextBox3.SetFocus
        End Sub
      
        Private Sub UserForm_Activate()
            ComboBox1.Text = ""
            TextBox3.SetFocus
        End Sub
      
        Private Sub TextBox4_Change() ' Affiche Nom et Prénom
            If TextBox4 <> "" Then _
            TextBox1 = TextBox3 & " " & TextBox4
            TextBox4.Value = UCase(TextBox4)
        End Sub
      
        Private Sub TextBox4_AfterUpdate()
            Dim ctrl As Control, i%, j%, col As Range, ws As Worksheet
          
            On Error GoTo fin
            Set ws = Sheets("Feuil1")
            Set col = ws.Range("A:A")
          
            If TextBox1 <> "" Then
                With ws
                    i = Application.Match(TextBox1.Text, col, 0)
                    If .Cells(i, 1).Value = TextBox1.Value Then
                        MsgBox "Le contact est déjà dans la liste.", , "Contact"
                        ComboBox1 = ""
                        For i = 1 To 12
                            Me.Controls("TextBox" & i) = ""
                            Next i
                        Else
                            Exit Sub
                            TextBox4.SetFocus
                        End If
                    End With
                End If
                fin:
                Exit Sub
            End Sub
          
            Private Sub CmdValider_Click()
                Dim ctrl As Control, ws As Worksheet, cel As Range
                Dim derlig As Integer, col As Integer, i As Long
              
                Set ws = Sheets("Feuil1")
              
                With ws
                    derlig = .Range("a65536").End(xlUp).Row + 1
                  
                    For Each ctrl In Me.Controls
                        col = Val(ctrl.Tag)
                        If col > 0 Then
                            If Not IsNumeric(ctrl) Then
                                .Cells(derlig, col) = ctrl
                            Else
                                .Cells(derlig, col) = CDbl(ctrl)   'format numérique simple ex: 3124
                            End If
                        End If
                        Next ctrl
                        .Range("H3:I65000").NumberFormat = "00 00 00 00 00"   'Numéro téléphone et fax
'.Range("A:L").Columns.AutoFit
'.Range("A3:L65000").Sort [A3], xlAscending
                    End With
                  
                    For i = 1 To 12
                        Me.Controls("TextBox" & i) = ""
                    Next
                    TextBox3.SetFocus
                End Sub
              
                Private Sub CmdRechercher_Click()
                    Dim ctrl As Control, i%, j%, col As Range, ws As Worksheet
                  
                    Set ws = Sheets("Feuil1")
                    Set col = ws.Range("A:A")
                  
                    With ws
                        i = Application.Match(Me.ComboBox1.Text, col, 0)
                      
                        For Each ctrl In Controls
                            If ctrl.Tag <> "" Then
                                j = Val(ctrl.Tag)
                                ctrl.Value = .Cells(i, j).Value
                            End If
                            Next ctrl
                        End With
                        TextBox8 = Format(TextBox8, "00 00 00 00 00")
                        TextBox9 = Format(TextBox9, "00 00 00 00 00")
                    End Sub
                  
                    Private Sub CmdModifier_Click()
                        Dim ctrl As Control, i%, j%, reponse, col As Range, ws As Worksheet
                      
                        reponse = MsgBox("Voulez-vous vraiment procéder aux modifications ?", vbYesNo, "CONTACTS")
                      
                        Set ws = Sheets("Feuil1")
                        Set col = ws.Range("A:A")
                      
                      
                        If reponse = vbYes Then
                            With ws
                                i = Application.Match(Me.ComboBox1.Text, col, 0)
                              
                                For Each ctrl In Controls
                                    If ctrl.Tag <> "" Then
                                        j = Val(ctrl.Tag)
                                        .Cells(i, j).Value = ctrl.Value
                                    End If
                                    Next ctrl
                                End With
                            Else
                                ComboBox1 = ""
                                For i = 1 To 12
                                    Me.Controls("TextBox" & i) = ""
                                    Next i
                                End If
                                TextBox3.SetFocus
                            End Sub
                          
                            Private Sub CmdQuitter_Click()
                                ComboBox1 = ""
                                For i = 1 To 12
                                    Me.Controls("TextBox" & i) = ""
                                    Next i
                                    Unload Me
                                End Sub

tout le code y est