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