XL 2021 Case a cocher

clausen · Hier à 17:52

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 · Hier à 18:18

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

VB:

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"

VB:

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 · Hier à 18:29

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

Dudu2 · Hier à 20:19

A 81 ans ça fonctionne pas comme a 20 ans

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

Dudu2 · Hier à 20:20

A 81 ans ça fonctionne pas comme a 20 ans

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

clausen · Hier à 21:06

Je parlais pas du VBA. Ais de moi

clausen · Aujourd'hui à 10:21

sylvanu à dit:

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

VB:

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"

VB:

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 · Aujourd'hui à 10:24

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 · Aujourd'hui à 10:34

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 · Aujourd'hui à 10:39

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:

VB:

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

clausen · Aujourd'hui à 10:54

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 · Aujourd'hui à 11:40

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

XL 2021 Case a cocher

clausen

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

clausen

XLDnaute Occasionnel

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

clausen

XLDnaute Occasionnel

clausen

XLDnaute Occasionnel

clausen

XLDnaute Occasionnel

Pièces jointes

clausen

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

clausen

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires