XL 2021 Case a cocher

[clausen]

Bonsoir

Je m'amuse pour apprendre à faire un formulaire de saisie.
J'aimerais pouvoir remplacer les Cases (F & G 7) par deux case à cocher.

Est-ce possible avec le bouton enregistrer de la transmettre directement dans la feuille base de données et d'effacer la saisie


Merci d'avance

 

[sylvanu]

Bonjour Clausen,
Comme il y a des boutons, et que c'est un xlsm, je me suis permis de faire ça en VBA avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [F7]) Is Nothing Then
        If Target = "" Then Target = "P" Else Target = ""
    ElseIf Not Intersect(Target, [G7]) Is Nothing Then
        If Target = "" Then Target = "P" Else Target = ""
    End If
End Sub

et pour "Enregistrer"

Sub Enregistrer()
    With Sheets("Base de données")
        DL = 1 + .[B10000].End(xlUp).Row
        .Range("B" & DL & ":G" & DL) = [Saisie].Value
        [Saisie].ClearContents
    End With
End Sub

 

[clausen]

Merci je vais continuer mes essais de débutant. A 81 ans ça fonctionne pas comme a 20 ans

 

[Dudu2]

A 81 ans ça fonctionne pas comme a 20 ans

Ça dépend de quoi tu parles. Pour le VBA, ça fonctionne toujours 😛

 

[Dudu2]

A 81 ans ça fonctionne pas comme a 20 ans

Ça dépend de quoi tu parles. Pour le VBA, ça fonctionne toujours 😛

 

[clausen]

Je parlais pas du VBA. Ais de moi

 

[clausen]

Bonjour Clausen,
Comme il y a des boutons, et que c'est un xlsm, je me suis permis de faire ça en VBA avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [F7]) Is Nothing Then
        If Target = "" Then Target = "P" Else Target = ""
    ElseIf Not Intersect(Target, [G7]) Is Nothing Then
        If Target = "" Then Target = "P" Else Target = ""
    End If
End Sub

et pour "Enregistrer"

Sub Enregistrer()
    With Sheets("Base de données")
        DL = 1 + .[B10000].End(xlUp).Row
        .Range("B" & DL & ":G" & DL) = [Saisie].Value
        [Saisie].ClearContents
    End With
End Sub

 

[clausen]

J'ai maintenant un autre problème

Je voudrais que dans la zone de saisie B7 (N° de dossier) elle me propose toujours le dernier numéro de la base de donnée colonne B feuille base de donnée +1

J'ai tout essayé toujours erreur de formule

 

[clausen]

Dans la feuille Base de données j'aimerai pouvoir en cliquant sur les titres des colonnes (B C D E F G)
exécuter un tri une fois ascendant et si je reclique descendant

Avec le bouton "Recherche" qui m'envoie sur la feuille base de données en D3 pouvoir m'afficher la ligne qui correspond
avec peu être un fond en couleur par exemple

J'aimerai bien trouver quelqu'un qui pourrais me donner des cours d'Excell en Suisse romande en Valais dans la région de Sion

 

[sylvanu]

Re,
Pour la demande du post #8, il suffit à la fin de l'enregistrement d'effacer le champ de saisie et de rajouter en B7:

[B7] = 1 + Application.Max(Sheets("Base de données").[B7:B1000])

 

[clausen]

Merci mille fois. Je commence à avoir honte de tout demander. Il y a vraiment des Gas super sur ce site.

J'aimerais bien trouver quelqu'un en Suisse (Valais) pour des cours

 

[sylvanu]

Re,
Pour le second point, il faut mémoriser si le tri en place est ascendant ou descendant.
J'ai choisi de mettre ce sens avant le titre, comme par ex :

Le code est dans la feuille Base de données : Worksheet_SelectionChange
Mais ça commence un peu à se compliquer .... 🙂

 

[clausen]

Ca va de mieux en mieux

Dans saisie le numéro de dossier ne fonctionne plus. Il faudrait que l'on ne puisse pas le changer et bloquer la saisie de ce numéro.
J'aimerai aussi que la date du jour me soit chaque fois proposé et que la saisie commence dans le libellé

Un menu déroulant dans Document


Dans la base de donnée D3 sélection recherche dans le libellé

 

[sylvanu]

Re,

Il faudrait que l'on ne puisse pas le changer et bloquer la saisie de ce numéro.

If suffit de rajouter dans Worksheet_SelectionChange :

    ElseIf Not Intersect(Target, [B7]) Is Nothing Then
        [C7].Select

Ainsi B7 n'est plus accessible.
Et dans B7 j'ai mis :

=1+RECHERCHE(9^9;'Base de données'!B:B)

NB: La prochaine fois, faites toutes les demandes d'un seul coup, cela évite de reprendre N fois le fichier.

 

[clausen]

Dans saisie le numéro de dossier ne fonctionne plus. Il faudrait que l'on ne puisse pas le changer et bloquer la saisie de ce numéro.

Re,

If suffit de rajouter dans Worksheet_SelectionChange :

    ElseIf Not Intersect(Target, [B7]) Is Nothing Then
        [C7].Select

Ainsi B7 n'est plus accessible.
Et dans B7 j'ai mis :

=1+RECHERCHE(9^9;'Base de données'!B:B)

NB: La prochaine fois, faites toutes les demandes d'un seul coup, cela évite de reprendre N fois le fichier.