Rapport de message :*
 

Re: gestion de l'insertion de lignes et de la saisie sur ces lignes

Titre du sujet : Re: gestion de l'insertion de lignes et de la saisie sur ces lignes
par myDearFriend! le 23/10/2009 20:21:59

Bonsoir gmarin, le Forum,

Pour ma part, je ne rencontre pas le problème que tu indiques. Cela dit, il me semble que Calibri 11 est la police par défaut sur XL2007, aussi, il n'est peut être pas étonnant que cette taille de police 11 soit reprise par défaut lorsque tu insères une nouvelle ligne... et là, ce n'est peut être plus un problème de traitement automatisé, mais un problème de choix entre les paramètres Excel (accessibles via les options du tableur) et choix de conception pour le document.

Cela dit, pour couper court, tu trouveras en pièce jointe une autre façon d'insérer la ligne, contournant ainsi ce problème.

La procédure d'insertion de ligne devient maintenant celle-ci :
Private Sub btnInserer_Click()
Dim Ctrl As Control
Dim i As Byte, N As Byte
Dim Ok As Boolean
    'Contrôle la cohérence de la saisie
    If txtModele.Text = "" Then Exit Sub
    For i = 1 To 5
        If Controls("cboLieu" & i).ListIndex > -1 And Controls("txtLieu" & i).Text <> "" And Controls("txtlien" & i).Text <> "" Then
            N = Controls("cboLieu" & i).ListIndex
            '8 modèles maximum par lieu
            If Sheets("cars").Cells(2, 4 + N) > 7 Then
                MsgBox "Le lieu " & Controls("cboLieu" & i).Text & " contient déjà 8 modèles !"
                Ok = False
                Exit For
            Else
                Ok = True
            End If
        End If
    Next i
    If Ok Then
        With Sheets("cars")
            'Créer nouvelle ligne
            .Rows(10).Copy
            .Rows(10).Insert shift:=xlDown
            .Rows(10).Range("C1:IV1").ClearContents
            'Insérer les données
            .Cells(10, 3).Value = txtModele
            InsereLien cboLieu1.ListIndex, txtLien1, txtLieu1
            InsereLien cboLieu2.ListIndex, txtLien2, txtLieu2
            InsereLien cboLieu3.ListIndex, txtLien3, txtLieu3
            InsereLien cboLieu4.ListIndex, txtLien4, txtLieu4
            InsereLien cboLieu5.ListIndex, txtLien5, txtLieu5
        End With
        'RAZ formulaire (préparation pour saisie "de masse")
        For Each Ctrl In Me.Controls
            Select Case TypeName(Ctrl)
            Case "TextBox"
                Ctrl.Text = ""
            Case "ComboBox"
                Ctrl.ListIndex = -1
            End Select
        Next Ctrl
    End If
End Sub

Voilà gmarin, c'est pour ma part, ma dernière intervention dans ce fil. Je te souhaite une bonne continuation dans ton projet.

Cordialement,