Autres (RESOLU) Renseigner une feuille avec doublon

chaelie2015 · 1 Janvier 2021

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

VB:

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 · 1 Janvier 2021

Bonjour,

Peut-être que ceci le ferait :

VB:

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 · 1 Janvier 2021

Roblochon à dit:
Bonjour,

Peut-être que ceci le ferait :

VB:

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 · 1 Janvier 2021

Bonsoir chaelie2015, Roblochon,

VB:

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 · 1 Janvier 2021

job75 à dit:

Bonsoir chaelie2015, Roblochon,

VB:

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 · 2 Janvier 2021

chaelie2015 à dit:
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 · 2 Janvier 2021

Bonjour chaelie2015, le forum,

VB:

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 · 2 Janvier 2021

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

Autres (RESOLU) Renseigner une feuille avec doublon

chaelie2015

XLDnaute Accro

Pièces jointes

Hasco

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Pièces jointes

job75

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Pièces jointes

Hasco

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Discussions similaires