Autres (RESOLU) Renseigner une feuille avec doublon

[chaelie2015]

Bonjour FORUM
j'ai dans USF 11 textbox (une pour le N° du contrat et 10 autre pour les noms des sites) et une feuille nommée "Site"
je souhaite transférer les données vers la feuille de cette façon :
recopier le nom du contrat selon le nombre de site
si j'ai 05 sites alors je dois renseigner 05 fois le mémé numéro du contrat dans la colonne A etc....

Private Sub btn_ValiderSite_Click()
Dim L As Integer

        L = Sheets("site").Range("A65536").End(xlUp).Row + 1
        With Sheets("site")
        Range("A" & L) = TextBox1.Value
        'Range("B" & L) = TextBox2.Value ?????
        'Range("B" & L) = TextBox3.Value ?????
        End With

End Sub

Merci par avance

 

[Hasco]

Bonjour,

Peut-être que ceci le ferait :

Private Sub btn_ValiderSite_Click()
    Dim L As Integer

    L = Sheets("site").Range("A65536").End(xlUp).Row + 1
    Sheets("site").Range("A" & L).Resize(, 5) = TextBox1.Value

End Sub

cordialement

 

[chaelie2015]

Bonjour,

Peut-être que ceci le ferait :

Private Sub btn_ValiderSite_Click()
    Dim L As Integer

    L = Sheets("site").Range("A65536").End(xlUp).Row + 1
    Sheets("site").Range("A" & L).Resize(, 5) = TextBox1.Value

End Sub

cordialement

Bonjour ROBLOCHON
Merci pour la réponse rapide , mais ça n'a pas fonctionné comme j'ai souhaité.
je souhaite renseigner le tableau de la feuille "Site" par USF.
si j'ai 06 textbox qui sont renseigné et elles ont le mémé numéro du contrat, je dois renseigner le tableau de la feuille "site" : colonne A: de A2 au A7 le mème N° Contrat
Et de B2 au B7 les nom des sites
a+

 

[job75]

Bonsoir chaelie2015, Roblochon,

Private Sub btn_ValiderSite_Click()
Dim c As Range, i As Byte, n As Byte
Set c = Sheets("site").Range("A" & Rows.Count).End(xlUp)(2)
For i = 2 To 11
    If Me("TextBox" & i) <> "" Then
        n = n + 1
        c(n) = TextBox1
        c(n, 2) = Me("TextBox" & i)
    End If
Next
End Sub

En l'état la ComboBox ne sert à rien.

A+

 

[chaelie2015]

Bonsoir chaelie2015, Roblochon,

Private Sub btn_ValiderSite_Click()
Dim c As Range, i As Byte, n As Byte
Set c = Sheets("site").Range("A" & Rows.Count).End(xlUp)(2)
For i = 2 To 11
    If Me("TextBox" & i) <> "" Then
        n = n + 1
        c(n) = TextBox1
        c(n, 2) = Me("TextBox" & i)
    End If
Next
End Sub

En l'état la ComboBox ne sert à rien.

A+

Bonsoir JOB
Merci job, c'est parfait
si je veux généraliser comme suite ( j'ai ajouter un autre TextBox) que dois je modifier?

 

[Hasco]

je souhaite transférer les données vers la feuille de cette façon :
recopier le nom du contrat selon le nombre de site
si j'ai 05 sites alors je dois renseigner 05 fois le mémé numéro du contrat dans la colonne A etc....

Bonjour,

J'ai répondu à la question telle quelle a été posée.

Cordialement

 

[job75]

Bonjour chaelie2015, le forum,

Private Sub btn_ValiderSite_Click()
Dim c As Range, c1 As Range, i As Byte, n As Byte
Set c = Sheets("site").Range("A" & Rows.Count).End(xlUp)(2)
Set c1 = Sheets("site").Range("C" & Rows.Count).End(xlUp)(2)
For i = 2 To 11
    If Me("TextBox" & i) <> "" Then
        n = n + 1
        c(n) = TextBox1
        c(n, 2) = Me("TextBox" & i)
        c(n, 3) = TextBox12
    End If
Next
End Sub

A+

 

[chaelie2015]

Bonjour JOB, Roblochon
Merci JOB ,souci résolu.
Bon week-end