Modification via userform, vide ou imposer format nombre

Version imprimable

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:

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,

02/02/2014, 15h39
Docmarti

Bonjour cathodique; le Forum

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

Code:

If c = CDate(Txt_Date) And c.Offset(0, 15) = CDate(Txt_cmdp) And c.Offset(0, 16) = CDate(Txt_Poste)
02/02/2014, 16h09
Invité

Bonjour Docmarti,

je te remercie beaucoup pour ton retour.

Citation:

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,

Bonjour cathodique;

Ca peut ressembler à ceci :

Code:

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

02/02/2014, 19h26
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,
02/02/2014, 19h53
Docmarti

Citation:

Envoyé par cathodique

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.

Bonsoir Docmarti,

Merci beaucoup pour ton aide, mais ton code n'a pas résolu mon problème.

Tu m'avais dit qu'il faisait les testes sur textBox1 et Textbox2 alors que je ne les vois pas dans ton code.

J'ai peut-être mal exposé mon problème. Merci quand même pour ton aide, c'est très sympa de ta part.

J'ai résolu mon souci ainsi
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub Cmd_Valider_Click() Application.ScreenUpdating = False For Each c In f.Range("C2:C" & f.[C1048576].End(xlUp).Row) If Me.TextBox1 <> "" And Me.TextBox2 <> "" Then 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) Else If c = CDate(Txt_Date) And c.Offset(0, 15) = Txt_cmdp And c.Offset(0, 16) = Txt_Poste Then _ c.Offset(0, 17) = "": c.Offset(0, 18) = "" End If Next Application.ScreenUpdating = True 'affiche les raffraîchissements d'écran Unload Me 'vide et ferme l'UserForm MsgBox "Paramètres Poste Corrigé!", vbInformation End Sub
Bonne soirée.

Cordialement,

03/02/2014, 00h58
Docmarti

Bonsoir cathodique;

Effectivement je ne l'avais pas du tout compris comme ça.

Tu as trouvé la solution. Super.

J'ai testé ta solution.

Je crois qu'il va y avoir un problème avec la comparaison de

Code:

c.Offset(0, 16) = Txt_Poste

vu qu'un des éléments est numérique et l'autre String.

Au plaisir
03/02/2014, 10h31
Invité

Bonjour Docmarti,

je te remercie pour ton retour. J'espère ne pas avoir de problème de comparaison comme tu me le soulignes, car j'ai pas mal "bavé" avec ce fichier.

Pour Txt_Poste, les données sont de ce genre:T01, Te05, s28, est-ce que tu penses vraiment que je pourrai avoir un problème de comparaison?

Merci encore pour tout.

Cordialement,
03/02/2014, 15h38
Docmarti

Citation:

Envoyé par cathodique

Pour Txt_Poste, les données sont de ce genre:T01, Te05, s28, est-ce que tu penses vraiment que je pourrai avoir un problème de comparaison?

Non. Je pensais que le format de ces cellules était numérique. Donc on compare une valeur String avec une valeur String.

Ca pourrait être fait comme ceci:

Code:

If CDate(c) = CDate(Trim(Txt_Date)) And UCase(Trim(CStr(c.Offset(0, 15)))) = UCase(Trim(Txt_cmdp)) And UCase(Trim(CStr(c.Offset(0, 16)))) = UCase(Trim(Txt_Poste)) Then
03/02/2014, 16h56
Invité

Re Docmarti,

Je te remercie beaucoup pour ton aide. Tu me soulages des corvées de recherches car je ne maitrise pas bien le VBA. C'est très gentil de ta part.

Cordialement,