Enregistrement

[apdf1]

Bonjour,

Voila j'ai un petit souci. J'ai un USF qui enregistre sur deux feuilles du même classeur, jusqu'ici pas de problème! Quand j'enregistre, sur la première feuille il n'y a toujours pas de problème, mais sur la deuxième feuille il m'efface la ligne "3" pour mettre les nouvelles valeurs alors qu'il faudrait qui les mettent dessous.
Si quelqu'un peu m'aider je le remercie d'avance

Cordialement

Max

 

[Fred0o]

Re : Enregistrement

Bonsoir apdf1,

Légère modification de ta procédure pour faire référence à la colonne B car la colonne A est vide :

Private Sub BtValide_Click()     ' Bouton Enregistrer
    Dim t() As Variant, i As Byte
    If ComboBox1.ListIndex > -1 Then
        t = Array(ComboBox1.Text, "Joueur")
        ActiveSheet.Range("C7:L7").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
        ActiveSheet.Cells(7, 3) = TextNord.Value 'Nom 1er Joueur
        ActiveSheet.Cells(7, 6) = TextEst.Value 'Nom 2éme Joueur
        ActiveSheet.Cells(7, 9) = TextSud.Value 'Nom 3éme Joueur
        ActiveSheet.Cells(7, 12) = TextOuest.Value 'Nom 4éme Joueur
        'ActiveSheet.Cells(7, 15) = TextBox5.Value 'Nom 5éme Joueur
        
        x = Sheets(t(i)).Range("B65536").End(xlUp).Row + 1
        Sheets(t(i)).Cells(x, 2) = TextNord.Value 'Nom 1er Joueur
        Sheets(t(i)).Cells(x, 4) = TextEst.Value 'Nom 2éme Joueur
        Sheets(t(i)).Cells(x, 6) = TextSud.Value 'Nom 3éme Joueur
        Sheets(t(i)).Cells(x, 8) = TextOuest.Value 'Nom 4éme Joueur
        'Sheets(t(i)).Cells(x + 1, 10) = TextBox5.Value 'Nom 5éme Joueur
        Me.TextNord.Value = ""
        Me.TextEst.Value = ""
        Me.TextSud.Value = ""
        Me.TextOuest.Value = ""
    End If
End Sub

A+

 

[apdf1]

Re : Enregistrement

Bonjour Fredoo

Je te remercie beaucoup avec un petit peu de retard mais le boulot !!!

Je te souhaite une bonne journée

@+

Max