Discussion :

[Invité]

Bonjour,

Je voudrais effectuer des corrections dans une BD via un userform. Le code ci-dessous fonctionne bien si j'insère des nombres.
Il s'agit de paramètres électriques, donc lors de la saisie et l'archivage des erreurs ont été commises.
En effet, le relevé n'ayant pas été effectué, je voudrais vider les cellules correspondantes dans la BD.
Pour cela, je vide les valeurs des 2 textboxs (TextBox1 et TextBox2) mais mon code plante sur la ligne du "IF".
Je suis vraiment bloqué. Je vous remercie pour votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Cmd_Valider_Click()
Set f = Sheets("BD")
 
For Each c In f.Range("C2:C" & f.[C1048576].End(xlUp).Row)
If c = CDate(Txt_Date) And c.Offset(0, 15) = Txt_cmdp And c.Offset(0, 16) = Txt_Poste _
Then c.Offset(0, 17) = CDbl(TextBox1): c.Offset(0, 18) = CDbl(TextBox2)
Next
 
Unload Me
 
MsgBox "Paramètres Corrigés!", vbInformation
End Sub

Cordialement,

[Docmarti]

Bonjour cathodique; le Forum

D'abord il faudrait mettre CDate pour les 3 comparaisons dans ta ligne IF.

Code :

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

If c = CDate(Txt_Date) And c.Offset(0, 15) = CDate(Txt_cmdp) And c.Offset(0, 16) = CDate(Txt_Poste)

[Invité]

Bonjour Docmarti,

je te remercie beaucoup pour ton retour.

D'abord il faudrait mettre CDate pour les 3 comparaisons dans ta ligne IF.
If c = CDate(Txt_Date) And c.Offset(0, 15) = CDate(Txt_cmdp) And c.Offset(0, 16) = CDate(Txt_Poste)

c.Offset(0, 15) ne contient pas une date mais contient du texte (référence du type de relevé)
c.Offset(0, 16) ne contient pas une date mais valeur Alphanumérique (référence du poste)

Je voudrais mettre des condition sur textBox1 et textBox2, si textboxs vides alors les cellules correspondantes dans la feuille BD seront vidées
et si textboxs contiennent du numérique alors les cellules correspondantes auront le même format numérique.

Je n'ai mis qu'une partie de mon code, seulement la partie où je bloque. Cette userform est lancé à partir d'une autre userform,
donc à son ouverture dans textbox1 et textbox2, on trouve les valeurs à modifier (vide ou numérique).

c'est là que je bloque je n'ai su mettre la 1ère condition, si je vide les textboxs alors les cellules correspondantes dans la BD seront vidées.
Par contre si, j’insère des valeurs ou modifie celles qui se trouvent dans les textboxs mon code fonctionne bien

Encore merci.

Cordialement,

[Docmarti]

Bonjour cathodique;

Ca peut ressembler à ceci :

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
Private Sub Cmd_Valider_Click()
Set f = Sheets("BD")
 
For Each c In f.Range("C2:C" & f.Range("C" & Rows.Count).End(xlUp).Row)
 
If c = CDate(Txt_Date) Then 'La premiere condition est verifiee, on peut verifier les 2 autres conditions
 ok2 = False
 ok3 = False
 valeur2 = ""
 valeur3 = ""
 
 If Trim(Txt_cmdp) = "" Then ok2 = True
 If ok2 = False And c.Offset(0, 15) = Txt_cmdp Then ok2 = True: valeur2 = Txt_cmdp 'Valeur de type String
 
 If Trim(Txt_Poste) = "" Then ok3 = True
 If ok3 = False Then
 If c.Offset(0, 16) = CDbl(Txt_Poste) Then ok3 = True: valeur3 = CDbl(Txt_Poste)  'Convertir en valeur de type numerique
 End If
 'Si tu veux que les 2 conditions donnent la valeur TRUE pour faire des modifications, c'est comme ce qui suit :
 If ok2 = True And ok3 = True Then
  c.Offset(0, 17) = valeur2: c.Offset(0, 18) = valeur3
 End If
End If
 
Next
 
Unload Me
 
MsgBox "Paramètres Corrigés!", vbInformation
End Sub

[Invité]

Bonsoir Docmarti,

Merci pour ton code mais à première vue ça ne résoudra pas mon problème, car le test doit ce faire sur textbox1 et textbox2. Je vais tout de même faire un test.

Je prends un peu de temps pour monter un fichier qui illustre mon problème, je pense que c'est la meilleur solution. Tu comprendras mieux mon souci.

à tantôt.

Cordialement,

[Docmarti]

Merci pour ton code mais à première vue ça ne résoudra pas mon problème, car le test doit ce faire sur textbox1 et textbox2. Je vais tout de même faire un test.

,

Ce test se fait sur TextBox1 et Texbox2. Les 2 conditions doivent être remplies.