[XL-2007] Saisie dans tableau [Résolu]

[francky62000]

Bonjour a tous,

J'ai un petit code en VBA qui me permet de rajouter 1 client ( a l'aide d'une saisie dans une box ) par un bouton, voici le code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Ajouterclient()
 Dim lgCol As Long
    Dim lgDerLig As Long
    Dim strSaisie As String
 
    ' Dernière ligne
    lgDerLig = Range("C" & Cells.Rows.Count).End(xlUp).Row + 1
 
    ' Boucle de la colonne B à L
    For lgCol = 2 To 12
        ' Pas de question pour la colonne "Date"
        If lgCol <> 5 Then
            strSaisie = InputBox(Cells(1, lgCol) & "?", "Saisie")
            ' Si saisie effectuée
            If strSaisie <> "" Then
                Cells(lgDerLig, lgCol).Value = strSaisie
            End If
        End If
    Next lgCol
End Sub

On oublie la colonne 5 qui est un calcul de date
Ce code fonctionne trés bien a un petit détail prés :
Ma feuille est un tableau ( tableau 7 ) et la saisie se fait hors du tableau , j'aimerai que se soit a l’intérieur de celui ci ou que mon tableau augmente d'une ligne lorsque la saisie est terminé.
Si quelqu'un a une idée
Je tourne en rond depuis un moment .
Merci

[jfontaine]

Bonjour,

Si dans Tableau tu veux dire une mise en forme avec un contour, il te faut soit ajouter une ligne avant la dernière soit remettre à jour la mise en forme.

Le plus simple est le premier cas, mais il implique que la dernière ligne saisie sera toujours en avant dernière position (Sauf si tu fais un tri a la fin de ton code)

Code :

1
2
3
4
 
    ' Dernière ligne
    lgDerLig = Range("C" & Cells.Rows.Count).End(xlUp).Row
    Rows(lgDerLig).Insert

Le reste du code ne change pas

[francky62000]

merci , cela me va trés bien , ca fonctionne a merveille.
Je te remercie

Est -il possible d'ajouter 1 liste dans la box de saisie

Voici le code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 Sub AjouterProduit()
 Dim lgCol As Long
    Dim lgDerLig As Long
    Dim strSaisie As String
 
    ' Dernière ligne
    lgDerLig = Range("D" & Cells.Rows.Count).End(xlUp).Row
    Rows(lgDerLig).Insert
    ' Boucle de la colonne B à I
    For lgCol = 2 To 9
        ' Pas de question pour la colonne "NB Produit vendu"
        If lgCol <> 7 Then
            strSaisie = InputBox(Cells(1, lgCol) & "?", "Saisie")
            ' Si saisie effectuée
            If strSaisie <> "" Then
                Cells(lgDerLig, lgCol).Value = strSaisie
            End If
        End If
    Next lgCol
End Sub

J'aimerai qu'a la 2 iéme saisie ( soit la colonne C ) ,dans la box , la liste des fournisseurs apparaissent afin de le sélectionner , la liste existe déja sous le nom : Nomfournisseur1

Merci

[Qwazerty]

Salut

Pour l'histoire de lajout de ligne et de leur formatage, vu que tu utilises Excel 2007, tu à la possibilité de créer un tableau (Onglet Insertion, Tableau).
Une fois le tableau mis en place (attention aux entêtes) lorsque tu ajoutes des données en fin de tableau, celui-ci se redimensionne automatiquement.
Tu peux bien sur définir le format que tu veux pour ton tableau.

Plus globalement, je serais toi je regarderais du coté des UserForm pour faire ce que tu souhaites, l'affichage de plusieurs InputBox n'est pas très esthétique ni agréable pour l'utilisateur.

++
Qwaz