Enregistrement formulaire sur plusieurs feuilles identiques

Bonjour, je souhaiterai que quand je valide mon formulaire, celui ci se rentre dans 2 tableaux identiques sur 2 feuilles différentes, de même que lorsque je fais un retour j'ai bien essayé avec "with" et "end with", mais je sèche!

merci de votre aide

Bonsoir

Ah bien bravo

A+

désolé je pensais l avoir enlevé

Bonjour,
Quel formulaire et quels tableaux ?
Cdlt.

Bonjour pour la prise de clefs par exemple et le retour de clefs, j aimerais que ça s inscrivent dans les 2 feuilles de gestions des clefs. Lors de la prise et lors du retour. Que ça se remplissent automatiquement dans les 2 feuilles.

Bonjour Maxxx62

Petite question matinale,
pourquoi ces 2 feuilles qui sont totalement identiques aux 2 premières, à part les bouton

A+

Bonjour, dans l idéal il en faudrait 3 c'est pour donner un visu a certaines personnes spécifiques, mais ça je sais faire, mon seul soucis c est l insertion multiples.

Rebonjour, mon problème pose une colle?

Bonjour

Le code de la macro "Private Sub CommandButton1_Click()" du module "UserForm2"

Private Sub CommandButton1_Click()
    Dim c As Range
    Dim firstaddress As String
    Dim f1 As Worksheet, f2 As Worksheet

    Application.ScreenUpdating = False
    Set f1 = Sheets("Gestion des clefs")
    Set f2 = Sheets("Gestion des clefs 2")
    If Len(TextBox2) = 0 Then
        MsgBox "saisie incomplète"
        TextBox2.SetFocus: Exit Sub
    End If
    With f1.ListObjects("Tab_GestClefs").ListColumns(2)
         Set c = .DataBodyRange.Find(Format(TextBox2.Value, "000"), LookIn:=xlValues, lookat:=xlWhole)
            If Not c Is Nothing Then
                firstaddress = c.Address
                Do
                    If f1.Range("B" & c.Row) = c.Value And f1.Range("E" & c.Row).Value = "" Then
                        f1.Unprotect PSW
                        f1.Range("E" & c.Row).Value = TextBox1.Value
                        f1.Protect PSW
                        Exit Do
                    End If
                    Set c = .DataBodyRange.FindNext(c)
                Loop While Not c Is Nothing And c.Address <> firstaddress
            End If
    End With

    With f2.ListObjects("Tab_GestClefs4").ListColumns(2)
         Set c = .DataBodyRange.Find(Format(TextBox2.Value, "000"), LookIn:=xlValues, lookat:=xlWhole)
            If Not c Is Nothing Then
                firstaddress = c.Address
                Do
                    If f2.Range("B" & c.Row) = c.Value And f2.Range("E" & c.Row).Value = "" Then
                        f2.Unprotect PSW
                        f2.Range("E" & c.Row).Value = TextBox1.Value
                        f2.Protect PSW
                        Exit Do
                    End If
                    Set c = .DataBodyRange.FindNext(c)
                Loop While Not c Is Nothing And c.Address <> firstaddress
            End If
    End With

    Unload UserForm2
    Set f1 = Nothing
    Set f2 = Nothing
End Sub

Cdlt

erreur 91. variable de bloc with non défini

BONJOUR !

Merci de lire la charte du forum [A LIRE AVANT DE POSTER] et notamment

• Un minimum de politesse est de rigueur (bonjour, SVP, merci, ...), sans cela vous aurez peu de chance d'obtenir une réponse et vous risquez de voir votre message supprimé par un modérateur.

De plus nous donner le numéro d'erreur comme ça, sans nous dire sur quelle ligne.... heuuu

Merci d'éditer votre précédent post et mettre ce qu'il faut SVP

A+