Discussion :

[Jean351]

Bonjour,
je viens vous demandez de l'aide en VBA pour quelque chose qui me paraît simple mais qui ne fonctionne pas.
Je vous explique je développe un outil de gestion de la caisse sous Excel .
A travers différents useform l'utilisateur viens renseigner différentes informations: date du jours, mode de paiement, montants..etc
Les informations données par l'utilisateurs viennent se renseigner dans une feuille "Paramètres" ainsi que la date.
Mon problème est sur le dernier useform "le récapitulatif" qui à travers un bouton doit transférer dans une feuille "Caisse" l'ensemble des informations donner par l'utilisateur et disponibles dans la feuille "paramètres" .
En gros j'aimerais que avec la date renseignée dans paramètres il la retrouve dans caisse et renseigne les champs de cette date dans la feuille caisse en s'appuyant sur la feuille paramètre.
Voici l'extrait de mon code actuelle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Dim cell As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, AdresseTrouvee As String
 
Sheets("Paramètres").Visible = True
Sheets("CAISSE").Visible = True
 
Sheets("CAISSE").Activate
Valeur_Cherchee = Sheets("Paramètres").Range("AA2").Value
Set PlageDeRecherche = Sheets("CAISSE").Range("A12:A742")
Set cell = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
 
If cell Is Nothing Then
AdresseTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address
Else
        cell.Select
        ActiveCell.Offset(0, 2).Value = Sheets("Paramètres").Range("AB4").Value
        ActiveCell.Offset(0, 4).Value = Sheets("Paramètres").Range("AB6").Value
        ActiveCell.Offset(0, 5).Value = Sheets("Paramètres").Range("AB7").Value
        ActiveCell.Offset(0, 6).Value = Sheets("Paramètres").Range("AB8").Value
 
        Set PlageDeRecherche = Nothing
Set cell = Nothing
 
Sheets("CAISSE").Visible = False
 
Sheets("Paramètres").Select
Range("AL2:AN20").Select
 
Sheets("Paramètres").Select
 
Sheets("Paramètres").Visible = False
 
    Selection.Cut
 
End If

Dans l'attente de votre réponse.
Cordialement

[Philippe Tulliez]

Bonjour,
Bien que ta question ne corresponde pas tout à fait à cette contribution USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire., elle pourra néanmoins je pense t'apporter des idées ou des pistes de réflexions.

[Jean351]

Bonjour,
Merci pour l'info. Malheureusement ton lien ne me donne pas de piste car même si mon useform est un "récap" ce dernier ne contient pas les chiffres qui m'intéresse et donc sa modif ou autres manipulations ne m'aide pas.
Je peux me tromper. En tout cas merci pour la rapidité de ta réponse.

[Philippe Tulliez]

Bonjour,

Malheureusement ton lien ne me donne pas de piste car même si mon useform est un "récap" ce dernier ne contient pas les chiffres qui m'intéresse et donc sa modif ou autres manipulations ne m'aide pas.

Ne fut-ce déjà que la suppression de toutes tes méthodes Activate, Select, l'utilisation des variables Objet plutôt que l'utilisation du nom des feuilles à chaque ligne.
La découpe en plusieurs procédures de ton programme comme dans le lien que je t'ai donné permet une meilleure lecture de ton application et facilite son développent et surtout sa maintenance.