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