Zones de saisies, validation, tableau

bonjour,

je ne sais quasi rien faire avec ce beau logiciel... je tente d'apprendre...

bon, j'ai fais des recherches mais je n'arrive pas à faire ce que je souhaiterais

trois cases "saisie" et un bouton "validation"

"saisie 1" "sasie 2" "saisie 3" "validation"

et en dessous un tableau avec des colonnes corresondantes :

"valeur 1" "valeur 2" "valeur 3"

les lignes se rempliraient successivement à chaque validation.

voilà ....

et ... cerise sur le gateau : ce serait pas mal si seuls les champs de saisie etaient autorisés

(et si moi seul pouvant intervenir directement sur le tableau)

merci d'avance de vos explications ... n'oubliez pas que je suis débutant ..alors pas trops techniques les termes

Fano

Salut Fano,

disons qu'on démarre avec une ébauche un peu grossière.

https://www.excel-pratique.com/~files/doc/J9I4WBook1.xls

À partir de là, dis-nous ce que tu souhaites et on y travaillera.

La demande d'accès réservé n'est pas encore prise en considération.

Bonjour

Un autre exemple très ressemblant :

Fichier

Pour avoir accès au tableau, il faut ôter la protection de la feuille (il n'y a pas de mot de passe)

Amicalement

Nad

merci les ZAMIS c'est sympatoche...

pourriez-vous m'expliquer un peu comment vous faites SVP?

Fano

Je t'explique ma procédure.

Private Sub CommandButton1_Click()

If (Cells(2, 1) <> "" And Cells(2, 2) <> "" And Cells(2, 3) <> "") Then
    ligne = Range("A65536").End(xlUp).Row + 1
    Cells(ligne, 1) = Cells(2, 1).Value
    Cells(ligne, 2) = Cells(2, 2).Value
    Cells(ligne, 3) = Cells(2, 3).Value
    Range("A2:C2").ClearContents

    Else
    MsgBox ("Vous devez obligatoirement enregistrer 3 valeurs")
    Exit Sub
End If

End Sub

D'abord, je vérifie la condition des cellules A2, B2 et C2 et si elles sont toutes les trois différentes de vides, je procède.

If (Cells(2, 1) <> "" And Cells(2, 2) <> "" And Cells(2, 3) <> "") Then

Ensuite, je lui demande de trouver la dernière ligne avec une valeur de la colonne A à laquelle j'ajoute 1 pour avoir ma première ligne vide.

ligne = Range("A65536").End(xlUp).Row + 1

Ma cellule de la ligne vide et de la première colonne est égale à la cellule de la ligne 2 et de la première colonne.

Cells(ligne, 1) = Cells(2, 1).Value

Même chose pour les cellules suivantes.

Cells(ligne, 2) = Cells(2, 2).Value

Cells(ligne, 3) = Cells(2, 3).Value

Je vide le contenu des cellules A2:C2

Range("A2:C2").ClearContents

Le Else s'applique dans le cas où il manquerait une donnée dans les cellules A2:C2. J'envois alors un message et je quitte la procédure.

MERCI à tous les deux

tout ça marche impec' ...

... et pour ceux que ça interesse voici la macro pour que les nouvelles saisies apparaissent sur la première ligne du tableau (les autres lignes décallent vers le bas)

Sub Recap()

With Sheets("Saisie")

.Unprotect

.Range("Ligne").Copy

.Range("D9").Insert Shift:=xlDown

.Application.CutCopyMode = False

.Range("Ligne").ClearContents

.Protect

End With

End Sub

MERCI à NAD et DAN

Fano